(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "31-Jan-98 09:37:30" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>sources>CMLPROGV.;1) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "30-Jan-91 19:07:51" {DSK}sybalsky>3-BYTE-ATOM-CHANGES>CMLPROGV.;4 5921 changes to%: (FNS \DO.PROGV.SETUP.FRAME.AND.EXECUTE) previous date%: "21-Jan-91 17:10:45" {DSK}sybalsky>3-BYTE-ATOM-CHANGES>CMLPROGV.;2) (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)) NIL