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"