[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
trivial patch 3
> ;;; Splits the filename into the name and type. If someone wants to change
> ;;; this yet again, just change this.
The original code treats a dotted filename, ".foo", as if it had an explicit
empty type. I think it ought to be simply non-specified, just like a non-dot
file (so if I have ".foo.lisp", I can say (compile-file ".foo") and get a
".foo.sparcf" file, and then (load ".foo")). IMHO...
-Miles
*** ./code/filesys.lisp.ORIG Sun Apr 28 08:23:17 1991
--- ./code/filesys.lisp Thu May 9 14:15:42 1991
***************
*** 155,163 ****
(defun split-filename (filename)
(declare (simple-string filename))
(let ((posn (position #\. filename :from-end t)))
! (cond ((null posn)
(values filename nil))
! ((or (zerop posn) (= posn (1- (length filename))))
(values filename ""))
(t
(values (subseq filename 0 posn)
--- 155,163 ----
(defun split-filename (filename)
(declare (simple-string filename))
(let ((posn (position #\. filename :from-end t)))
! (cond ((or (null posn) (zerop posn))
(values filename nil))
! ((= posn (1- (length filename)))
(values filename ""))
(t
(values (subseq filename 0 posn)