(FILECREATED "31-Jul-85 16:38:50" {ERIS}<LISPCORE>SOURCES>COMPATIBILITY.;2
 1378   

      changes to:  (VARS COMPATIBILITYCOMS)

      previous date: "12-Apr-84 13:21:44" {ERIS}<LISPCORE>SOURCES>COMPATIBILITY.;1)


(* Copyright (c) 1984, 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT COMPATIBILITYCOMS)

(RPAQQ COMPATIBILITYCOMS
 ((FNS DEFINEDP FGETD PUTDQ PUTDQ?) (P (MOVD (QUOTE HARRAYP) (QUOTE HASHARRAYP
))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML PUTDQ? PUTDQ)
 (LAMA)))))
(DEFINEQ

(DEFINEDP

  [LAMBDA (A)                                                (* lmm "10-Apr-84 15:13")

    (AND (LITATOM A)
	 (fetch
 (LITATOM DEFPOINTER) of
 A)
	 T])

(FGETD

  [LAMBDA (FN)                                               (* lmm: "12-NOV-76 00:13:04")

    (SETQ FN (GETD FN))
    (COND
      ((AND (LISTP FN)
	    (SMALLP (CAR FN))
	    (SMALLP (CDR FN)))
	(CDR FN))
      (T FN])

(PUTDQ

  [NLAMBDA (X Y)
    (PUTD X Y)
    X])

(PUTDQ?

  [NLAMBDA (FN DEF)
    (AND (NULL (GETD FN))
	 (PUTD FN DEF])
)
(MOVD (QUOTE HARRAYP) (QUOTE HASHARRAYP))
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 PUTDQ? PUTDQ)

(ADDTOVAR LAMA
 )
)
(PUTPROPS COMPATIBILITY COPYRIGHT ("Xerox Corporation" 1984 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (552 1103 (DEFINEDP 562 . 737) (FGETD 739 . 973) (PUTDQ 975 . 1025) (PUTDQ? 1027 . 1101)
))))
STOP