Changeset 11738

Timestamp:

Feb 16, 2009, 1:38:41 PM (11 years ago)

Author:

gb

Message:

In %PATH-FROM-STREAM: coerce STREAM-FILENAME result to pathname.

In FIND-LOAD-FILE: don't set file-name to full-name, for whatever
reason this was doing that ... Should fix ticket:435.

File:

• trunk/source/level-1/l1-files.lisp (modified) (2 diffs)

trunk/source/level-1/l1-files.lisp

@@ -491 +491 @@
 
 (defun %path-from-stream (stream)
-  (or (stream-filename stream) (error "Can't determine pathname of ~S ." stream)))      ; ???
+  (or (pathname (stream-filename stream)) (error "Can't determine pathname of ~S ." stream)))      ; ???
 
 ;Like (pathname stream) except returns NIL rather than error when there's no
@@ -1149 +1149 @@
         (kind nil))
     (when full-name
-      (when (eq (pathname-host file-name) :unspecific) ;; if physical pathname to begin with, force absolute
-        (setq file-name full-name))
       (let ((file-type (pathname-type full-name)))
         (if (and file-type (neq file-type :unspecific))