[PRINT-OBJECT method for db access objects
clinton@unknownlamer.org**20101223204108
 Ignore-this: c190c80c856acb4fba7ab54bcf7266c7
 * Display the object-id if it has one
] hunk ./src/db-access-object.lisp 99
+(defmethod print-object ((object standard-db-access-object) stream)
+  (print-unreadable-object (object stream :type t :identity t)
+    (ignore-errors
+      (format stream ":~S ~S"
+	      (class-id-column-name (class-of object))
+	      (object-id object)))))
+