Changeset 11738 for trunk/source/level-1


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-files.lisp

    r11629 r11738  
    491491
    492492(defun %path-from-stream (stream)
    493   (or (stream-filename stream) (error "Can't determine pathname of ~S ." stream)))      ; ???
     493  (or (pathname (stream-filename stream)) (error "Can't determine pathname of ~S ." stream)))      ; ???
    494494
    495495;Like (pathname stream) except returns NIL rather than error when there's no
     
    11491149        (kind nil))
    11501150    (when full-name
    1151       (when (eq (pathname-host file-name) :unspecific) ;; if physical pathname to begin with, force absolute
    1152         (setq file-name full-name))
    11531151      (let ((file-type (pathname-type full-name)))
    11541152        (if (and file-type (neq file-type :unspecific))
Note: See TracChangeset for help on using the changeset viewer.