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

Diff of /src.lisp

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

revision 10 by rklochkov, Sun Dec 30 14:24:44 2012 UTC revision 11 by rklochkov, Sun Dec 30 14:35:37 2012 UTC
# Line 160  RETURN: number of the colons" Line 160  RETURN: number of the colons"
160    
161  (defun read-after-colon (stream maybe-package colons)  (defun read-after-colon (stream maybe-package colons)
162    "Read symbol package:sym or list package:(...)"    "Read symbol package:sym or list package:(...)"
163    (declare (type symbol maybe-package)    (declare (type stream stream)
            (type stream stream)  
164             (type fixnum colons))             (type fixnum colons))
165    (when (= colons 0) ; no colon: this is a symbol or an atom    (when (= colons 0) ; no colon: this is a symbol or an atom
166      (return-from read-after-colon      (return-from read-after-colon

Legend:
Removed from v.10  
changed lines
  Added in v.11

  ViewVC Help
Powered by ViewVC 1.1.5