[osicat-cvs] CVS update: src/osicat.lisp src/packages.lisp

[Nikodemus Siivola]

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)