[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv8358

Modified Files:
	ChangeLog swank-cmucl.lisp 
Log Message:
Don't special case special operators with M-. for CMUCL.

* swank-cmucl.lisp (function-definitions): Special operators will
have IR1-translators anyway, so no need to mark them "special".
(gf-definitions): Renamed from generic-function-definitions.

--- /project/slime/cvsroot/slime/ChangeLog	2010/03/03 11:57:03	1.2010
+++ /project/slime/cvsroot/slime/ChangeLog	2010/03/03 11:57:11	1.2011
@@ -183,9 +183,18 @@
 
 2010-03-03  Helmut Eller  <heller at common-lisp.net>
 
+	Don't special case special operators with M-. for CMUCL.
+
+	* swank-cmucl.lisp (function-definitions): Special operators will
+	have IR1-translators anyway, so no need to mark them "special".
+	(gf-definitions): Renamed from generic-function-definitions.
+
+2010-03-03  Helmut Eller  <heller at common-lisp.net>
+
 	* slime.el (slime-inspector-history): New command.
 
 2010-03-03  Helmut Eller  <heller at common-lisp.net>
+
 	Don't try to bind keywords in inspector-eval.
 
 	* swank.lisp (inspector-eval): For now, don't bind symbols which
--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2010/03/02 12:38:06	1.220
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2010/03/03 11:57:11	1.221
@@ -912,20 +912,16 @@
 regular functions, generic functions, methods and macros.
 NAME can any valid function name (e.g, (setf car))."
   (let ((macro?    (and (symbolp name) (macro-function name)))
-        (special?  (and (symbolp name) (special-operator-p name)))
         (function? (and (ext:valid-function-name-p name)
                         (ext:info :function :definition name)
                         (if (symbolp name) (fboundp name) t))))
     (cond (macro? 
            (list `((defmacro ,name)
                    ,(function-location (macro-function name)))))
-          (special?
-           (list `((:special-operator ,name) 
-                   (:error ,(format nil "Special operator: ~S" name)))))
           (function?
            (let ((function (fdefinition name)))
              (if (genericp function)
-                 (generic-function-definitions name function)
+                 (gf-definitions name function)
                  (list (list `(function ,name)
                              (function-location function)))))))))
 
@@ -1029,7 +1025,7 @@
 
 ;;;;;; Generic functions and methods
 
-(defun generic-function-definitions (name function)
+(defun gf-definitions (name function)
   "Return the definitions of a generic function and its methods."
   (cons (list `(defgeneric ,name) (gf-location function))
         (gf-method-definitions function)))