[Linedit-cvs] CVS update: src/complete.lisp

[Nikodemus Siivola]

Update of /project/linedit/cvsroot/src
In directory common-lisp.net:/tmp/cvs-serv11107

Modified Files:
	complete.lisp 
Log Message:

* Define RELATIVE-PATHNAME-P conditionally.

Date: Sun Apr 25 09:53:27 2004
Author: nsiivola

Index: src/complete.lisp
diff -u src/complete.lisp:1.8 src/complete.lisp:1.9
--- src/complete.lisp:1.8	Sun Apr 25 07:40:18 2004
+++ src/complete.lisp	Sun Apr 25 09:53:27 2004
@@ -31,10 +31,13 @@
     (:symbolic-link 
      (file-kind (merge-pathnames (read-link pathname) pathname)))))
 
-(defun relative-pathname-p (pathname)
-  (let ((dir (pathname-directory pathname)))
-    (or (null dir)
-	(eq :relative (car dir)))))
+;;; KLUDGE: now exported from Osicat, but will work with older versions
+;;; for a while.
+#.(when (eq (find-package :osicat) (symbol-package 'relative-pathname-p))
+    '(defun relative-pathname-p (pathname)
+      (let ((dir (pathname-directory pathname)))
+	(or (null dir)
+	    (eq :relative (car dir))))))
 
 (defun logical-pathname-p (pathname)
   (typep (pathname pathname) 'logical-pathname))