Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv7647/src/elephant
Modified Files: backend.lisp classes.lisp Log Message: Fixed all but one outstanding bug in test suite; cur-del2 on SBCL with SQL backend fails; duplicate sorting dependencies removed from test suite
--- /project/elephant/cvsroot/elephant/src/elephant/backend.lisp 2007/02/03 14:07:01 1.9 +++ /project/elephant/cvsroot/elephant/src/elephant/backend.lisp 2007/02/04 10:08:27 1.10 @@ -77,6 +77,9 @@ #:remove-indexed-element-and-adjust #:register-backend-con-init #:lookup-backend-con-init + + ;; Lisp specific + #+(or sbcl cmu) #:%bignum-ref ) (:export ;; Variables --- /project/elephant/cvsroot/elephant/src/elephant/classes.lisp 2007/02/02 23:51:58 1.10 +++ /project/elephant/cvsroot/elephant/src/elephant/classes.lisp 2007/02/04 10:08:27 1.11 @@ -268,8 +268,8 @@ "Deletes the slot from the database." (declare (optimize (speed 3))) ;; NOTE: call remove-indexed-slot here instead? - (when (indexed slot-def) - (unregister-indexed-slot class (slot-definition-name slot-def))) +;; (when (indexed slot-def) +;; (unregister-indexed-slot class (slot-definition-name slot-def))) (persistent-slot-makunbound (get-con instance) instance (slot-definition-name slot-def)))
;; ======================================================