[Advanced-readtable-cvs] r2 -

[rklochkov at common-lisp.net]

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"