[elephant-cvs] CVS elephant/src/db-clsql
ieslick
ieslick at common-lisp.net
Mon Feb 5 00:32:27 UTC 2007
Update of /project/elephant/cvsroot/elephant/src/db-clsql
In directory clnet:/tmp/cvs-serv20360/src/db-clsql
Modified Files:
sql-controller.lisp
Log Message:
Enable use of %bignum-ref under sbcl; update TODO list and roadmap
--- /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp 2007/02/04 04:34:56 1.15
+++ /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp 2007/02/05 00:32:27 1.16
@@ -340,7 +340,9 @@
(declare (ignore recover recover-fatal thread))
(the sql-store-controller
(let* ((dbtype (car (second (controller-spec sc))))
- (new-p (not (probe-file (cadr (second (controller-spec sc))))))
+ (path (cadr (second (controller-spec sc))))
+ (new-p (or (eq :memory path)
+ (not (probe-file path))))
(con (clsql:connect (cdr (second (controller-spec sc)))
:database-type dbtype
:if-exists :old)))
More information about the Elephant-cvs
mailing list