(FILECREATED " 3-Feb-86 18:32:32" {DSK}<LISPFILES2>GEN.;4
 1443   

      changes to:  (VARS GENCOMS))


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

(PRETTYCOMPRINT GENCOMS)

(RPAQQ GENCOMS
 ((FNS PROLOG.GEN.EMULATOR PROLOG.GEN.STUB)))
(DEFINEQ

(PROLOG.GEN.EMULATOR

  (LAMBDA (Debug)
    (
PROG
 (N X)
	    (
SETQ
 N 255)
	    (
SETQ
 Debug (if
 Debug
			      then
 (
QUOTE
 ((
QP.update.windows
)))
			    else
 (
QUOTE
 NIL)))
	    (
PUTD
 (
QUOTE
 QP.PROLOG)
		    (
BQUOTE
 (LAMBDA (NAME ARITY MODULE)
				(
PROG
 NIL
				        (
PROLOG.INIT.REGISTERS
 (
QP.LOCAL.PREDICATE
 NAME ARITY 
										       MODULE))
				        (PROLOG.DUMMY.GOES (\, N))
				    START
				        ((OPCODES '0))
				        (POPDISP 0)
				        (\,@ (for
 X from
 0 to
 N join
 (PROLOG.GEN.STUB

									       X Debug)))
				    FINISHED
				        (
RETURN
 NIL)))))
	    (
SETQ
 N (if
 Debug
			  then
 (
QUOTE
 SLOWPROLOG)
			else
 (
QUOTE
 FASTPROLOG)))
	    (
ADDTOFILE
 (
QUOTE
 QP.PROLOG)
			 (
QUOTE
 FNS)
			 N)
	    (
MAKEFILE
 N (
QUOTE
 (NEW C ST))))))

(PROLOG.GEN.STUB

  (LAMBDA (N Debug)
    (
BQUOTE
 ((\, (
PROLOG.GEN.OP#
 N))
	       (PROLOGOP (\, N)
			 NIL
			 (\,@ Debug)
			 ((\, (
ELT
 QP.opcode N))))))))
)
(PUTPROPS GEN COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (279 1357 (PROLOG.GEN.EMULATOR 289 . 1181) (PROLOG.GEN.STUB 1183 . 1355)))))
STOP