From 37162b43b254e54f0c897dde6d0522cb96249792 Mon Sep 17 00:00:00 2001 From: pmai <pmai> Date: Thu, 13 Dec 2001 13:45:08 +0000 Subject: [PATCH] Fix bug reported by Lynn Quam, which caused (pathname "*") to fail because of a missing bounds check. --- code/filesys.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/code/filesys.lisp b/code/filesys.lisp index f5184f6d9..b96f2122d 100644 --- a/code/filesys.lisp +++ b/code/filesys.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/filesys.lisp,v 1.64 2001/05/31 17:00:51 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.65 2001/12/13 13:45:08 pmai Exp $") ;;; ;;; ********************************************************************** ;;; @@ -202,7 +202,8 @@ (explicit-version namestr start end) (cond ((not (eq version :newest)) (values version where)) - ((and (char= (schar namestr (- end 1)) #\*) + ((and (>= (- end 2) start) + (char= (schar namestr (- end 1)) #\*) (char= (schar namestr (- end 2)) #\.) (find #\. namestr :start (min (1+ start) (- end 2)) -- GitLab