(FILECREATED "12-Mar-86 09:30:28" {ERIS}<TAMARIN>WORK>DT>TAMGETMACHINE.;2
 1590   

      changes to:  (VARS TAMGETMACHINECOMS)

      previous date: "27-Feb-86 10:59:33" {ERIS}<TAMARIN>WORK>DT>TAMGETMACHINE.;1)


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

(PRETTYCOMPRINT TAMGETMACHINECOMS)

(RPAQQ TAMGETMACHINECOMS
 ((* ASM and some kind of PRINTCODE, at least, do <TAM.GETMACHINE 
                                 machine/NIL> to get their SPECVARS set up to describe the machine 
                                 they're talking about -- it indirects to some x.GETMACHINE that it 
                                 knows about)
                              (GLOBALVARS TAM.DEFMACHINE)
                              (INITVARS (TAM.DEFMACHINE (QUOTE T)))
                              (FNS TAM.GETMACHINE)))



(* ASM and some kind of PRINTCODE, at least, do <TAM.GETMACHINE machine/NIL> to get their 
SPECVARS set up to describe the machine they're talking about -- it indirects to some 
x.GETMACHINE that it knows about)


(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS TAM.DEFMACHINE)
)

(RPAQ? TAM.DEFMACHINE
 (QUOTE T))
(DEFINEQ

(TAM.GETMACHINE

  [LAMBDA (MACHINE)
                                                    (* jmh 
                                                                           "26-Feb-86 18:14")

    (APPLY* (SELECTQ (OR MACHINE TAM.DEFMACHINE)
                (D (QUOTE D.GETMACHINE))
                (QUOTE T.GETMACHINE])
)
(PUTPROPS TAMGETMACHINE COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1166 1506 (TAM.GETMACHINE 1176 . 1504)))))
STOP