[gsharp-cvs] CVS gsharp/Flexichain

[tmoore]

Update of /project/gsharp/cvsroot/gsharp/Flexichain
In directory clnet:/tmp/cvs-serv3429

Modified Files:
	flexirank.lisp utilities.lisp 
Log Message:
Weak pointers for Allegro Common Lisp. Yes, I know this isn't the preferred repository for Flexichains anymore

--- /project/gsharp/cvsroot/gsharp/Flexichain/flexirank.lisp	2005/11/28 21:27:02	1.4
+++ /project/gsharp/cvsroot/gsharp/Flexichain/flexirank.lisp	2006/03/06 20:46:48	1.5
@@ -75,5 +75,5 @@
 (defmethod insert-vector* :after ((chain flexirank-mixin) position vector)
   (loop for elem across vector
 	for pos from position
-	do (setf (index elem) (position-index pos)
+	do (setf (index elem) (position-index chain pos)
 		 (chain elem) chain)))
--- /project/gsharp/cvsroot/gsharp/Flexichain/utilities.lisp	2005/01/15 08:43:50	1.3
+++ /project/gsharp/cvsroot/gsharp/Flexichain/utilities.lisp	2006/03/06 20:46:48	1.4
@@ -40,8 +40,11 @@
 ;;;
 ;;; TODO: check other CL implementations behavior wrt. return values
 (defclass weak-pointer-container-mixin ()
-  (#+openmcl
-   (weak-hash :initform (make-hash-table :test #'eq :weak :value)))
+  (#+(or openmcl allegro)
+   (weak-hash :initform (make-hash-table :test #'eq
+					 ;; Get it together guys!
+					 #+openmcl :weak #+openmcl :value
+					 #+allegro :values #+allegro :weak)))
   (:documentation "Support for weak references, if needed"))
 
 (defgeneric make-weak-pointer (object container))
@@ -52,7 +55,7 @@
     #+cmu (extensions:make-weak-pointer object)
     #+sbcl (sb-ext:make-weak-pointer object))
 
-#+openmcl
+#+(or openmcl allegro)
 (defmethod make-weak-pointer (object (container weak-pointer-container-mixin))
   (let ((key (cons nil nil)))
     (setf (gethash key (slot-value container 'weak-hash)) object)
@@ -66,15 +69,15 @@
   #+cmu (extensions:weak-pointer-value weak-pointer)
   #+sbcl (sb-ext:weak-pointer-value weak-pointer))
 
-#+openmcl
+#+(or openmcl allegro)
 (defmethod weak-pointer-value
     (weak-pointer (container weak-pointer-container-mixin))
   (gethash weak-pointer (slot-value container 'weak-hash) nil))
 
-#-(or sbcl cmu openmcl)
+#-(or sbcl cmu openmcl allegro)
 (progn
   (eval-when (:evaluate :compile-toplevel :load-toplevel)
-    (warning "No support for weak pointers in this implementation. Things may
+    (warn "No support for weak pointers in this implementation. Things may
 get big and slow")
     )
   (defmethod make-weak-pointer (object container)