20 Sep
2012
20 Sep
'12
12:54 p.m.
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"