[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	swank.lisp 
Log Message:
(arglist-for-insertion): Now unused, removed.


--- /project/slime/cvsroot/slime/swank.lisp	2007/08/24 13:55:25	1.497
+++ /project/slime/cvsroot/slime/swank.lisp	2007/08/25 04:56:50	1.498
@@ -2373,21 +2373,6 @@
                       t)))))))
   (call-next-method))
 
-(defslimefun arglist-for-insertion (name)
-  (with-buffer-syntax ()
-    (let ((symbol (parse-symbol name)))
-      (cond 
-        ((and symbol 
-              (valid-operator-name-p name))
-         (let ((decoded-arglist
-                (compute-enriched-decoded-arglist symbol nil)))
-           (if (eql decoded-arglist :not-available)
-               :not-available
-               (decoded-arglist-to-template-string decoded-arglist 
-                                                   *buffer-package*))))
-        (t
-         :not-available)))))
-
 (defvar *remove-keywords-alist*
   '((:test :test-not)
     (:test-not :test)))