/[cmucl]/src/interface/debug.lisp
ViewVC logotype

Diff of /src/interface/debug.lisp

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

revision 1.4 by garland, Tue Mar 9 13:11:19 1993 UTC revision 1.5 by ram, Fri Jul 2 14:17:31 1993 UTC
# Line 563  Line 563 
563        (funcall hook condition hook)))        (funcall hook condition hook)))
564    (unix:unix-sigsetmask 0)    (unix:unix-sigsetmask 0)
565    (let* ((*debug-condition* condition)    (let* ((*debug-condition* condition)
566           (*debug-restarts* (compute-restarts))           (*debug-restarts* (compute-restarts condition))
567           (*standard-input* *debug-io*)          ;in case of setq           (*standard-input* *debug-io*)          ;in case of setq
568           (*standard-output* *debug-io*)         ;''  ''  ''  ''           (*standard-output* *debug-io*)         ;''  ''  ''  ''
569           (*error-output* *debug-io*)           (*error-output* *debug-io*)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5