[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