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

Diff of /slime/swank.lisp

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

revision 1.239 by mbaringer, Fri Sep 17 12:52:11 2004 UTC revision 1.240 by heller, Sun Sep 19 05:56:42 2004 UTC
# Line 35  Line 35 
35             #:frame-source-location-for-emacs             #:frame-source-location-for-emacs
36             #:restart-frame             #:restart-frame
37             #:sldb-step             #:sldb-step
38               #:sldb-break
39               #:sldb-break-on-return
40             #:profiled-functions             #:profiled-functions
41             #:profile-report             #:profile-report
42             #:profile-reset             #:profile-reset
# Line 455  of the toplevel restart." Line 457  of the toplevel restart."
457        ((member t)        ((member t)
458         (spawn (lambda () (handle-request c)) :name "worker"))         (spawn (lambda () (handle-request c)) :name "worker"))
459        ((member :repl-thread)        ((member :repl-thread)
460         (connection.repl-thread c))         (let ((thread (connection.repl-thread c)) )
461             (if (thread-alive-p thread)
462                 thread
463                 (setf (connection.repl-thread c)
464                       (spawn (lambda () (repl-loop c))
465                              :name "new-repl-thread")))))
466        (fixnum        (fixnum
467         (find-thread id)))))         (find-thread id)))))
468    
# Line 914  If a protocol error occurs then a SLIME- Line 921  If a protocol error occurs then a SLIME-
921  This is like defvar, but NAME will not be initialized."  This is like defvar, but NAME will not be initialized."
922    `(progn    `(progn
923      (defvar ,name)      (defvar ,name)
924      (setf (documentation ',name 'variable) ',doc)))      (setf (documentation ',name 'variable) ,doc)))
925    
926  (define-special *buffer-package*  (define-special *buffer-package*
927      "Package corresponding to slime-buffer-package.      "Package corresponding to slime-buffer-package.
# Line 1352  printing." Line 1359  printing."
1359    (list (safe-condition-message *swank-debugger-condition*)    (list (safe-condition-message *swank-debugger-condition*)
1360          (format nil "   [Condition of type ~S]"          (format nil "   [Condition of type ~S]"
1361                  (type-of *swank-debugger-condition*))                  (type-of *swank-debugger-condition*))
1362          (condition-references *swank-debugger-condition*)))          (condition-references *swank-debugger-condition*)
1363            (condition-extras *swank-debugger-condition*)))
1364    
1365  (defun format-restarts-for-emacs ()  (defun format-restarts-for-emacs ()
1366    "Return a list of restarts for *swank-debugger-condition* in a    "Return a list of restarts for *swank-debugger-condition* in a
# Line 1388  I is an integer describing and FRAME a s Line 1396  I is an integer describing and FRAME a s
1396  The result is a list:  The result is a list:
1397    (condition ({restart}*) ({stack-frame}*)    (condition ({restart}*) ({stack-frame}*)
1398  where  where
1399    condition   ::= (description type)    condition   ::= (description type [extra])
1400    restart     ::= (name description)    restart     ::= (name description)
1401    stack-frame ::= (number description)    stack-frame ::= (number description)
1402      extra       ::= (:references
1403  condition---a pair of strings: message, and type.  condition---a pair of strings: message, and type.  If show-source is
1404    not nil it is a frame number for which the source should be displayed.
1405    
1406  restart---a pair of strings: restart name, and description.  restart---a pair of strings: restart name, and description.
1407    
# Line 1471  the local variables in the frame INDEX." Line 1480  the local variables in the frame INDEX."
1480    (let ((form (from-string string)))    (let ((form (from-string string)))
1481      (to-string (multiple-value-list (return-from-frame index form)))))      (to-string (multiple-value-list (return-from-frame index form)))))
1482    
1483    (defslimefun sldb-break (name)
1484      (with-buffer-syntax ()
1485        (sldb-break-at-start (read-from-string name))))
1486    
1487    
1488  ;;;; Compilation Commands.  ;;;; Compilation Commands.
1489    

Legend:
Removed from v.1.239  
changed lines
  Added in v.1.240

  ViewVC Help
Powered by ViewVC 1.1.5