[slime-cvs] CVS slime

[eweitz]

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

Modified Files:
	ChangeLog swank-lispworks.lisp 
Log Message:
weak hash tables for LispWorks


--- /project/slime/cvsroot/slime/ChangeLog	2006/12/14 16:18:18	1.1021
+++ /project/slime/cvsroot/slime/ChangeLog	2006/12/15 12:40:47	1.1022
@@ -1,3 +1,9 @@
+2006-12-15  Edi Weitz  <edi at agharta.de>
+
+	* swank-lispworks.lisp (make-weak-key-hash-table): Weak hash
+	tables for Lispworks.
+	(make-weak-value-hash-table): Ditto.
+
 2006-12-14  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (*sldb-printer-bindings*): *PRINT-LINES* is in
--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2006/11/19 21:33:03	1.88
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2006/12/15 12:40:47	1.89
@@ -788,3 +788,11 @@
 (defmethod env-internals:confirm-p ((e slime-env) &optional msg &rest args)
   (apply (swank-sym :y-or-n-p-in-emacs) msg args))
       
+
+;;;; Weak hashtables
+
+(defimplementation make-weak-key-hash-table (&rest args)
+  (apply #'make-hash-table :weak-kind :key args))
+
+(defimplementation make-weak-value-hash-table (&rest args)
+  (apply #'make-hash-table :weak-kind :value args))