/[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.7 by wlott, Wed Feb 19 01:50:17 1992 UTC revision 1.8 by wlott, Mon Feb 24 00:52:13 1992 UTC
# Line 916  Line 916 
916        (cond ((search-list-p search-list)        (cond ((search-list-p search-list)
917               search-list)               search-list)
918              (flame-if-none              (flame-if-none
919               (error "~S doesn't start with a search-list."))               (error "~S doesn't start with a search-list." pathname))
920              (t              (t
921               nil)))))               nil)))))
922    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5