From d8fce57710b7fb682d515792f8d7178a7f318189 Mon Sep 17 00:00:00 2001
From: =?utf8?q?David=20V=C3=A1zquez?= <davazp@gmail.com>
Date: Thu, 29 Aug 2013 16:06:56 +0200
Subject: [PATCH] Fix bug printing uninterned symbols
---
src/print.lisp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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)))))
--
1.7.10.4