[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