-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-(in-package :asdf)
-
-;; For use with non-Common Lisp Controller installations
-#-common-lisp-controller
-(let ((path (make-pathname :name "set-logical" :type "cl"
- :defaults *load-truename*)))
- (when (probe-file path)
- (load path)
- (set-logical-host-for-pathname
- "uffi"
- (make-pathname :host (pathname-host *load-truename*)
- :device (pathname-device *load-truename*)
- :directory (pathname-directory *load-truename*)))))
-
-(defconstant +uffi-logical-host+
- #+common-lisp-controller "cl-library"
- #-common-lisp-controller "uffi"
- "Logical hostname for loading system")
-
-(defclass uffi-cl-source-file (cl-source-file) ())
-(defmethod source-file-type ((c uffi-cl-source-file) (s module))
- "cl")