[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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)))
 
 ;; ======================================================