(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

(FILECREATED "16-May-90 15:00:10" |{DSK}<usr>local>lde>lispcore>sources>COMPATIBILITY.;2|
 2011   

      |changes| |to:|  (VARS COMPATIBILITYCOMS)

      |previous| |date:| "16-Oct-86 23:43:55" |{DSK}<usr>local>lde>lispcore>sources>COMPATIBILITY.;1|
)


; Copyright (c) 1984, 1985, 1986, 1990 by Venue & Xerox Corporation.  All rights reserved.

(PRETTYCOMPRINT COMPATIBILITYCOMS)

(RPAQQ COMPATIBILITYCOMS

       ((FNS DEFINEDP FGETD PUTDQ PUTDQ? RESETTERMCHARS RESETINT)
        (P (MOVD 'HARRAYP '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))))

(resettermchars

  (lambda (termtable systemtype)
                             (* |lmm| "24-May-86 18:51")

    nil))

(resetint

  (lambda (from
 to
)
                                          (* |lmm| "24-May-86 18:51")

    nil))
)

(MOVD 'HARRAYP 'HASHARRAYP)
(DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 PUTDQ? PUTDQ)

(ADDTOVAR LAMA
 )
)
(PUTPROPS COMPATIBILITY COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1990))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (853 1729 (DEFINEDP 863 . 1063) (FGETD 1065 . 1332) (PUTDQ 1334 . 1384) (PUTDQ? 1386 . 
1469) (RESETTERMCHARS 1471 . 1597) (RESETINT 1599 . 1727)))))
STOP