[Advanced-readtable-cvs] r5 -

[rklochkov at common-lisp.net]

Author: rklochkov
Date: Sat Dec  8 10:04:29 2012
New Revision: 5

Log:
Fixed bug: (cl:+ 2 2) hadn't parsed.

Modified:
   src.lisp

Modified: src.lisp
==============================================================================
--- src.lisp	Fri Dec  7 22:20:09 2012	(r4)
+++ src.lisp	Sat Dec  8 10:04:29 2012	(r5)
@@ -168,8 +168,9 @@
                (read stream nil))))))
 
     (let ((token (read-token stream)))
+      (check-type token symbol)
       (multiple-value-bind (symbol status) 
-          (find-symbol token package)
+          (find-symbol (symbol-name token) package)
         (unintern token)
         (when (and (= colons 1) (not (eq status :external))) 
           (cerror "Use anyway"