Commit 0e675173 authored by Henrik Hjelte's avatar Henrik Hjelte
Browse files

db-postmodern print-object on pm-btree

darcs-hash:48fc4a33620ab2a503109576d9f56f18ad8a0d98
parent 5c8e39b1
Loading
Loading
Loading
Loading
+5 −0
Original line number Diff line number Diff line
@@ -6,6 +6,11 @@
   (value-type :accessor value-type-of :initform :object))
  (:documentation "A SQL implementation of a BTree"))

(defmethod print-object ((pm-btree pm-btree) stream)
  (print-unreadable-object (pm-btree stream :type t :identity t)
    (format stream "db-table:~a" (table-of pm-btree))))


(define-condition db-error (serious-condition) ())
(define-condition bad-db-parameter (db-error) ())
(define-condition suspicios-db-parameter (warning) ())