X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fdb-interface.lisp;h=0d67bb0147a25e7a85e581bedbbab6f620cfcee3;hb=11261eca2090842638d1b3b7c12b7cc1f6d58f09;hp=d1466e780cae8c38cf6907a5f8ec91dad95f4821;hpb=43cf0db7885a60d71132fe8ede3285c43d961efe;p=clsql.git

diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp
index d1466e7..0d67bb0 100644
--- a/sql/db-interface.lisp
+++ b/sql/db-interface.lisp
@@ -452,4 +452,11 @@ of TYPE_NAME (keyword) PRECISION SCALE NULLABLE.")
   (unless (is-database-open database)
     (signal-closed-database-error database)))
 
-
+(defvar *foreign-library-search-paths* nil
+  "A list of pathnames denoting directories where CLSQL will look
+for foreign libraries \(in addition to the default places).")
+
+(defun push-library-path (path)
+  "Adds the pathspec PATH \(which should denote a directory) to
+the list *FOREIGN-LIBRARY-SEARCH-PATHS*."
+  (push path *foreign-library-search-paths*))
\ No newline at end of file