/[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.48 by pw, Tue Mar 27 20:23:45 2001 UTC revision 1.49 by pw, Thu Apr 5 13:40:02 2001 UTC
# Line 676  a host-structure or string." Line 676  a host-structure or string."
676    
677      ;; A bit of sanity checking on user arguments.      ;; A bit of sanity checking on user arguments.
678      (flet ((check-component-validity (name name-or-type)      (flet ((check-component-validity (name name-or-type)
679               (let ((unix-directory-separator #\/))               (when (stringp name)
680                 (when (eq host (pathname-host *default-pathname-defaults*))                 (let ((unix-directory-separator #\/))
681                   (when (find unix-directory-separator name)                   (when (eq host (pathname-host *default-pathname-defaults*))
682                     (warn "Silly argument for a unix ~A: ~S"                     (when (find unix-directory-separator name)
683                           name-or-type name))))))                       (warn "Silly argument for a unix ~A: ~S"
684                               name-or-type name)))))))
685        (check-component-validity name :pathname-name)        (check-component-validity name :pathname-name)
686        (check-component-validity type :pathname-type))        (check-component-validity type :pathname-type))
687    

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

  ViewVC Help
Powered by ViewVC 1.1.5