diff --git a/code/pathname.lisp b/code/pathname.lisp index c0b39a81981cac392efed78696b324ab811f3e72..e185147f66f819b35421a9bce77f0124b22bc423 100644 --- a/code/pathname.lisp +++ b/code/pathname.lisp @@ -6,7 +6,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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 @@ (and (consp that) (components-match (car this) (car that)) (components-match (cdr this) (cdr that)))) - ((member :back :up :unspecific) + ((member :back :up :unspecific nil) (and (pattern-p that) (equal (pattern-pieces that) '(:multi-char-wild)))))))