Changeset 11738
- Timestamp:
- Feb 16, 2009, 1:38:41 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-files.lisp
r11629 r11738 491 491 492 492 (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))) ; ??? 494 494 495 495 ;Like (pathname stream) except returns NIL rather than error when there's no … … 1149 1149 (kind nil)) 1150 1150 (when full-name 1151 (when (eq (pathname-host file-name) :unspecific) ;; if physical pathname to begin with, force absolute1152 (setq file-name full-name))1153 1151 (let ((file-type (pathname-type full-name))) 1154 1152 (if (and file-type (neq file-type :unspecific))
Note: See TracChangeset
for help on using the changeset viewer.