/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.633 by heller, Fri Jan 16 15:49:48 2009 UTC revision 1.634 by heller, Sat Feb 14 12:33:28 2009 UTC
# Line 427  Do not set this to T unless you want to Line 427  Do not set this to T unless you want to
427                  (check-slime-interrupts))                  (check-slime-interrupts))
428                 (t                 (t
429                  (log-event "queue-interrupt: ~a" function)                  (log-event "queue-interrupt: ~a" function)
430                  (signal 'slime-interrupt-queued))))))                  (when *interrupt-queued-handler*
431                      (funcall *interrupt-queued-handler*)))))))
432    
433  (defslimefun simple-break (&optional (datum "Interrupt from Emacs") &rest args)  (defslimefun simple-break (&optional (datum "Interrupt from Emacs") &rest args)
434    (with-simple-restart (continue "Continue from break.")    (with-simple-restart (continue "Continue from break.")
# Line 2366  Returns true if it actually called emacs Line 2367  Returns true if it actually called emacs
2367  FORM is expected, but not required, to be SETF'able."  FORM is expected, but not required, to be SETF'able."
2368    ;; FIXME: Can we check FORM for setfability? -luke (12/Mar/2005)    ;; FIXME: Can we check FORM for setfability? -luke (12/Mar/2005)
2369    (with-buffer-syntax ()    (with-buffer-syntax ()
2370      (prin1-to-string (eval (read-from-string form)))))      (let* ((value (eval (read-from-string form)))
2371               (*print-length* nil))
2372          (prin1-to-string value))))
2373    
2374  (defslimefun commit-edited-value (form value)  (defslimefun commit-edited-value (form value)
2375    "Set the value of a setf'able FORM to VALUE.    "Set the value of a setf'able FORM to VALUE.
# Line 2488  after Emacs causes a restart to be invok Line 2491  after Emacs causes a restart to be invok
2491                                    `(or (:emacs-rex . _)                                    `(or (:emacs-rex . _)
2492                                         (:sldb-return ,(1+ level))))                                         (:sldb-return ,(1+ level))))
2493                   ((:emacs-rex &rest args) (apply #'eval-for-emacs args))                   ((:emacs-rex &rest args) (apply #'eval-for-emacs args))
2494                   ((:sldb-return _) (declare (ignore _)) (return nil)))                   ((:sldb-return _) (declare (ignore _)) (return nil)))
2495               (sldb-condition (c)               (sldb-condition (c)
2496                 (handle-sldb-condition c))))))                 (handle-sldb-condition c))))))
2497      (send-to-emacs `(:debug-return      (send-to-emacs `(:debug-return

Legend:
Removed from v.1.633  
changed lines
  Added in v.1.634

  ViewVC Help
Powered by ViewVC 1.1.5