Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

(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)