X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fprint.lisp;h=ef0cb83d77fd3c4460d8d3fbcf0a7e8444b49eca;hb=HEAD;hp=146c173205f59472e2e389fd69c1c478d29d4919;hpb=8d61c3934b3394a7596d6967ce8dfbdbc70bdc67;p=jscl.git

diff --git a/src/print.lisp b/src/print.lisp
index 146c173..ef0cb83 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -211,11 +211,11 @@
            ;; 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)
-             (let ((symbtype (second (multiple-value-list (find-symbol name package)))))
+             (let ((symbtype (and package (second (multiple-value-list (find-symbol name package))))))
                (when (and package (eq symbtype :internal))
                  (write-char #\: stream)))
              (write-string (escape-token name) stream)))))