[slime-cvs] CVS slime

[heller]

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

Modified Files:
	swank.asd swank-allegro.lisp 
Log Message:
* swank-allegro.lisp (make-weak-key-hash-table): Use ACL's weak
hashtables.

* swank.asd: Set *source-directory* to the asdf component dir.



--- /project/slime/cvsroot/slime/swank.asd	2005/08/29 20:02:58	1.3
+++ /project/slime/cvsroot/slime/swank.asd	2006/07/12 20:25:23	1.4
@@ -22,3 +22,7 @@
 (asdf:defsystem :swank
     :components ((:file "swank-loader")))
 
+(defpackage :swank-loader)
+(defparameter swank-loader::*source-directory*
+  (asdf:component-pathname (asdf:find-system :swank)))
+
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2006/05/04 14:38:07	1.87
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2006/07/12 20:25:23	1.88
@@ -678,3 +678,12 @@
                        ,(third fspec)))))
         (t
          fspec)))
+
+
+;;;; Weak hashtables
+
+(defimplementation make-weak-key-hash-table (&rest args)
+  (apply #'make-hash-table :weak-keys t args))
+
+(defimplementation make-weak-value-hash-table (&rest args)
+  (apply #'make-hash-table :values :weak args))