From: Nikodemus S. <de...@us...> - 2006-08-10 12:48:48
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv3418/tests Modified Files: pathnames.impure.lisp Log Message: 0.9.15.25: COMPILE-FILE-PATHNAME when output-file doesn't have a type * Bug reported by Robert Dodier. Index: pathnames.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/pathnames.impure.lisp,v retrieving revision 1.33 retrieving revision 1.34 diff -u -d -r1.33 -r1.34 --- pathnames.impure.lisp 10 Aug 2006 05:55:23 -0000 1.33 +++ pathnames.impure.lisp 10 Aug 2006 12:48:45 -0000 1.34 @@ -400,5 +400,12 @@ (assert (eq :false (if (ignore-errors (merge-pathnames sb-sys::*tty*)) :true :false))) +;;; This used to return "quux/bar.lisp" +(assert (equal #p"quux/bar.fasl" + (let ((*default-pathname-defaults* #p"quux/")) + (compile-file-pathname "foo.lisp" :output-file "bar")))) +(assert (equal #p"quux/bar.fasl" + (let ((*default-pathname-defaults* #p"quux/")) + (compile-file-pathname "bar.lisp")))) ;;;; success |