/[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.98 by rtoy, Mon Nov 7 00:42:25 2005 UTC revision 1.99 by rtoy, Sun Dec 4 15:49:35 2005 UTC
# Line 494  Line 494 
494            (when (find #\/ name)            (when (find #\/ name)
495              (error "Cannot specify a directory separator in a pathname name: ~S" name))              (error "Cannot specify a directory separator in a pathname name: ~S" name))
496            (when (and (not type-supplied)            (when (and (not type-supplied)
497                       (find #\. name))                       (find #\. name :start 1))
498                ;; A single leading dot is ok.
499              (error "Cannot specify a dot in a pathname name without a pathname type: ~S" name))              (error "Cannot specify a dot in a pathname name without a pathname type: ~S" name))
500            (when (or (string= ".." name)            (when (or (string= ".." name)
501                      (string= "." name))                      (string= "." name))

Legend:
Removed from v.1.98  
changed lines
  Added in v.1.99

  ViewVC Help
Powered by ViewVC 1.1.5