From b0d8b82d162436bf2a7406b4cea489084c232a85 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 3 Jan 2007 09:20:18 +0000 Subject: [PATCH] r11440: + * clsql.asd: Also check ~/.clsql-init.lisp at load-time (usually used to + push search libraries --- ChangeLog | 2 ++ clsql.asd | 3 +++ 2 files changed, 5 insertions(+) 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")))) -- 2.34.1