[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	swank-clisp.lisp 
Log Message:
(make-weak-key-hash-table, make-weak-value-hash-table): Implement for
CLISP, so that the REPL results history does not cause "memory leaks".


--- /project/slime/cvsroot/slime/swank-clisp.lisp	2006/11/19 21:33:03	1.60
+++ /project/slime/cvsroot/slime/swank-clisp.lisp	2006/12/23 12:58:41	1.61
@@ -588,6 +588,15 @@
   #+lisp=cl (ext:quit)
   #-lisp=cl (lisp:quit))
 
+
+;;;; Weak hashtables
+
+(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))
+
 ;;; Local Variables:
 ;;; eval: (put 'compile-file-frobbing-notes 'lisp-indent-function 1)
 ;;; eval: (put 'dynamic-flet 'common-lisp-indent-function 1)