COMMON LISP JP > Archives > 2009/05/24

(defun slime-eval-defun ()
  "Evaluate the current toplevel form.
Use `slime-re-evaluate-defvar' if the from starts with '(defvar'"
  (interactive)
  (let ((form (slime-defun-at-point)))
    (cond ((string-match "^(defvar " form)
           (slime-re-evaluate-defvar form))
          (t
           (slime-interactive-eval form)))))

http://common-lisp.net/project/bknr/static/lmman/fd-eva.xml#setq-globally-fun
http://common-lisp.net/project/bknr/static/lmman/fd-eva.xml#let-globally-fun