/[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.45 by pw, Tue Mar 13 02:10:29 2001 UTC revision 1.46 by pw, Wed Mar 14 13:44:18 2001 UTC
# Line 1496  a host-structure or string." Line 1496  a host-structure or string."
1496  (defun find-logical-host (thing &optional (errorp t))  (defun find-logical-host (thing &optional (errorp t))
1497    (etypecase thing    (etypecase thing
1498      (string      (string
1499       (let ((found (gethash (logical-word-or-lose thing)       (let ((found (or (gethash (logical-word-or-lose thing)
1500                             *logical-hosts*)))                                 *logical-hosts*)
1501                          (and *autoload-translations*
1502                               (handler-case
1503                                   (load-logical-pathname-translations thing)
1504                                 (error () nil))
1505                               (gethash (logical-word-or-lose thing)
1506                                        *logical-hosts*)))))
1507         (if (or found (not errorp))         (if (or found (not errorp))
1508             found             found
1509             (error 'simple-file-error             (error 'simple-file-error
# Line 1506  a host-structure or string." Line 1512  a host-structure or string."
1512                    :format-arguments (list thing)))))                    :format-arguments (list thing)))))
1513      (logical-host thing)))      (logical-host thing)))
1514    
   
1515  ;;; INTERN-LOGICAL-HOST -- Internal  ;;; INTERN-LOGICAL-HOST -- Internal
1516  ;;;  ;;;
1517  ;;;   Given a logical host name or host, return a logical host, creating a new  ;;;   Given a logical host name or host, return a logical host, creating a new

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

  ViewVC Help
Powered by ViewVC 1.1.5