Changeset 11

Timestamp:

02/14/06 17:56:21 (3 years ago)

Author:

banderson

Message:

bad hack to get around endless loop - this is *not* the permanent solution, because James Anderson already reported it doesn't work for his Lisp (some *MCL). However, this works for SBCL.

Files:

• branches/sbcl-0.9.x-testing/code/base/utils.lisp (modified) (2 diffs)

branches/sbcl-0.9.x-testing/code/base/utils.lisp

@@ -394 +394 @@
                  default-path (path defaults))
            (return))
-          (string (setf defaults (make-uri defaults nil)))
+          (string (return)) ;;(setf defaults (make-uri defaults nil)))
           (pathname (setf defaults (pathname-file-url defaults)))
           (urn (return))
@@ -591 +591 @@
            (let ((host (pathname-host pathname)))
              (when (eq host :unspecific) (setf host nil))
+             #+sbcl
+             (progn
+               (setf host nil)
+               (setf pathname (translate-logical-pathname pathname)))
+
              (pathname-file-url (format nil "file://~@[~a~]/~{~a/~}~a~@[.~a~]"
                                         host