Commit d00265c5 authored by rtoy's avatar rtoy
Browse files

Ignore shell wildcards when determining next version. 

Comment from Paul Foley:

  Problem: FD-OPEN calls NEXT-VERSION with the namestring;
  NEXT-VERSION calls EXTRACT-NAME-TYPE-AND-VERSION, which builds a
  "pattern" when it sees globbing characters in the name, and
  NEXT-VERSION promptly crashes when it tries to concatenate strings.

  Fix: Bind *IGNORE-WILDCARDS* to T in NEXT-VERSION (in
  fd-stream.lisp)
parent 201fb7a9

code/fd-stream.lisp

+3 −2
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@ 
;;; Carnegie Mellon University, and has been placed in the public domain.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.123 2011/02/17 02:55:45 rtoy Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.124 2011/05/31 13:14:39 rtoy Exp $")

;;;

;;; **********************************************************************

;;;
@@ -1948,7 +1948,8 @@ 
;;;

(defun next-version (name)

  (declare (type simple-string name))

  (let* ((sep (position #\/ name :from-end t))

  (let* ((*ignore-wildcards* t)

	 (sep (position #\/ name :from-end t))

	 (base (if sep (subseq name 0 (1+ sep)) ""))

	 (dir (unix:open-dir base)))

    (multiple-value-bind (name type version)