/[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 by dtc, Fri Jun 6 06:48:14 1997 UTC revision 1.31.2.1 by pw, Tue Jun 23 11:22:17 1998 UTC
# Line 87  Line 87 
87    ;; Slot holds the host, at present either a UNIX or logical host.    ;; Slot holds the host, at present either a UNIX or logical host.
88    (host nil :type (or host null))    (host nil :type (or host null))
89    ;; Device is the name of a logical or physical device holding files.    ;; Device is the name of a logical or physical device holding files.
90    (device nil :type component-tokens)    (device nil :type (or simple-string component-tokens))
91    ;; A list of strings that are the component subdirectory components.    ;; A list of strings that are the component subdirectory components.
92    (directory nil :type list)    (directory nil :type list)
93    ;; The filename.    ;; The filename.
# Line 611  Line 611 
611    "Makes a new pathname from the component arguments.  Note that host is    "Makes a new pathname from the component arguments.  Note that host is
612  a host-structure or string."  a host-structure or string."
613    (declare (type (or string host component-tokens) host)    (declare (type (or string host component-tokens) host)
614             (type component-tokens device)             (type (or string component-tokens) device)
615             (type (or list string pattern component-tokens) directory)             (type (or list string pattern component-tokens) directory)
616             (type (or string pattern component-tokens) name type)             (type (or string pattern component-tokens) name type)
617             (type (or integer component-tokens (member :newest)) version)             (type (or integer component-tokens (member :newest)) version)
# Line 1164  a host-structure or string." Line 1164  a host-structure or string."
1164                   (when (listp match)                   (when (listp match)
1165                     (error ":WILD-INFERIORS not paired in from and to ~                     (error ":WILD-INFERIORS not paired in from and to ~
1166                             patterns:~%  ~S ~S" from to))                             patterns:~%  ~S ~S" from to))
1167                   (maybe-diddle-case match diddle-case)))                   (res (maybe-diddle-case match diddle-case))))
1168                ((member :wild-inferiors)                ((member :wild-inferiors)
1169                 (assert subs-left)                 (assert subs-left)
1170                 (let ((match (pop subs-left)))                 (let ((match (pop subs-left)))
# Line 1178  a host-structure or string." Line 1178  a host-structure or string."
1178                     (new new-subs-left)                     (new new-subs-left)
1179                     (substitute-into to-part subs-left diddle-case)                     (substitute-into to-part subs-left diddle-case)
1180                   (setf subs-left new-subs-left)                   (setf subs-left new-subs-left)
1181                   new))                   (res new)))
1182                (t (res to-part)))))                (t (res to-part)))))
1183          (res))))          (res))))
1184    

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.31.2.1

  ViewVC Help
Powered by ViewVC 1.1.5