From c4ee2160339afd4cd4b8cb3cd1da5ad900129252 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 13 Apr 2004 17:19:35 +0000 Subject: [PATCH] r8996: support memory database in probe-database --- ChangeLog | 2 ++ db-sqlite/sqlite-sql.lisp | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 684b589..1bbbb26 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,8 @@ * Version 2.6.12 * base/transactions.lisp: Add quote for macro expansion of WITH-TRANSACTIONS [Time Howe] + * db-sqlite/sqlite-sql.lisp: Support memory database + in database-probe [Ng Pheng Siong] 12 Apr 2004 Kevin Rosenberg (kevin@rosenberg.net) * Version 2.6.11 diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp index bc93bb8..1f3c158 100644 --- a/db-sqlite/sqlite-sql.lisp +++ b/db-sqlite/sqlite-sql.lisp @@ -298,7 +298,9 @@ (defmethod database-probe (connection-spec (type (eql :sqlite))) (destructuring-bind (name) connection-spec - ;; TODO: Add a test that this file is a real sqlite database - (and (probe-file name) t))) + ;; TODO: Add a test that this file is a real sqlite database + (or (string-equal ":memory:" name) + (and (probe-file name) t)))) + -- 2.34.1