[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* contrib/slime-repl.el (slime-call-defun): When on defclass insert
 (make-instance 'name).

* slime.el (slime-parse-context): Add defclass.


--- /project/slime/cvsroot/slime/ChangeLog	2010/03/09 09:20:13	1.2030
+++ /project/slime/cvsroot/slime/ChangeLog	2010/03/09 14:10:37	1.2031
@@ -1,3 +1,7 @@
+2010-03-09  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-parse-context): Add defclass.
+
 2010-03-09  Helmut Eller  <heller at common-lisp.net>
 
 	Some more fixes for Allegro
--- /project/slime/cvsroot/slime/slime.el	2010/03/08 16:31:59	1.1284
+++ /project/slime/cvsroot/slime/slime.el	2010/03/09 14:10:37	1.1285
@@ -4275,8 +4275,9 @@
  (define-modify-macro n.ame (...) ...)   -> (:define-modify-macro name)
  (define-compiler-macro n.ame (...) ...) -> (:define-compiler-macro name)
  (defvar n.ame (...) ...)                -> (:defvar name)
- (defparameter n.ame (...) ...)          -> (:defparameter name)
- (defconstant n.ame (...) ...)           -> (:defconstant name)
+ (defparameter n.ame ...)                -> (:defparameter name)
+ (defconstant n.ame ...)                 -> (:defconstant name)
+ (defclass n.ame ...)                    -> (:defclass name)
 
 For other contexts we return the symbol at point."
   (let ((name (slime-symbol-at-point)))
@@ -4331,6 +4332,7 @@
           ((slime-in-expression-p '(defvar *))       `(:defvar ,name))
           ((slime-in-expression-p '(defparameter *)) `(:defparameter ,name))
           ((slime-in-expression-p '(defconstant *))  `(:defconstant ,name))
+          ((slime-in-expression-p '(defclass *))     `(:defclass ,name))
           (t 
            name))))