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

Diff of /slime/swank.lisp

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

revision 1.485 by trittweiler, Mon May 14 18:56:56 2007 UTC revision 1.486 by trittweiler, Mon May 14 19:39:26 2007 UTC
# Line 2519  Errors are trapped and invoke our debugg Line 2519  Errors are trapped and invoke our debugg
2519                      (finish-output)                      (finish-output)
2520                      (setq ok t))                      (setq ok t))
2521                  (request-abort (c)                  (request-abort (c)
2522                    (setf ok nil                    (setf ok nil)
2523                          reason (list (swank-backend::reason c))))))                    (setf reason (swank-backend::reason c)))))
2524           (force-user-output)           (force-user-output)
2525           (send-to-emacs `(:return ,(current-thread)           (send-to-emacs `(:return ,(current-thread)
2526                                    ,(if ok                                    ,(if ok
2527                                         `(:ok ,result)                                         `(:ok ,result)
2528                                         `(:abort ,@reason))                                         `(:abort ,reason))
2529                                    ,id)))))))                                    ,id)))))))
2530    
2531  (defvar *echo-area-prefix* "=> "  (defvar *echo-area-prefix* "=> "

Legend:
Removed from v.1.485  
changed lines
  Added in v.1.486

  ViewVC Help
Powered by ViewVC 1.1.5