patch for clsql.asd

This patch adds search of initialization file on a environment variable
CLSQLINIT for clisp.

Possible it append?

File clsql.asd.diff
=======================================================================
--- clsql.asd   Tue Jul  5 16:51:52 2005
+++ clsql.asd   Fri Nov  4 07:54:09 2005
@@ -85,6 +85,13 @@
   (operate 'test-op 'clsql-tests :force t))

 (defmethod perform :after ((o load-op) (c (eql (find-system 'clsql))))
+  #-clisp
   (when (probe-file "/etc/clsql-init.lisp")
-    (load "/etc/clsql-init.lisp")))
+    (load "/etc/clsql-init.lisp"))
+  #+clisp
+  (let ((init-file (or (probe-file (ext:getenv "CLSQLINIT"))
+                       (probe-file "/etc/clsql-init.lisp"))))
+    (when init-file (load init-file))))


Thanks!

-- 
WBR, Yaroslav Kavenchuk.