(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "22-Nov-93 16:03:54" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLPROGV.;1 ) "11-Nov-93 16:58:33" "COMPILE-FILEd" in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED "18-Oct-93 14:37:11" "{Pele:mv:envos}Sources>CLTL2>CMLPROGV.;2" 5917 previous date%: " 3-Sep-91 17:48:59" "{Pele:mv:envos}Sources>CLTL2>CMLPROGV.;1") (RPAQQ CMLPROGVCOMS ((FNS \DO.PROGV \DO.PROGV.SETUP.FRAME.AND.EXECUTE) (SPECIAL-FORMS CL:PROGV) (PROP DMACRO CL:PROGV) (PROP FILETYPE CMLPROGV))) \DO.PROGV :D8 (L (2 FNTOCALL 1 VALUES 0 VARS)) Gj!@Œd ¿HkÔ¸µòHdàkØlØmüåYØlkØâØkØZƒhýkÙdjñ³ù¿JHI@A jB(65 \DO.PROGV.SETUP.FRAME.AND.EXECUTE 12 CHECK-BINDABLE) NIL () \DO.PROGV.SETUP.FRAME.AND.EXECUTE :D8 (L (4 VALUES 3 VARS 2 NTSIZE 1 NVARS 0 NNILS) P 11 \INTERRUPTABLE P 10 \INTERRUPTABLE)  f1kHÑÉkdHÑÈ@àÙYAàØlØmüåÑZCIHl ØÙâldBØI Lµ_ JÉ¿g¿ JdÈnðågÒnÿåäÍ¿JlkØÐgÓÍJBÍkHÑjÏ0¿kHÑJοkHÑkÏ`¿kjðhðh_¿`OÐDµgοOdlðšÓ°Db¿°ìlð’O„[3 –JNÐjKуJNÐKοJOÐn€Í¿JOkØÐMÍ¿L¼MkÔ½NlÔ¾OlÔ_¿OlÔ_¿±ÿ&(198 SHOULDNT) (163 NOBIND 152 \STACKSPACE 104 \PROGV 84 \PROGV 65 \PROGV) () CL::interpret-PROGVA0001 :D8 (F 0 CL::$$PROGV-FORMS F 1 CL::$$PROGV-ENVIRONMENT) PQ (6 \EVAL-PROGN) NIL () CL::interpret-PROGV :D8 (L (1 XCL::$$ENV 0 XCL::$$TAIL) P 4 CL::$$PROGV-ENVIRONMENT P 3 CL::$$PROGV-FORMS) )@A@YºI»A¼HL JL g (38 \DO.PROGV 28 CL:EVAL 21 CL:EVAL) (33 CL::interpret-PROGVA0001) () (PUTPROP (QUOTE CL:PROGV) (QUOTE SPECIAL-FORM) (QUOTE CL::interpret-PROGV)) (PUTPROPS CL:PROGV DMACRO ((VARIABLES VALUES . FORMS) (\DO.PROGV VARIABLES VALUES (CL:FUNCTION (LAMBDA NIL . FORMS))))) (PUTPROPS CMLPROGV FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLPROGV COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1991 1993)) NIL