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)
(gethash (string-upcase word) LISP::*LOGICAL-HOSTS*)
(gethash (string-upcase word) sb-impl::*LOGICAL-HOSTS*)
#-(or clisp cmucl lispworks sbcl)
(ignore-errors (logical-pathname-translations word)))
Log in to post a comment.