-;; 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)))
-
-(unless (ignore-errors (find-class 'clsql-cl-source-file))
- (defclass clsql-cl-source-file (cl-source-file) ())
- (defmethod source-file-type ((c clsql-cl-source-file) (s module))
- "cl"))
-
- ;;; System definitions
-