(FILECREATED "25-Feb-86 15:04:23" {DSK}<LISPFILES2>IMPROVEDDCOMS>ERROR.;6
 2748   

      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 NIL (VALUES QP.LAST.ERROR.NUMBER QP.LAST.ERROR.CULPRIT QP.LAST.ERROR.CULPRIT2)))

(QP.ERROR

(LAMBDA (MESSAGE) (PRINTOUT (QIO.STREAM QP.STANDARD.ERROR) 0 "[ Error: " MESSAGE " ]" 0) (
QP.PROLOG.EVENT 8)))

(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.PROLOG.EVENT 3)))

(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 0) (QP.PROLOG.EVENT 4)))

(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 4)))
)
(PUTPROPS ERROR COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1084 2660 (QP.DELIVER.ERRORS 1094 . 1205) (QP.ERROR 1207 . 1332) (QP.ERROR.EVENT 1334
 . 1616) (QP.FATAL.ERROR 1618 . 1768) (QP.INIT.ERROR 1770 . 1928) (QP.MAKE.REMARK 1930 . 2230) (
QP.NERROR 2232 . 2435) (QP.NERROR2 2437 . 2658)))))
STOP