[slime-cvs] CVS update: slime/swank.lisp

[Matthias Koeppe]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv13191

Modified Files:
	swank.lisp 
Log Message:
(*object-to-presentation-id*, *presentation-id-to-object*): Use new
functions make-weak-key-hash-table, make-weak-value-hash-table.

Date: Sun Aug 28 16:50:03 2005
Author: mkoeppe

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.325 slime/swank.lisp:1.326
--- slime/swank.lisp:1.325	Sun Aug 28 14:25:40 2005
+++ slime/swank.lisp	Sun Aug 28 16:50:03 2005
@@ -1684,13 +1684,11 @@
   "Non-nil means that REPL results are saved for later lookup.")
 
 (defvar *object-to-presentation-id* 
-  (make-hash-table :test 'eq 
-                   #+openmcl :weak #+openmcl :key)
+  (make-weak-key-hash-table :test 'eq)
   "Store the mapping of objects to numeric identifiers")
 
 (defvar *presentation-id-to-object* 
-  (make-hash-table :test 'eq 
-                   #+openmcl :weak #+openmcl :value)
+  (make-weak-value-hash-table :test 'eq)
   "Store the mapping of numeric identifiers to objects")
 
 (defun clear-presentation-tables ()