Update of /project/closure/cvsroot/closure/src/glisp In directory common-lisp.net:/tmp/cvs-serv16862/src/glisp
Modified Files: runes.lisp Log Message: make it at least compile and show a window with CMUCL 19a and cvs mcclim. Date: Sun Mar 13 20:24:11 2005 Author: gbaumann
Index: closure/src/glisp/runes.lisp diff -u closure/src/glisp/runes.lisp:1.4 closure/src/glisp/runes.lisp:1.5 --- closure/src/glisp/runes.lisp:1.4 Sun Mar 13 19:01:16 2005 +++ closure/src/glisp/runes.lisp Sun Mar 13 20:24:11 2005 @@ -345,13 +345,13 @@ #+CMU (unless (really-really-rod-p rod) (push (ext:make-weak-pointer rod) - (aref *rod-hash-table* (mod (cl::pointer-hash rod) + (aref *rod-hash-table* (mod (lisp::pointer-hash rod) (length *rod-hash-table*))))) rod)
(defun really-really-rod-p (rod) #+CMU - (find rod (aref *rod-hash-table* (mod (cl::pointer-hash rod) + (find rod (aref *rod-hash-table* (mod (lisp::pointer-hash rod) (length *rod-hash-table*))) :key #'ext:weak-pointer-value))
@@ -364,7 +364,7 @@ (loop for item in bucket do (let ((v (ext:weak-pointer-value item))) (when v - (push item (aref new (mod (cl::pointer-hash v) n))))))) + (push item (aref new (mod (lisp::pointer-hash v) n))))))) (setf *rod-hash-table* new)))
(defun rod-hash-after-gc-hook ()