From: Kevin M. Rosenberg Date: Wed, 3 Jan 2007 09:20:18 +0000 (+0000) Subject: r11440: + * clsql.asd: Also check ~/.clsql-init.lisp at load-time (usually... X-Git-Tag: v3.8.6~27 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=b0d8b82d162436bf2a7406b4cea489084c232a85 r11440: + * clsql.asd: Also check ~/.clsql-init.lisp at load-time (usually used to + push search libraries --- diff --git a/ChangeLog b/ChangeLog index c43f423..1d9bcbc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 31 Dec 2006 Kevin Rosenberg * sql/metaclasses.lisp: Remove usused saved-initargs + * clsql.asd: Also check ~/.clsql-init.lisp at load-time (usually used to + push search libraries) 30 Dec 2006 Kevin Rosenberg * Version 3.8.0: BACKWARD INCOMPATABLE CHANGE! diff --git a/clsql.asd b/clsql.asd index 26ee04f..0d564b6 100644 --- a/clsql.asd +++ b/clsql.asd @@ -99,6 +99,9 @@ oriented interface." (defmethod perform :after ((o load-op) (c (eql (find-system 'clsql)))) (let* ((init-var (uffi:getenv "CLSQLINIT")) (init-file (or (when init-var (probe-file init-var)) + (merge-pathnames + (make-pathname :name ".clsql-init" :type "lisp") + (user-homedir-pathname)) (probe-file "/etc/clsql-init.lisp") #+(or mswin windows win32) (probe-file "c:\\etc\\clsql-init.lisp"))))