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

Diff of /slime/swank-backend.lisp

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

revision 1.139 by heller, Tue Aug 5 17:38:49 2008 UTC revision 1.140 by heller, Wed Aug 6 19:51:29 2008 UTC
# Line 32  Line 32 
32             #:unbound-slot-filler             #:unbound-slot-filler
33             #:declaration-arglist             #:declaration-arglist
34             #:type-specifier-arglist             #:type-specifier-arglist
35               ;; interrupt macro for the backend
36               #:*pending-slime-interrupts*
37               #:check-slime-interrupts
38             ;; inspector related symbols             ;; inspector related symbols
39             #:emacs-inspect             #:emacs-inspect
40             #:label-value-line             #:label-value-line
# Line 1009  but that thread may hold it more than on Line 1012  but that thread may hold it more than on
1012  (definterface receive-if (predicate)  (definterface receive-if (predicate)
1013    "Return the first message satisfiying PREDICATE.")    "Return the first message satisfiying PREDICATE.")
1014    
1015    (defvar *pending-slime-interrupts*)
1016    
1017    (defun check-slime-interrupts ()
1018      "Execute pending interrupts if any.
1019    This should be called periodically in operations which
1020    can take a long time to complete."
1021      (when (and (boundp '*pending-slime-interrupts*)
1022                 *pending-slime-interrupts*)
1023        (funcall (pop *pending-slime-interrupts*))))
1024    
1025  (definterface toggle-trace (spec)  (definterface toggle-trace (spec)
1026    "Toggle tracing of the function(s) given with SPEC.    "Toggle tracing of the function(s) given with SPEC.
1027  SPEC can be:  SPEC can be:

Legend:
Removed from v.1.139  
changed lines
  Added in v.1.140

  ViewVC Help
Powered by ViewVC 1.1.5