;;;; *************************************************************************
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
;;;; *************************************************************************
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
(defclass uffi-cl-source-file (cl-source-file) ())
(defmethod source-file-type ((c uffi-cl-source-file) (s module))
"cl")
(defclass uffi-cl-source-file (cl-source-file) ())
(defmethod source-file-type ((c uffi-cl-source-file) (s module))
"cl")
- #-mcl #.(format nil "~A:uffi;" cl-user:+clsql-logical-host+)
- #+mcl #.(format nil "~A:uffi;mcl;" cl-user:+clsql-logical-host+)
+ #-mcl #.(format nil "~A:uffi;" +uffi-logical-host+)
+ #+mcl #.(format nil "~A:uffi;mcl;" +uffi-logical-host+)