[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* contrib/slime-repl.el (slime-call-defun): Work also on defvar/defparameter.

* slime.el (slime-extract-context): Add defvar and defparameter.


--- /project/slime/cvsroot/slime/ChangeLog	2010/03/08 16:20:10	1.2026
+++ /project/slime/cvsroot/slime/ChangeLog	2010/03/08 16:31:59	1.2027
@@ -1,3 +1,7 @@
+2010-03-08  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-extract-context): Add defvar and defparameter.
+
 2010-03-08  Helmut Eller  <heller at common-lisp.net>
 
 	Fix some of the brokeness in the last change.
--- /project/slime/cvsroot/slime/slime.el	2010/03/03 11:57:03	1.1283
+++ /project/slime/cvsroot/slime/slime.el	2010/03/08 16:31:59	1.1284
@@ -4274,6 +4274,9 @@
  (define-setf-expander n.ame (...) ...)  -> (:define-setf-expander name)
  (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)
 
 For other contexts we return the symbol at point."
   (let ((name (slime-symbol-at-point)))
@@ -4325,6 +4328,9 @@
            `(:define-setf-expander ,name))
           ((slime-in-expression-p '(defsetf *))
            `(:defsetf ,name))
+          ((slime-in-expression-p '(defvar *))       `(:defvar ,name))
+          ((slime-in-expression-p '(defparameter *)) `(:defparameter ,name))
+          ((slime-in-expression-p '(defconstant *))  `(:defconstant ,name))
           (t 
            name))))