[slime-cvs] CVS update: slime/swank-allegro.lisp slime/ChangeLog

[Marco Baringer]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv13122

Modified Files:
	swank-allegro.lisp ChangeLog 
Log Message:
2004-09-14  Thomas Schilling <tjs_ng at yahoo.de>

	* swank-allegro.lisp (inspect-for-emacs): Update for new
	inspect-for-emacs protocol.

Date: Tue Sep 14 23:24:58 2004
Author: mbaringer

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.56 slime/swank-allegro.lisp:1.57
--- slime/swank-allegro.lisp:1.56	Tue Sep 14 18:01:07 2004
+++ slime/swank-allegro.lisp	Tue Sep 14 23:24:58 2004
@@ -439,17 +439,15 @@
       collect ", ")))
 
 (defmethod inspect-for-emacs ((f function) (inspector acl-inspector))
-  (declare (ignore inspector))
   (values "A function."
           `("Name: " (:value ,(function-name f)) (:newline)
             "It's argument list is: " ,(princ-to-string (arglist f)) (:newline)
             "Documentation:" (:newline)
             ;; AllegroCL doesn't support (documentation <function-obj> t)
             ;; so we get the symbol and then its doc
-            ,(documentation (excl::external-fn_symdef obj) 'function))))
+            ,(documentation (excl::external-fn_symdef f) 'function))))
 
 (defmethod inspect-for-emacs ((class structure-class) (inspector acl-inspector))
-  (declare (ignore inspector))
   (values "A structure class."
           `("Name: " (:value ,(class-name class))
             (:newline)
@@ -485,7 +483,6 @@
                                '"N/A (class not finalized)"))))
 
 (defmethod inspect-for-emacs ((slot excl::structure-slot-definition) (inspector acl-inspector))
-  (declare (ignore inspector))
   (values "A structure slot." 
           `("Name: " (:value ,(mop:slot-definition-name slot))
             (:newline)
@@ -502,7 +499,6 @@
             "Read-only: " (:value ,(excl::slotd-read-only slot)) (:newline))))
 
 (defmethod inspect-for-emacs ((o structure-object) (inspector acl-inspector))
-  (declare (ignore inspector))
   (values "An structure object."
           `("Structure class: " (:value ,(class-of o))
             (:newline)


Index: slime/ChangeLog
diff -u slime/ChangeLog:1.526 slime/ChangeLog:1.527
--- slime/ChangeLog:1.526	Tue Sep 14 18:01:07 2004
+++ slime/ChangeLog	Tue Sep 14 23:24:58 2004
@@ -1,3 +1,8 @@
+2004-09-14  Thomas Schilling <tjs_ng at yahoo.de>
+
+	* swank-allegro.lisp (inspect-for-emacs): Update for new
+	inspect-for-emacs protocol.
+
 2004-09-14  Marco Baringer  <mb at bese.it>
 
 	* swank-backend.lisp (inspector, make-default-inspector): Add an