Commit c728f776 authored by Henrik Hjelte's avatar Henrik Hjelte
Browse files

db-postmodern print-object on cursor

darcs-hash:3e016e32c56ede0b90dce4b86245fd9a111c43e2
parent ef716bfb
Loading
Loading
Loading
Loading
+7 −0
Original line number Diff line number Diff line
@@ -12,6 +12,13 @@
   (val :accessor current-value-field :initform nil))
  (:documentation "A SQL cursor for traversing (primary) BTrees."))

(defmethod print-object ((cursor pm-cursor) stream)
  (print-unreadable-object (cursor stream :type t :identity t)
    (format stream "name:~a cur-key:~S cur-val:~S"
            (db-cursor-name-of cursor)
            (current-key-field cursor)
            (current-value-field cursor))))

(defmethod make-cursor ((bt pm-btree))
  (make-instance 'pm-cursor 
		 :btree bt