X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fprint.lisp;fp=src%2Fprint.lisp;h=0f61573422b57338ee53ab81e6fabff4465e8f79;hb=d22db16f1791e4af8bcb143ce9d230950904d85d;hp=146c173205f59472e2e389fd69c1c478d29d4919;hpb=f1163dd88358517fd0f7e9e56a74e5e04488102d;p=jscl.git

diff --git a/src/print.lisp b/src/print.lisp
index 146c173..0f61573 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -211,7 +211,7 @@
            ;; the symbol with the optional package or uninterned mark.
            (progn
              (cond
-               ((null package) (write-char #\#))
+               ((null package) (write-char #\# stream))
                ((eq package (find-package "KEYWORD")))
                (t (write-char (escape-token (package-name package)) stream)))
              (write-char #\: stream)