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

Diff of /src.lisp

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

revision 4 by rklochkov, Sat Dec 8 06:20:09 2012 UTC revision 5 by rklochkov, Sat Dec 8 18:04:29 2012 UTC
# Line 168  RETURN: number of the colons" Line 168  RETURN: number of the colons"
168                 (read stream nil))))))                 (read stream nil))))))
169    
170      (let ((token (read-token stream)))      (let ((token (read-token stream)))
171          (check-type token symbol)
172        (multiple-value-bind (symbol status)        (multiple-value-bind (symbol status)
173            (find-symbol token package)            (find-symbol (symbol-name token) package)
174          (unintern token)          (unintern token)
175          (when (and (= colons 1) (not (eq status :external)))          (when (and (= colons 1) (not (eq status :external)))
176            (cerror "Use anyway"            (cerror "Use anyway"

Legend:
Removed from v.4  
changed lines
  Added in v.5

  ViewVC Help
Powered by ViewVC 1.1.5