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

[Matthias Koeppe]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:
(make-weak-key-hash-table) 
(make-weak-value-hash-table): Implement it.

Date: Sun Aug 28 16:48:48 2005
Author: mkoeppe

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.97 slime/swank-openmcl.lisp:1.98
--- slime/swank-openmcl.lisp:1.97	Fri Aug 26 20:00:29 2005
+++ slime/swank-openmcl.lisp	Sun Aug 28 16:48:47 2005
@@ -831,3 +831,12 @@
 
 (defimplementation quit-lisp ()
   (ccl::quit))
+
+;;; Weak datastructures
+
+(defimplementation make-weak-key-hash-table (&rest args)
+  (apply #'make-hash-table :weak :key args))
+
+(defimplementation make-weak-value-hash-table (&rest args)
+  (apply #'make-hash-table :weak :value args))
+