From 791e881be58a0aba57216de5dda3dcd260e1cace Mon Sep 17 00:00:00 2001
From: =?utf8?q?David=20V=C3=A1zquez?= <davazp@gmail.com>
Date: Fri, 24 May 2013 02:17:31 +0100
Subject: [PATCH] Fix bug in read-symbol

---
 src/read.lisp |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4