/[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.31.2.3 by dtc, Thu Jul 6 06:59:14 2000 UTC revision 1.31.2.4 by dtc, Mon Jul 10 06:31:59 2000 UTC
# Line 789  a host-structure or string." Line 789  a host-structure or string."
789  ;;; call the parser, then check if the host matches.  ;;; call the parser, then check if the host matches.
790  ;;;  ;;;
791  (defun %parse-namestring (namestr host defaults start end junk-allowed)  (defun %parse-namestring (namestr host defaults start end junk-allowed)
792    (declare (type (or host null) host) (type string namestr)    (declare (type string namestr)
793             (type index start) (type (or index null) end))             (type (or host null) host)
794               (type index start)
795               (type (or index null) end))
796    (if junk-allowed    (if junk-allowed
797        (handler-case        (handler-case
798            (%parse-namestring namestr host defaults start end nil)            (%parse-namestring namestr host defaults start end nil)
# Line 845  a host-structure or string." Line 847  a host-structure or string."
847             (type (or null host) host)             (type (or null host) host)
848             (type pathname defaults)             (type pathname defaults)
849             (type index start)             (type index start)
850             (type (or index null) end)             (type (or index null) end))
            (type (or t null) junk-allowed)  
            (values (or null pathname) (or null index)))  
851      (etypecase thing      (etypecase thing
852        (simple-string        (simple-string
853         (%parse-namestring thing host defaults start end junk-allowed))         (%parse-namestring thing host defaults start end junk-allowed))

Legend:
Removed from v.1.31.2.3  
changed lines
  Added in v.1.31.2.4

  ViewVC Help
Powered by ViewVC 1.1.5