(FILECREATED "12-Apr-84 13:21:44" {PHYLUM}<LISPCORE>SOURCES>COMPATIBILITY.;3
 1389   

      changes to:  (VARS COMPATIBILITYCOMS)

      previous date: "10-Apr-84 17:05:25" {PHYLUM}<LISPCORE>SOURCES>COMPATIBILITY.;2)


(* Copyright (c) 1984 by Xerox Corporation)

(PRETTYCOMPRINT COMPATIBILITYCOMS)

(RPAQQ COMPATIBILITYCOMS
 ((FNS DEFINEDP FGETD PUTDQ PUTDQ?)))
(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])
)
(PRETTYCOMPRINT COMPATIBILITYCOMS)

(RPAQQ COMPATIBILITYCOMS
 [(FNS DEFINEDP FGETD PUTDQ PUTDQ?)
			  (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
				    (ADDVARS (NLAMA)
					     (NLAML PUTDQ? PUTDQ)
					     (LAMA])
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 PUTDQ? PUTDQ)

(ADDTOVAR LAMA
 )
)
(PUTPROPS COMPATIBILITY COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (370 921 (DEFINEDP 380 . 555) (FGETD 557 . 791) (PUTDQ 793 . 843) (PUTDQ? 845 . 919))))
)
STOP