/[advanced-readtable]/src.lisp
ViewVC logotype

Diff of /src.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by rklochkov, Thu Sep 20 07:50:22 2012 UTC revision 2 by rklochkov, Thu Sep 20 12:54:30 2012 UTC
# Line 147  RETURN: number of the colons" Line 147  RETURN: number of the colons"
147    
148  (defun process-symbol-readmacro (symbol stream)  (defun process-symbol-readmacro (symbol stream)
149    (let ((func (gethash symbol *symbol-readmacros*)))    (let ((func (gethash symbol *symbol-readmacros*)))
150      (if func (funcall func symbol stream) symbol)))      (if func (funcall func stream symbol) symbol)))
151    
152  (defun read-token-with-colons (stream char)  (defun read-token-with-colons (stream char)
153    "Reads token, then analize package part if needed"    "Reads token, then analize package part if needed"

Legend:
Removed from v.1  
changed lines
  Added in v.2

  ViewVC Help
Powered by ViewVC 1.1.5