/[cmucl]/src/code/pathname.lisp
ViewVC logotype

Diff of /src/code/pathname.lisp

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

revision 1.53 by pw, Mon Jun 18 11:27:35 2001 UTC revision 1.54 by pmai, Mon Dec 10 23:02:43 2001 UTC
# Line 1632  a host-structure or string." Line 1632  a host-structure or string."
1632        (labels ((expecting (what chunks)        (labels ((expecting (what chunks)
1633                   (unless (and chunks (simple-string-p (caar chunks)))                   (unless (and chunks (simple-string-p (caar chunks)))
1634                     (error 'namestring-parse-error                     (error 'namestring-parse-error
1635                            :complaint "Expecting ~A, got ~:[nothing~;~S~]."                            :complaint "Expecting ~A, got ~:[nothing~;~:*~S~]."
1636                            :arguments (list what (caar chunks))                            :arguments (list what (caar chunks))
1637                            :namestring namestr                            :namestring namestr
1638                            :offset (if chunks (cdar chunks) end)))                            :offset (if chunks (cdar chunks) end)))

Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54

  ViewVC Help
Powered by ViewVC 1.1.5