Permalink
Browse files

implement re-evaluate-defvar (for M-C-x on defvar form)

  • Loading branch information...
3b committed Jun 4, 2011
1 parent 9903c56 commit e53d76092f50afb19b775003dae7e062dd972140
Showing with 15 additions and 6 deletions.
  1. +15 −6 contrib/slime-parenscript/swank-proxy-ps.lisp
@@ -110,11 +110,8 @@
(funcall continuation t result)))))
:async)))))
-(define-proxy-fun swank:listener-eval :ps (string)
- (declare (optimize (debug 3)))
- (clear-user-input)
- (with-buffer-syntax ()
- (with-retry-restart (:msg "Retry (proxied) SLIME REPL evaluation request.")
+(defun eval-common (string continuation)
+ (with-retry-restart (:msg "Retry (proxied) SLIME REPL evaluation request.")
(proxy-track-package
(lambda ()
(let* ((eof (cons nil nil))
@@ -140,7 +137,19 @@
(funcall *send-repl-results-function* nil)
(funcall continuation eval-ok? result))))))
- :async))))))))
+ :async)))))))
+
+(define-proxy-fun swank:listener-eval :ps (string)
+ (declare (optimize (debug 3)))
+ (clear-user-input)
+ (with-buffer-syntax ()
+ (eval-common string continuation)))
+
+(define-proxy-fun swank:re-evaluate-defvar :ps (string)
+ (declare (optimize (debug 3)))
+ (clear-user-input)
+ (with-buffer-syntax ()
+ (eval-common string continuation)))
(define-proxy-fun swank:find-definitions-for-emacs :ps (name)
(declare (optimize (debug 3)))

0 comments on commit e53d760

Please sign in to comment.