Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
691d4683
Commit
691d4683
authored
Dec 18, 1991
by
wlott
Browse files
Allow NIL components to be matched by :multi-char-wild.
parent
e71339fb
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/pathname.lisp
View file @
691d4683
...
@@ -6,7 +6,7 @@
...
@@ -6,7 +6,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
;;;
(
ext:file-comment
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.
2
1991/12/18
11:40:52
wlott Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.
3
1991/12/18
22:35:03
wlott Exp $"
)
;;;
;;;
;;; **********************************************************************
;;; **********************************************************************
;;;
;;;
...
@@ -667,7 +667,7 @@
...
@@ -667,7 +667,7 @@
(
and
(
consp
that
)
(
and
(
consp
that
)
(
components-match
(
car
this
)
(
car
that
))
(
components-match
(
car
this
)
(
car
that
))
(
components-match
(
cdr
this
)
(
cdr
that
))))
(
components-match
(
cdr
this
)
(
cdr
that
))))
((
member
:back
:up
:unspecific
)
((
member
:back
:up
:unspecific
nil
)
(
and
(
pattern-p
that
)
(
and
(
pattern-p
that
)
(
equal
(
pattern-pieces
that
)
'
(
:multi-char-wild
)))))))
(
equal
(
pattern-pieces
that
)
'
(
:multi-char-wild
)))))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment