[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv13594

Modified Files:
	swank-sbcl.lisp 
Log Message:
(make-weak-value-hash-table): New for sbcl.
(make-weak-key-hash-table): New for sbcl.


--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2006/10/19 12:30:51	1.168
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2006/10/26 12:47:05	1.169
@@ -1178,11 +1178,8 @@
 
 ;;; Weak datastructures
 
-
-;; SBCL doesn't actually implement weak hash-tables, the WEAK-P
-;; keyword is just a decoy. Leave this here, but commented out,
-;; so that no-one tries adding it back.
-#+(or)
 (defimplementation make-weak-key-hash-table (&rest args)
-  (apply #'make-hash-table :weak-p t args))
+  (apply #'make-hash-table :weakness :key args))
 
+(defimplementation make-weak-value-hash-table (&rest args)
+  (apply #'make-hash-table :weakness :value args))