Ignore:
Timestamp:
Jun 7, 2009, 7:24:09 PM (10 years ago)
Author:
gz
Message:

Merge r12186: check io vars for bogosity on entry to debugger and C

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-error-system.lisp

    r12220 r12221  
    12691269
    12701270
    1271  
    1272 
     1271(flet ((io-stream-p (x) (and (streamp x) (eq (stream-direction x) :io)))
     1272       (input-stream-p (x) (and (streamp x) (input-stream-p x)))
     1273       (output-stream-p (x) (and (streamp x) (output-stream-p x)))
     1274       (default-terminal-io () (make-echoing-two-way-stream *stdin* *stdout*))
     1275       (terminal-io () *terminal-io*)
     1276       (standard-output () *standard-output*))
     1277
     1278  ;; Note that order matters.  These need to come out of %check-error-globals with
     1279  ;; *terminal-io* first and *trace-output* last
     1280  (check-error-global '*terminal-io* #'io-stream-p #'default-terminal-io)
     1281  (check-error-global '*query-io* #'io-stream-p #'terminal-io)
     1282  (check-error-global '*debug-io* #'io-stream-p #'terminal-io)
     1283  (check-error-global '*standard-input* #'input-stream-p #'terminal-io)
     1284  (check-error-global '*standard-output* #'output-stream-p #'terminal-io)
     1285  (check-error-global '*error-output* #'output-stream-p #'standard-output)
     1286  (check-error-global '*trace-output* #'output-stream-p #'standard-output))
     1287
Note: See TracChangeset for help on using the changeset viewer.