/[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.29 by pw, Sun Feb 9 22:49:30 1997 UTC revision 1.30 by pw, Tue Feb 11 21:27:31 1997 UTC
# Line 247  Line 247 
247    
248  ;;; PATTERN-MATCHES -- Internal  ;;; PATTERN-MATCHES -- Internal
249  ;;;  ;;;
250  ;;;   If the string matches the pattern returns the multiple valuse T and a  ;;;   If the string matches the pattern returns the multiple values T and a
251  ;;; list of the matched strings.  ;;; list of the matched strings.
252  ;;;  ;;;
253  (defun pattern-matches (pattern string)  (defun pattern-matches (pattern string)
# Line 1577  a host-structure or string." Line 1577  a host-structure or string."
1577                      (directory :relative)                      (directory :relative)
1578                      (parse-directory (cdr chunks)))                      (parse-directory (cdr chunks)))
1579                     (t                     (t
1580                      (directory :absolute)                      (directory :absolute) ; Assumption! Maybe revoked later.
1581                      (parse-directory chunks))))                      (parse-directory chunks))))
1582                 (parse-directory (chunks)                 (parse-directory (chunks)
1583                   (case (caadr chunks)                   (case (caadr chunks)
# Line 1635  a host-structure or string." Line 1635  a host-structure or string."
1635                            :namestring namestr                            :namestring namestr
1636                            :offset (cdadr chunks)))))                            :offset (cdadr chunks)))))
1637          (parse-host (logical-chunkify namestr start end)))          (parse-host (logical-chunkify namestr start end)))
1638        (values host :unspecific (directory) name type version))))        (values host :unspecific
1639                  (and (not (equal (directory)'(:absolute)))(directory))
1640                  name type version))))
1641    
1642    
1643  ;;; Can't defvar here because not all host methods are loaded yet.  ;;; Can't defvar here because not all host methods are loaded yet.

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

  ViewVC Help
Powered by ViewVC 1.1.5