Update of /project/osicat/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv5559
Modified Files: osicat.lisp packages.lisp Log Message:
* Arrgh. It seems that SBCL at least doesn't like pathname types with dots anymore, so make sure that all the dots end up in the name.
Date: Sun Apr 25 07:16:25 2004 Author: nsiivola
Index: src/osicat.lisp diff -u src/osicat.lisp:1.21 src/osicat.lisp:1.22 --- src/osicat.lisp:1.21 Sun Apr 25 07:02:24 2004 +++ src/osicat.lisp Sun Apr 25 07:16:25 2004 @@ -168,7 +168,7 @@ (make-pathname :directory `(:relative ,name))) (t - (let ((dotpos (position #. name))) + (let ((dotpos (position #. name :from-end t))) (if (and dotpos (plusp dotpos)) (make-pathname :name (subseq name 0 dotpos)
Index: src/packages.lisp diff -u src/packages.lisp:1.8 src/packages.lisp:1.9 --- src/packages.lisp:1.8 Thu Apr 22 20:01:20 2004 +++ src/packages.lisp Sun Apr 25 07:16:25 2004 @@ -34,7 +34,8 @@
When a relative pathname designator is used as a directory designator it is first resolved agains *default-pathname-default*, and then - against the current directory. (With MERGE-PATHNAMES in both cases.)") + against the current directory. (With MERGE-PATHNAMES in both cases.) +") (:shadow ;; DIRECTORY is used as constant internally. Let's not confuse other packages. #:directory)