/[meta-cvs]/meta-cvs/F-36433FEEE65F109159A4ADF217F5145C
ViewVC logotype

Diff of /meta-cvs/F-36433FEEE65F109159A4ADF217F5145C

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

revision 1.11 by kaz, Sat Aug 31 20:53:13 2002 UTC revision 1.12 by kaz, Wed Sep 11 05:14:38 2002 UTC
# Line 61  Line 61 
61                    (t (let* ((f-digits (substring line 0 32))                    (t (let* ((f-digits (substring line 0 32))
62                              (entry (gethash (format nil "F-~a" f-digits)                              (entry (gethash (format nil "F-~a" f-digits)
63                                              filehash))                                              filehash))
64                              (suffix (suffix (mapping-entry-id entry))))                              (suffix (and entry
65                                             (suffix (mapping-entry-id entry)))))
66                         (setf line (substring line 32))                         (setf line (substring line 32))
67                         (cond                         (cond
68                           ((not entry)                           ((null entry)
69                              (write-string "F-")                              (write-string "F-")
70                              (write-string f-digits))                              (write-string f-digits))
71                           ((and suffix                           ((and suffix

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5