Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50322/errorx.lsp
Click 43,50322/errorx.lsp to see without markup as text/plain
There are no other files named errorx.lsp in the archive.
(PUTPROP (QUOTE BKEVAL) (GET (QUOTE EVAL) (QUOTE LSUBR)) (QUOTE LSUBR)) 
(PUTPROP (QUOTE BKSETQ) (GET (QUOTE SETQ) (QUOTE FSUBR)) (QUOTE FSUBR)) 

(DEFPROP BREAK1
 (LAMBDA (BRKEXP BRKWHEN BRKFN BRKCOMS BRKTYPE) (//BREAK1 ))
EXPR)

(DEFPROP BREAKMACROS
 (NIL (TRACE NIL
	     ((OUTC (CADR #%IOCHANS%#) NIL)
	      (BKPOS #%INDENT)
	      (PRINC (QUOTE ENTER/ ))
	      (PRIN1 BRKFN)
	      (PRINC (QUOTE :))
	      (BKSETQ #%INDENT (*PLUS #%INDENT 3))))
      (EX NIL (FROM?= NIL))
      (-> X (> . X))
      (F X (& . X)))
VALUE)


(DEFPROP %PRINFN
 (%PRINFN . PLEV)
VALUE)

(DEFPROP ERRORX
 (NIL NIL T T)
ERXACTION)

(MAPC (FUNCTION (LAMBDA (X) (PUTPROP X (QUOTE (NIL NIL NIL NIL)) (QUOTE ERXACTION))))
      (QUOTE (BREAK1 //BREAK1 BRKAPPLY BREAK1ERX %ERDEPTH)))

(SETQ USERERRORX NIL)