(FILECREATED " 2-Feb-86 17:16:14" {DSK}<LISPFILES2>ERROR.LSP;2
 3193   

      changes to:  (VARS ERRORCOMS))


(* Copyright (c) 1986 by Quintus Computer Systems, Inc. All rights reserved.)

(PRETTYCOMPRINT ERRORCOMS)

(RPAQQ ERRORCOMS
 ((ADDVARS (GLOBALVARS QP.LAST.ERROR.CULPRIT2)
			     (GLOBALVARS QP.LAST.ERROR.CULPRIT)
			     (GLOBALVARS QP.LAST.ERROR.NUMBER)
			     (GLOBALVARS QP.ERROR.TABLE.SIZE)
			     (GLOBALVARS QP.ERROR.TABLE))
		    (VARS (QP.ERROR.TABLE.SIZE 100))
		    (MACROS QP.ERROR.PRINT)
		    (FNS QP.DELIVER.ERRORS QP.ERROR QP.ERROR.EVENT QP.FATAL.ERROR QP.INIT.ERROR 
			 QP.MAKE.REMARK QP.NERROR QP.NERROR2)))

(ADDTOVAR GLOBALVARS
 QP.LAST.ERROR.CULPRIT2)

(ADDTOVAR GLOBALVARS
 QP.LAST.ERROR.CULPRIT)

(ADDTOVAR GLOBALVARS
 QP.LAST.ERROR.NUMBER)

(ADDTOVAR GLOBALVARS
 QP.ERROR.TABLE.SIZE)

(ADDTOVAR GLOBALVARS
 QP.ERROR.TABLE)

(RPAQQ QP.ERROR.TABLE.SIZE
 100)
(DECLARE: EVAL@COMPILE 
(PUTPROPS QP.ERROR.PRINT MACRO (**MACROARG** (LET ((OUTPUT.STRING (CAR (NTH **MACROARG** 1))))
						  (BQUOTE (PROGN (PRINTOUT (QIO.STREAM 
										QP.STANDARD.ERROR)
									   (\, OUTPUT.STRING)))))))
)
(DEFINEQ

(QP.DELIVER.ERRORS

  (LAMBDA (CODEP CULP1 CULP2)
    (
SETQ
 QP.LAST.ERROR.NUMBER 0)
    (VALUES CODEP CULP1 CULP2)))

(QP.ERROR

  (LAMBDA (MESSAGE)
    (PRINTOUT (QIO.STREAM QP.STANDARD.ERROR)
	      0 "[ Error: " MESSAGE " ]" 0)
    (
QP.PROLOG.EVENT
 (
QUOTE
 EV←ABORT))))

(QP.ERROR.EVENT

  (LAMBDA (EVENT)
    (
SELECTQ
 EVENT
	       (EV←OVSTACK (
QUOTE
 OV←STACK))
	       (EV←OVHEAP (
QUOTE
 OV←HEAP))
	       (EV←OVTRAIL (
QUOTE
 OV←TRAIL))
	       (EV←OVPDL (
QUOTE
 OV←PDL))
	       (EV←OVATOMSYM (
QUOTE
 OV←SYMATOM))
	       (EV←OVPROCSYM (
QUOTE
 OV←SYMPROC))
	       (EV←OVCODE (
QUOTE
 OV←CODE))
	       (
QUOTE
 SI←INVEV))))

(QP.FATAL.ERROR

  (LAMBDA (MESSAGE)
    (PRINTOUT (QIO.STREAM QP.STANDARD.ERROR)
	      0 "[ FATAL ERROR: " MESSAGE " ]" 0 "[ Exit ]" 0)
    (QP.EXIT -1)))

(QP.INIT.ERROR

  (LAMBDA NIL
    (
SETQ
 QP.LAST.ERROR.NUMBER 0)
    (
SETQ
 QP.LAST.ERROR.CULPRIT (
QUOTE
 NOCULPRIT))
    (
SETQ
 QP.LAST.ERROR.CULPRIT2 (
QUOTE
 NOCULPRIT))))

(QP.MAKE.REMARK

  (LAMBDA (SECURE)
    (if
 (
EQ
 SECURE -1)
	then
 (QP.ERROR.PRINT 
			  "
%
[ Prolog cannot find the codes file - see your system manager ]
%
  ")
      else
 (QP.ERROR.PRINT 
"
%
[ Quintus Prolog is not licensed for this machine ]
%
[ See your system manager and contact Quintus to extend your license ]"))))

(QP.NERROR

  (LAMBDA (ERROR.HANDLE CULPRIT)
    (
SETQ
 QP.LAST.ERROR.NUMBER (
GETHASH
 ERROR.HANDLE QP.ERROR.TABLE))
    (
SETQ
 QP.LAST.ERROR.CULPRIT CULPRIT)
    (
SETQ
 QP.LAST.ERROR.CULPRIT2 (
QUOTE
 NOCULPRIT))
    (
QP.PROLOG.EVENT
 (
QUOTE
 EV←ERROR))))

(QP.NERROR2

  (LAMBDA (ERROR.HANDLE CULPRIT CULPRIT2)
    (
SETQ
 QP.LAST.ERROR.NUMBER (
GETHASH
 ERROR.HANDLE QP.ERROR.TABLE))
    (
SETQ
 QP.LAST.ERROR.CULPRIT CULPRIT)
    (
SETQ
 QP.LAST.ERROR.CULPRIT2 CULPRIT2)
    (
QP.PROLOG.EVENT
 (
QUOTE
 EV←ERROR))))
)
(PUTPROPS ERROR.LSP COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1155 3101 (QP.DELIVER.ERRORS 1165 . 1288) (QP.ERROR 1290 . 1454) (QP.ERROR.EVENT 1456
 . 1842) (QP.FATAL.ERROR 1844 . 2003) (QP.INIT.ERROR 2005 . 2196) (QP.MAKE.REMARK 2198 . 2540) (
QP.NERROR 2542 . 2821) (QP.NERROR2 2823 . 3099)))))
STOP