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

Diff of /src/code/filesys.lisp

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

revision 1.96 by rtoy, Sat Oct 22 00:33:56 2005 UTC revision 1.97 by rtoy, Fri Nov 4 14:22:43 2005 UTC
# Line 490  Line 490 
490                                                            '(:newest                                                            '(:newest
491                                                              :unspecific)))))))                                                              :unspecific)))))))
492        (when name        (when name
493            (when (stringp name)
494              (when (find #\/ name)
495                (error "Cannot specify a directory separator in a pathname name: ~S" name))
496              (when (find #\. name)
497                (error "Cannot specify a dot in a pathname name: ~S" name))
498              (when (or (string= ".." name)
499                        (string= "." name))
500                (error "Invalid value for a pathname name: ~S" name)))
501          (strings (unparse-unix-piece name)))          (strings (unparse-unix-piece name)))
502        (when type-supplied        (when type-supplied
503          (unless name          (unless name
504            (error "Cannot specify the type without a file: ~S" pathname))            (error "Cannot specify the type without a file: ~S" pathname))
505            (when (stringp type)
506              (when (find #\/ type)
507                (error "Cannot specify a directory separator in a pathname type: ~S" type))
508              (when (find #\. type)
509                (error "Cannot specify a dot in a pathname type: ~S" type)))
510          (strings ".")          (strings ".")
511          (strings (unparse-unix-piece type)))          (strings (unparse-unix-piece type)))
512        (when (and (not (member version '(nil :newest :unspecific)))        (when (and (not (member version '(nil :newest :unspecific)))

Legend:
Removed from v.1.96  
changed lines
  Added in v.1.97

  ViewVC Help
Powered by ViewVC 1.1.5