/[cmucl]/src/code/pathname.lisp
ViewVC logotype

Diff of /src/code/pathname.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by ram, Wed Aug 4 09:39:25 1993 UTC revision 1.21 by ram, Wed Aug 4 10:40:25 1993 UTC
# Line 399  Line 399 
399                   (etypecase ,var                   (etypecase ,var
400                     (pathname ,var)                     (pathname ,var)
401                     (string (parse-namestring ,var))                     (string (parse-namestring ,var))
402                     (stream (parse-namestring (file-name ,var)))))))                     (stream (file-name ,var))))))
403       ,@body))       ,@body))
404    
405  ;;; WITH-HOST -- Internal  ;;; WITH-HOST -- Internal
# Line 829  Line 829 
829                    hosts-name (%pathname-host thing))))                    hosts-name (%pathname-host thing))))
830         (values thing start))         (values thing start))
831        (stream        (stream
832         ;; ### file-name really ought to retain the original pathname so that we         (let ((name (file-name thing)))
833         ;; know if it was logical.           (unless name
        (let ((namestr (file-name thing)))  
          (unless namestr  
834             (error "Can't figure out the file associated with stream:~%  ~S"             (error "Can't figure out the file associated with stream:~%  ~S"
835                    thing))                    thing))
836           (%parse-namestring namestr host defaults 0 nil nil)))))           name))))
837    
838    
839  ;;; NAMESTRING -- Interface  ;;; NAMESTRING -- Interface
# Line 1211  Line 1209 
1209    ;;    ;;
1210    ;; The list of expansions for this search-list.  Each expansion is the list    ;; The list of expansions for this search-list.  Each expansion is the list
1211    ;; of directory components to use in place of this search-list.    ;; of directory components to use in place of this search-list.
1212    (%expansions (%primitive c:make-value-cell nil)));  :type list))    (expansions nil :type list))
   
 (defun search-list-expansions (x)  
   (%primitive c:value-cell-ref (search-list-%expansions x)))  
   
 (defun (setf search-list-expansions) (val x)  
   (%primitive c:value-cell-set (search-list-%expansions x) val))  
1213    
1214  (defun %print-search-list (sl stream depth)  (defun %print-search-list (sl stream depth)
1215    (declare (ignore depth))    (declare (ignore depth))
# Line 1382  Line 1374 
1374           ,result))))           ,result))))
1375    
1376  (defun %enumerate-search-list (pathname function)  (defun %enumerate-search-list (pathname function)
1377    (let ((search-list (extract-search-list    (let* ((pathname (translate-logical-pathname pathname))
1378                        (translate-logical-pathname pathname)           (search-list (extract-search-list pathname nil)))
                       nil)))  
1379      (cond      (cond
1380       ((not search-list)       ((not search-list)
1381        (funcall function pathname))        (funcall function pathname))

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

  ViewVC Help
Powered by ViewVC 1.1.5