Author: rklochkov Date: Thu Sep 20 05:54:30 2012 New Revision: 2

Log: Fixed def-symbol-readmacro to be alike set-macro-character

Modified: src.lisp

Modified: src.lisp ============================================================================== --- src.lisp Thu Sep 20 00:50:22 2012 (r1) +++ src.lisp Thu Sep 20 05:54:30 2012 (r2) @@ -147,7 +147,7 @@

(defun process-symbol-readmacro (symbol stream) (let ((func (gethash symbol *symbol-readmacros*))) - (if func (funcall func symbol stream) symbol))) + (if func (funcall func stream symbol) symbol)))

(defun read-token-with-colons (stream char) "Reads token, then analize package part if needed"