1.1--- a/examples/db/colordb.lisp	Sun Jun 16 22:15:04 2024 -0400
     1.2+++ b/examples/db/colordb.lisp	Thu Jun 20 22:31:58 2024 -0400
     1.3@@ -0,0 +1,5 @@
     1.4+;;; colordb.lisp --- Color Database Example
     1.5+
     1.6+;; 
     1.7+
     1.8+;;; Code:

     2.1--- a/examples/db/mbdb.lisp	Sun Jun 16 22:15:04 2024 -0400
     2.2+++ b/examples/db/mbdb.lisp	Thu Jun 20 22:31:58 2024 -0400
     2.3@@ -61,7 +61,9 @@
     2.4 database and on exit the database must be closed.")
     2.5 
     2.6 (declaim (oracle *mbdb-oracle*))
     2.7-(defvar *mbdb-oracle* (make-oracle sb-thread:*current-thread*)
     2.8+(defvar *mbdb-oracle* (multiple-value-bind (id thread) (make-oracle sb-thread:*current-thread*)
     2.9+                        (declare (ignore id))
    2.10+                        thread)
    2.11   "The oracle assigned to the mbdb system, which should usually be the current thread.")
    2.12 
    2.13 (declaim (task-pool *mbdb-tasks*))

     3.1--- a/examples/db/readme.txt	Sun Jun 16 22:15:04 2024 -0400
     3.2+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     3.3@@ -1,1 +0,0 @@
     3.4-This directory contains database examples.

     4.1--- a/examples/examples.asd	Sun Jun 16 22:15:04 2024 -0400
     4.2+++ b/examples/examples.asd	Thu Jun 20 22:31:58 2024 -0400
     4.3@@ -1,5 +1,5 @@
     4.4 (defsystem :examples
     4.5-  :depends-on (:prelude)
     4.6+  :depends-on (:user)
     4.7   :components 
     4.8   ((:module "clos"
     4.9     :components ((:file "pkg")