(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP")

(FILECREATED "29-Dec-87 11:09:19" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH298.;2
 2078   

      changes to%:  (FNS NC.ReportError)
                    (VARS RHTPATCH298COMS)
                    (PROPS (RHTPATCH298 MAKEFILE-ENVIRONMENT))

      previous date%: "29-Dec-87 11:08:32" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH298.;1)


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

(PRETTYCOMPRINT RHTPATCH298COMS)

(RPAQQ RHTPATCH298COMS
 ((DECLARE%: DONTCOPY (PROP MAKEFILE-ENVIRONMENT RHTPATCH298))
                        
          
          (* ;; "Changes BREAK1 call to CL:BREAK as requested by Stan")


                        
          
          (* ;; "Change to NCUTILITIES")


                        (FNS NC.ReportError)))
(DECLARE%: DONTCOPY 

(PUTPROPS RHTPATCH298 MAKEFILE-ENVIRONMENT
 (:PACKAGE "INTERLISP" :READTABLE "INTERLISP"))
)



(* ;; "Changes BREAK1 call to CL:BREAK as requested by Stan")





(* ;; "Change to NCUTILITIES")


(DEFINEQ

(NC.ReportError

  [LAMBDA (FromFunction Msg)
                               (* ; "Edited 29-Dec-87 11:09 by Burwell")


(* ;;; "fgh 9/4/86 If \NC.NoBreakInReportError is non-NIL just prints msg in prompt window and cause ERROR!.")


(* ;;; "rht 3/2/87: coerced the function name to be an atom to fix a bug showing up in lyric.")


(* ;;; "rht 5/8/87: No longer breaks if HELPFLAG is nil.")

          
          (* ;; "rht 12/29/87: changed BREAK1 to CL:BREAK as per Stan's suggestion")


    (DECLARE
 (GLOBALVARS HELPFLAG PROMPTWINDOW \NC.NoBreakInReportError))
    (if
 HELPFLAG
        then
 (if
 \NC.NoBreakInReportError
                 then
 (FLASHW PROMPTWINDOW)
                      (CLRPROMPT)
                      (PROMPTPRINT "NoteCards Error")
                      (PROMPTPRINT Msg)
                      (ERROR!)
               else
 (CL:BREAK "~%%In ~S, ~A." FromFunction Msg])
)
(PUTPROPS RHTPATCH298 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1048 1995 (NC.ReportError 1058 . 1993)))))
STOP