[closure-cvs] CVS update: closure/src/glisp/runes.lisp

[Gilbert Baumann]

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 ()