(FILECREATED " 5-Jul-86 22:43:45" ("compiled on " {ERIS}LIBRARY>CMLPROGV.;3) "30-Jun-86 12:06:27" "COMPILE-FILEd" in "Xerox Lisp 30-Jun-86 ..." dated "30-Jun-86 13:37:08") (FILECREATED " 5-Jul-86 22:43:29" {ERIS}LIBRARY>CMLPROGV.;3 4863 changes to: (MACROS PROGV) (SPECIAL-FORMS PROGV) (VARS CMLPROGVCOMS) (PROPS (CMLPROGV FILETYPE)) (FNS \DO.PROGV \DO.PROGV.SETUP.FRAME.AND.EXECUTE) previous date: " 5-Jul-86 22:32:02" {ERIS}LIBRARY>CMLPROGV.;2) (RPAQQ CMLPROGVCOMS ((FNS \DO.PROGV \DO.PROGV.SETUP.FRAME.AND.EXECUTE) (SPECIAL-FORMS PROGV) (PROP DMACRO PROGV) (PROP FILETYPE CMLPROGV))) \DO.PROGV D1 (L (2 FNTOCALL 1 VALUES 0 VARS)) Cj1@°d[¿K •h °öHkÔ¸µëHdlØmüåYlØØZƒhýkÙdjñ³ù¿JHIB@A (100Q \DO.PROGV.SETUP.FRAME.AND.EXECUTE 23Q ASSERT-FAIL 16Q CONSTANTP) NIL () \DO.PROGV.SETUP.FRAME.AND.EXECUTE D1 (L (5 VALUES 4 VARS 3 FNTOCALL 2 NTSIZE 1 NVARS 0 NNILS)) ¾ f1kHÑʇkHÑÈÑkdHÑÈ@àÙYAàlØØmüåÑZDIHl ØÙâlBlØI Lµ;JBÍkHÑjÏ0¿JÒ»kHÑKÏ¿kHÑKχ¿kHÑJÓÍ¿kHÑkÏ`¿kjðhðjC_¿`OÐEEb ¿Î¿JNÐOÓÍ¿JOÐMn€ØÍ¿L¼MkÔ½NkÔ¾OkÔ_¿OlÔ_¿±ÿ}NIL (217Q LITATOM 172Q \STACKSPACE) () eval-PROGVA0001 D1 (F 0 $PROGV-FORMS F 1 $PROGV-ENVIRONMENT) PQ (4 EVAL-PROGN) NIL () eval-PROGV D1 (L (1 $$ENV 0 $$TAIL) P 4 $PROGV-ENVIRONMENT P 3 $PROGV-FORMS F 5 ENV) !@A@YºI»A¼HU JU g (36Q \DO.PROGV 30Q CL:EVAL 23Q CL:EVAL) (33Q eval-PROGVA0001) () (PUTPROPS PROGV SPECIAL-FORM eval-PROGV) (PUTPROPS PROGV DMACRO ((VARIABLES VALUES . FORMS) (\DO.PROGV VARIABLES VALUES (CL:FUNCTION (LAMBDA NIL . FORMS))))) (PUTPROPS CMLPROGV FILETYPE COMPILE-FILE) (PUTPROPS CMLPROGV COPYRIGHT ("Xerox Corporation" 1986)) STOP