From: David Vázquez <davazp@gmail.com>
Date: Fri, 24 May 2013 01:17:31 +0000 (+0100)
Subject: Fix bug in read-symbol
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=791e881be58a0aba57216de5dda3dcd260e1cace;p=jscl.git

Fix bug in read-symbol
---

diff --git a/src/read.lisp b/src/read.lisp
index 0c1f440..1cbe13e 100644
--- a/src/read.lisp
+++ b/src/read.lisp
@@ -319,7 +319,7 @@
       ;; No package prefix
       ((= index size)
        (setq name string)
-       (setq package *package*)
+       (setq package (package-name *package*))
        (setq internalp t))
       (t
        ;; Package prefix