# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1718937118 14400
# Node ID 5c58d05abae6f87ab218442868050e65939e59f8
# Parent  81b7333f27f885ca4be61998462cd112e1d3116f
rm trashfile

diff -r 81b7333f27f8 -r 5c58d05abae6 examples/db/colordb.lisp
--- a/examples/db/colordb.lisp	Sun Jun 16 22:15:04 2024 -0400
+++ b/examples/db/colordb.lisp	Thu Jun 20 22:31:58 2024 -0400
@@ -0,0 +1,5 @@
+;;; colordb.lisp --- Color Database Example
+
+;; 
+
+;;; Code:
diff -r 81b7333f27f8 -r 5c58d05abae6 examples/db/mbdb.lisp
--- a/examples/db/mbdb.lisp	Sun Jun 16 22:15:04 2024 -0400
+++ b/examples/db/mbdb.lisp	Thu Jun 20 22:31:58 2024 -0400
@@ -61,7 +61,9 @@
 database and on exit the database must be closed.")
 
 (declaim (oracle *mbdb-oracle*))
-(defvar *mbdb-oracle* (make-oracle sb-thread:*current-thread*)
+(defvar *mbdb-oracle* (multiple-value-bind (id thread) (make-oracle sb-thread:*current-thread*)
+                        (declare (ignore id))
+                        thread)
   "The oracle assigned to the mbdb system, which should usually be the current thread.")
 
 (declaim (task-pool *mbdb-tasks*))
diff -r 81b7333f27f8 -r 5c58d05abae6 examples/db/readme.txt
--- a/examples/db/readme.txt	Sun Jun 16 22:15:04 2024 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1 +0,0 @@
-This directory contains database examples.
diff -r 81b7333f27f8 -r 5c58d05abae6 examples/examples.asd
--- a/examples/examples.asd	Sun Jun 16 22:15:04 2024 -0400
+++ b/examples/examples.asd	Thu Jun 20 22:31:58 2024 -0400
@@ -1,5 +1,5 @@
 (defsystem :examples
-  :depends-on (:prelude)
+  :depends-on (:user)
   :components 
   ((:module "clos"
     :components ((:file "pkg")