[ clocc-Bugs-1197720 ] path.lisp and sbcl

Bugs item #1197720, was opened at 2005-05-08 18:06
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101802&aid=1197720&group_id=1802

Category: port
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Friedrich (fdominicus)
Assigned to: Sam Steingold (sds)
Summary: path.lisp and sbcl

Initial Comment:
This if not a fully fledged patch just a  full
replacement, cmucl and sbcl (at least  SBCL 0.9.x
differ somewhat in where *logical-hosts* is declared,
here's the modified logical-host-p function 

(defun logical-host-p (word)
  "Check whether this word has already been defined as
a logical host."
  #+(or clisp lispworks)
  (gethash (string-upcase word)
SYSTEM::*LOGICAL-PATHNAME-TRANSLATIONS*)
  #+cmucl 
  (gethash (string-upcase word) LISP::*LOGICAL-HOSTS*)
  #+sbcl
  (gethash (string-upcase word) sb-impl::*LOGICAL-HOSTS*)
  #-(or clisp cmucl lispworks sbcl)
  (ignore-errors (logical-pathname-translations word)))

Regards
Friedrich

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101802&aid=1197720&group_id=1802


-------------------------------------------------------
This SF.Net email is sponsored by Oracle Space Sweepstakes
Want to be the first software developer in space?
Enter now for the Oracle Space Sweepstakes!
http://ads.osdn.com/?ad_id=7412&alloc_id=16344&op=click