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

[Matthias Koeppe]

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

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

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

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.141 slime/swank-sbcl.lisp:1.142
--- slime/swank-sbcl.lisp:1.141	Wed Aug 24 17:09:33 2005
+++ slime/swank-sbcl.lisp	Sun Aug 28 16:48:20 2005
@@ -1219,3 +1219,9 @@
     ((:call)
      (destructuring-bind (caller callee) (cdr spec)
        (toggle-trace-aux callee :wherein (list (process-fspec caller)))))))
+
+;;; Weak datastructures
+
+(defimplementation make-weak-key-hash-table (&rest args)
+  (apply #'make-hash-table :weak-p t args))
+