;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: clsql.system,v 1.9 2002/05/13 00:45:10 kevin Exp $
+;;;; $Id: clsql.system,v 1.12 2002/05/13 05:24:57 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
(in-package :cl-user)
-(handler-case
- (logical-pathname-translations "CL-LIBRARY")
- (error ()
- (load (make-pathname :name "set-cl-library" :type "cl"
- :defaults *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)))
;;; System definitions
(:file "utils")
(:file "functional" :depends-on ("sql"))
(:file "usql" :depends-on ("sql")))
- :depends-on (:clsql-base)
+ :depends-on (:clsql-base :cmucl-compat)
:finally-do
(pushnew :clsql cl:*features*)
)