Skip to content
Snippets Groups Projects
Commit 39b24833 authored by rtoy's avatar rtoy
Browse files

CMUCL intended to support things like [abc] in namestrings, but a typo

prevented it.  Fix the typos.
parent 049cd867
No related branches found
No related tags found
No related merge requests found
......@@ -6,7 +6,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.80 2004/06/02 09:12:24 emarsden Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.81 2004/06/02 14:46:08 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -379,7 +379,7 @@
(case (car piece)
(:character-set
(strings "[")
(strings (cdr piece))
(strings (second piece))
(strings "]"))
(t
(error "Invalid pattern piece: ~S" piece))))))
......
......@@ -4,7 +4,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.65 2004/05/18 13:24:42 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.66 2004/06/02 14:46:08 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -312,7 +312,7 @@
(:character-set
(and (< start len)
(let ((char (schar string start)))
(if (find char (cdr piece) :test #'char=)
(if (find char (second piece) :test #'char=)
(matches (cdr pieces) (1+ start) subs t
(cons char chars))))))))
((member :single-char-wild)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment