[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog swank-allegro.lisp 
Log Message:
* swank-allegro.lisp (fspec-definition-locations): add declare
ignores to prevent warnings

(emacs-inspect): remove first definition on function since it
was being overwritten by the next one. Wrap the method on t with
a excl:without-redefinition-warnings to prevent warning.

--- /project/slime/cvsroot/slime/ChangeLog	2008/09/11 10:31:35	1.1499
+++ /project/slime/cvsroot/slime/ChangeLog	2008/09/11 11:12:45	1.1500
@@ -1,3 +1,12 @@
+2008-09-11  Gary King <gwking at metabang.com>
+
+	* swank-allegro.lisp (fspec-definition-locations): add declare
+	ignores to prevent warnings
+
+	(emacs-inspect): remove first definition on function since it
+	was being overwritten by the next one. Wrap the method on t with
+	a excl:without-redefinition-warnings to prevent warning.
+
 2008-09-11  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-cmucl.lisp (slime-output-stream): Remove last-flush-time
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2008/08/11 07:40:23	1.110
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2008/09/11 11:12:46	1.111
@@ -402,12 +402,14 @@
    ((and (listp fspec)
          (eql (car fspec) :top-level-form))
     (destructuring-bind (top-level-form file &optional position) fspec 
+      (declare (ignore top-level-form))
       (list
        (list (list nil fspec)
              (make-location (list :buffer file)
                             (list :position position t))))))
    ((and (listp fspec) (eq (car fspec) :internal))
     (destructuring-bind (_internal next _n) fspec
+      (declare (ignore _internal _n))
       (fspec-definition-locations next)))
    (t
     (let ((defs (excl::find-source-file fspec)))
@@ -570,6 +572,9 @@
 
 ;;;; Inspecting
 
+#+no
+;; use the one below that calls allegro-inspect instead
+;;?? remove
 (defmethod emacs-inspect ((f function))
           (append
            (label-value-line "Name" (function-name f))
@@ -578,8 +583,9 @@
              (when doc
                `("Documentation:" (:newline) ,doc)))))
 
+(excl:without-redefinition-warnings
 (defmethod emacs-inspect ((o t))
-  (allegro-inspect o))
+  (allegro-inspect o)))
 
 (defmethod emacs-inspect ((o function))
   (allegro-inspect o))