(FILECREATED " 1-Aug-85 12:48:51" ("compiled on " {ERIS}<LISPCORE>PROLOG>PVAR.%;1) 
"19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28")
(FILECREATED " 1-Aug-85 12:30:28" {ERIS}<LISPCORE>PROLOG>PVAR.%;1 1105 changes to: (VARS PVARCOMS))
(PRETTYCOMPRINT PVARCOMS)
(RPAQQ PVARCOMS ((MACROS GET.PVAR PUT.PVAR)))
(PUTPROPS GET.PVAR MACRO (**MACROARG** (LET ((X (CAR (NTH **MACROARG** 1)))) (if (AND (LITATOM X) (
SETQ X (GETPROP X (QUOTE QP.pvarno)))) then (BQUOTE (ELT QP.dummy , (LRSH (DIFFERENCE X 512) 1))) else
 (SHOULDNT (QUOTE GET.PVAR))))))
(PUTPROPS PUT.PVAR MACRO (**MACROARG** (LET ((X (CAR (NTH **MACROARG** 1))) (Val (CAR (NTH 
**MACROARG** 2)))) (if (AND (LITATOM X) (SETQ X (GETPROP X (QUOTE QP.pvarno)))) then (BQUOTE (SETA 
QP.dummy , (LRSH (DIFFERENCE X 512) 1) , Val)) else (SHOULDNT (QUOTE PUT.PVAR))))))
(PUTPROPS PVAR COPYRIGHT ("Xerox Corporation" 1985))
NIL