(FILECREATED "25-Nov-85 16:48:00" {DSK}<LISPFILES2>PATCHES.LSP;1
 730    

      changes to:  (VARS PATCHESCOMS))


(PRETTYCOMPRINT PATCHESCOMS)

(RPAQQ PATCHESCOMS
 ((VARS (PROLOGLIBRARYDIRECTORIES NIL))
		      (GLOBALVARS PROLOGLIBRARYDIRECTORIES)
		      (FNS QP.GEN.EMULATOR QP.SECURE)))

(RPAQQ PROLOGLIBRARYDIRECTORIES
 NIL)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS PROLOGLIBRARYDIRECTORIES)
)
(DEFINEQ

(QP.GEN.EMULATOR

  [LAMBDA NIL
    (
PROLOG.INIT.MEMORY
)
    (
MOVD
 (
QUOTE
 NILL)
	    (
QUOTE
 PROLOG.INIT.MEMORY))
    (
PROLOG.GEN.EMULATOR
 T)
    (FOR
 I FROM
 1 TO
 100 DO
 (
RINGBELLS
))
    "Initialised"])

(QP.SECURE

  [LAMBDA NIL T])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (418 708 (QP.GEN.EMULATOR 428 . 672) (QP.SECURE 674 . 706)))))
STOP