/[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.4.8.1 by kaz, Wed Apr 23 05:37:35 2003 UTC revision 1.4.8.2 by kaz, Thu Jan 8 15:34:05 2004 UTC
# Line 93  Line 93 
93  (defmethod rcs-read-token ((stream stream))  (defmethod rcs-read-token ((stream stream))
94    (handler-bind ((end-of-file #'(lambda (condition)    (handler-bind ((end-of-file #'(lambda (condition)
95                                    (declare (ignore condition))                                    (declare (ignore condition))
96                                    (return-from rcs-read-token #s(rcs-token                                    (return-from rcs-read-token
97                                                                    :type :eof                                                 (load-time-value
98                                                                    :lexeme "")))))                                                   (make-rcs-token :type :eof
99                                                                     :lexeme ""))))))
100      (loop      (loop
101        (let ((ch (peek-char nil stream)))        (let ((ch (peek-char nil stream)))
102          (cond          (cond

Legend:
Removed from v.1.4.8.1  
changed lines
  Added in v.1.4.8.2

  ViewVC Help
Powered by ViewVC 1.1.5