/[meta-cvs]/meta-cvs/F-26D2A2DCE1CF180F943606C59DC63A51.lisp
ViewVC logotype

Diff of /meta-cvs/F-26D2A2DCE1CF180F943606C59DC63A51.lisp

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

revision 1.21.2.1 by kaz, Sat Oct 26 21:09:27 2002 UTC revision 1.21.2.2 by kaz, Mon Apr 14 04:29:06 2003 UTC
# Line 28  Line 28 
28                                           :fill-pointer 0))))                                           :fill-pointer 0))))
29               (save-token ()               (save-token ()
30                 (unless (gethash token word-hash)                 (unless (gethash token word-hash)
31                   (setf (gethash token word-hash) token)                   (let ((copy (make-string (length token))))
32                   (setf token nil))))                     (replace copy token)
33                       (setf (gethash copy word-hash) copy)))))
34        (do ((byte (read-byte byte-stream nil)        (do ((byte (read-byte byte-stream nil)
35                   (read-byte byte-stream nil)))                   (read-byte byte-stream nil)))
36            ((null byte) (if (eq state :word) (save-token)) word-hash)            ((null byte) (if (eq state :word) (save-token)) word-hash)

Legend:
Removed from v.1.21.2.1  
changed lines
  Added in v.1.21.2.2

  ViewVC Help
Powered by ViewVC 1.1.5