From: David Vázquez <davazp@gmail.com>
Date: Thu, 29 Aug 2013 14:06:56 +0000 (+0200)
Subject: Fix bug printing uninterned symbols
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d8fce57710b7fb682d515792f8d7178a7f318189;p=jscl.git

Fix bug printing uninterned symbols
---

diff --git a/src/print.lisp b/src/print.lisp
index 0f61573..ef0cb83 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -215,7 +215,7 @@
                ((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)))))