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

[Matthias Koeppe]

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

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

Date: Sun Aug 28 16:47:51 2005
Author: mkoeppe

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.150 slime/swank-cmucl.lisp:1.151
--- slime/swank-cmucl.lisp:1.150	Tue Jul  5 22:30:58 2005
+++ slime/swank-cmucl.lisp	Sun Aug 28 16:47:51 2005
@@ -2181,6 +2181,11 @@
         (t
          fspec)))
 
+;;; Weak datastructures
+
+(defimplementation make-weak-key-hash-table (&rest args)
+  (apply #'make-hash-table :weak-p t args))
+
 ;; Local Variables:
 ;; pbook-heading-regexp:    "^;;;\\(;+\\)"
 ;; pbook-commentary-regexp: "^;;;\\($\\|[^;]\\)"