/[meta-cvs]/meta-cvs/F-576B79B06E51052AA09B4F57264D05A9.lisp
ViewVC logotype

Diff of /meta-cvs/F-576B79B06E51052AA09B4F57264D05A9.lisp

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

revision 1.5 by kaz, Thu Oct 31 04:06:01 2002 UTC revision 1.6 by kaz, Wed Apr 23 05:39:27 2003 UTC
# Line 114  Line 114 
114            (t (read-char stream)))))))            (t (read-char stream)))))))
115    
116  (defmethod rcs-read-token ((stream t))  (defmethod rcs-read-token ((stream t))
117    (rcs-read-token *terminal-io*))    (rcs-read-token *standard-input*))
118    
119  (defmethod rcs-read-token ((rts rcs-token-stream))  (defmethod rcs-read-token ((rts rcs-token-stream))
120    (with-slots (stream pushback-stack) rts    (with-slots (stream pushback-stack) rts

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5