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

[Alan Ruttenberg]

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

Modified Files:
	swank.lisp 
Log Message:

Date: Thu Sep 15 06:42:06 2005
Author: aruttenberg

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.335 slime/swank.lisp:1.336
--- slime/swank.lisp:1.335	Thu Sep 15 05:37:13 2005
+++ slime/swank.lisp	Thu Sep 15 06:42:06 2005
@@ -3342,7 +3342,7 @@
 (defmethod inspect-bigger-piece-actions (thing size)
   (append 
    (if (> size *slime-inspect-contents-limit*)
-       (list (inspect-factor-more-action thing)
+       (list (inspect-show-more-action thing)
 	     '(:newline))
        nil)
    (list (inspect-whole-thing-action thing  size)
@@ -3358,7 +3358,7 @@
 		  :replace)
 		 ))))
 
-(defmethod inspect-factor-more-action (thing)
+(defmethod inspect-show-more-action (thing)
   `(:action ,(format nil "~a elements shown. Prompt for how many to inspect..." 
 		     *slime-inspect-contents-limit* )
 	    ,(lambda()