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

Diff of /slime/swank-cmucl.lisp

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

revision 1.165 by mbaringer, Fri Oct 20 00:14:39 2006 UTC revision 1.166 by heller, Fri Oct 20 17:07:55 2006 UTC
# Line 1475  A utility for debugging DEBUG-FUNCTION-A Line 1475  A utility for debugging DEBUG-FUNCTION-A
1475                        (error (make-condition                        (error (make-condition
1476                                'sldb-condition                                'sldb-condition
1477                                :original-condition condition)))))                                :original-condition condition)))))
1478        (funcall debugger-loop-fn))))        (unwind-protect
1479               (progn
1480                 #+(or)(sys:scrub-control-stack)
1481                 (funcall debugger-loop-fn))
1482            #+(or)(sys:scrub-control-stack)
1483            ))))
1484    
1485  (defun frame-down (frame)  (defun frame-down (frame)
1486    (handler-case (di:frame-down frame)    (handler-case (di:frame-down frame)
# Line 2046  The `symbol-value' of each element is a Line 2051  The `symbol-value' of each element is a
2051  (progn  (progn
2052    (defimplementation initialize-multiprocessing (continuation)    (defimplementation initialize-multiprocessing (continuation)
2053      (mp::init-multi-processing)      (mp::init-multi-processing)
2054      (funcall continuation))      (mp:make-process continuation :name "swank")
   
   (defimplementation startup-idle-and-top-level-loops ()  
2055      ;; Threads magic: this never returns! But top-level becomes      ;; Threads magic: this never returns! But top-level becomes
2056      ;; available again.      ;; available again.
2057      (unless mp::*initial-process*      (unless mp::*idle-process*
2058        (mp::startup-idle-and-top-level-loops)))        (mp::startup-idle-and-top-level-loops)))
2059    
2060    (defimplementation spawn (fn &key name)    (defimplementation spawn (fn &key name)
2061      (mp:make-process fn :name (or name "Anonymous")))      (mp:make-process fn :name (or name "Anonymous")))
2062    

Legend:
Removed from v.1.165  
changed lines
  Added in v.1.166

  ViewVC Help
Powered by ViewVC 1.1.5