-(load (make-pathname :name "set-logical" :type "cl"
- :defaults *load-truename*))
-
-(set-logical-host-for-pathname "UFFI" *load-truename*)
-(set-logical-host-for-pathname "UFFI-SRC"
- (merge-pathnames
- (make-pathname
- :directory
- #+(or cmu allegro lispworks)
- '(:relative "src")
- #+mcl
- '(:relative "src" "mcl")
- )
- *load-truename*))
+;; For use with non-Debian installations
+(let ((helper-pathname (make-pathname :name "set-cl-library" :type "cl"
+ :defaults *load-truename*)))
+ (when (probe-file helper-pathname)
+ (load helper-pathname)))