(FILECREATED " 1-Apr-85 13:49:23" {ERIS}<LISPNEW>PATCHES>BREAKCHECKPATCH.;1
 1706   

      changes to:  (VARS BREAKCHECKPATCHCOMS))


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT BREAKCHECKPATCHCOMS)

(RPAQQ BREAKCHECKPATCHCOMS
 [(FNS BREAKCHECK)
			    (P (OR (NEQ (QUOTE NOBIND)
					(GETTOPVAL (QUOTE HELPFLAG)))
				   (SETTOPVAL (QUOTE HELPFLAG)
					      T])
(DEFINEQ

(BREAKCHECK

  [LAMBDA (ERRORPOS ERXN)                                    (* lmm " 1-Apr-85 00:02")

    (
PROG
 (TEM)
          (
COND

	    ((
EQ
 ERXN 18)

          (* Error number for control-b BREAK So no need to search for errorset position. always break, even if helpflag is 

	  NIL. if user typed control-b, thats what he wants to have happen, evenif system rebound helpflag.)



	      (
GO
 BREAK))
	    ((
NULL
 HELPFLAG)
	      (FINDERSET ERRORPOS)                           (* Called to decide on printing)

	      (
RETURN
 NIL))
	    ((
EQ
 (
SETQ
 TEM (FINDERSET ERRORPOS HELPDEPTH))
		 (
QUOTE
 NOBREAK))
	      (
RETURN
 NIL))
	    ((
OR
 TEM (
EQ
 HELPFLAG (
QUOTE
 BREAK!))
		 (
AND
 (
FIXP
 HELPCLOCK)
		      (
FIXP
 HELPTIME)
		      (
IGREATERP
 (
IDIFFERENCE
 (
CLOCK
 2)
					      HELPCLOCK)
				 HELPTIME)))
	      (
GO
 BREAK))
	    (T (
RETURN
 NIL)))
      BREAK
          (
SETQ
 PRINTMSG T)                                  (* Always print message if going into a BREAK.)

          (
RETURN
 T])
)
(OR (NEQ (QUOTE NOBIND)
	 (GETTOPVAL (QUOTE HELPFLAG)))
    (SETTOPVAL (QUOTE HELPFLAG)
	       T))
(PUTPROPS BREAKCHECKPATCH COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (413 1520 (BREAKCHECK 423 . 1518)))))
STOP