[slime-cvs] CVS slime/contrib

trittweiler trittweiler at common-lisp.net
Wed Sep 5 19:35:46 UTC 2007


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

Modified Files:
	swank-arglists.lisp 
Log Message:
	* swank-c-p-c.el: This file incorrectly provided the module
	`:swank-compound-prefix'; changed that to `:swank-c-p-c'. 

	This gets rid off the nasty redefinition warnings that were
	previously signalled when loading SWANK with SBCL.

	* swank-arglist.lisp (arglist-for-echo-area): Locally declare
	`*arglist-pprint-bindings*' to be special, as the variable is
	defined later in the file. (Gets rid of warnings during loading.)


--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/09/05 18:48:49	1.8
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/09/05 19:35:46	1.9
@@ -56,11 +56,12 @@
                          (case type
                            (:type-specifier (format nil "[Typespec] ~A" stringified-arglist))
                            (:declaration
-			    (with-bindings *arglist-pprint-bindings*
-			      (let ((op (%find-declaration-operator raw-specs position)))
-				(if op
-				    (format nil "(~A ~A)" op stringified-arglist)
-				    (format nil "[Declaration] ~A" stringified-arglist)))))
+			    (locally (declare (special *arglist-pprint-bindings*))
+			      (with-bindings *arglist-pprint-bindings*
+				(let ((op (%find-declaration-operator raw-specs position)))
+				  (if op
+				      (format nil "(~A ~A)" op stringified-arglist)
+				      (format nil "[Declaration] ~A" stringified-arglist))))))
                            (t stringified-arglist)))))))
             (mapc #'unintern-in-home-package newly-interned-symbols))))
     (error (cond)




More information about the slime-cvs mailing list