Ignore:
Timestamp:
Feb 17, 2009, 4:19:15 AM (11 years ago)
Author:
rme
Message:

Merge trunk changes through r11740.

File:
1 edited

Legend:

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

    r11629 r11747  
    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.