git » jacl.git » commit 0b646cb

clarify gensym

author Alan Dipert
2020-02-03 19:49:01 UTC
committer Alan Dipert
2020-02-03 19:49:01 UTC
parent 7caf79506add167ea95540a6b0fa35528cf65d21

clarify gensym

boot.lisp +1 -1

diff --git a/boot.lisp b/boot.lisp
index 6e6a5d8..0461dfb 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -148,7 +148,7 @@
         ((numberp x)
          (jacl:%new (jacl:%js "LispSymbol")
                     (jacl:%js "'G'+~{}.toString()" x)))
-        ((not x)
+        ((not x?)
          (let ((sym (jacl:%new (jacl:%js "LispSymbol")
                                (jacl:%js "'G'+~{}.toString()" *gensym-counter*))))
            (set '*gensym-counter* (1+ *gensym-counter*))