(FILECREATED "31-Aug-85 17:50:45" ("compiled on " {ERIS}LIBRARY>CMLDEFMACRO.;2) "16-Aug-85 06:20:26" tcompl'd in "INTERLISP-D 16-Aug-85 ..." dated "16-Aug-85 08:01:07") (FILECREATED "31-Aug-85 17:50:21" {ERIS}LIBRARY>CMLDEFMACRO.;2 13092 changes to: (VARS CMLDEFMACROCOMS) (FNS ANALYZE-ARGLIST ANALYZE1 ANALYZE-REST ANALYZE-AUX ANALYZE-KEY MAKE-KEYWORD FIND-KEYWORD KEYWORD-TEST) previous date: "30-Aug-85 00:17:26" {ERIS}LIBRARY>CMLDEFMACRO.;1) ANALYZE-ARGLIST D1 (L (3 WHOLE 2 ERRLOC 1 PATH 0 ARGLIST)) @ABC h (12Q CL:NREVERSE 6 ANALYZE1) NIL () ANALYZE1 D1 (L (3 WHOLE 2 ERRLOC 1 PATH 0 ARGLIST) F 4 \LET-LIST F 5 \ARG-COUNT F 6 \RESTP F 7 *DEFAULT-DEFAULT* F 10Q \MIN-ARGS) @1Hd HdAhTcic Zdg3C$H HlHChTcic HoB gIooB iYtJgJdgHABC gic KAhTcHKB JdgooB &gHB IAW cU c JdlgA ooB JgAhB U c JdlgAgAhhiWhh ooB Jl2JgAgAhhiJ k JWhhhTc5[gAgAhhiJJWhhhTcJKB J l JggAhhhTcgAhbHX(676Q > 671Q LENGTH 664Q ANALYZE1 604Q GENSYM 552Q > 546Q LENGTH 506Q CERROR 471Q CL:ATOM 421Q 1+ 412Q ANALYZE1 373Q CERROR 356Q CL:ATOM 332Q 1+ 323Q 1+ 312Q ANALYZE-AUX 274Q CERROR 247Q ANALYZE-KEY 221Q GENSYM 207Q ANALYZE-REST 153Q CERROR 124Q CL:ERROR 10Q CL:ATOM) (734Q CDR 712Q NULL 707Q NOT 614Q CAR 610Q COND 532Q CAR 526Q COND 443Q CAR 437Q COND 402Q CAR 347Q CAR 302Q &AUX 255Q &ALLOW-OTHER-KEYS 213Q &KEY 174Q &BODY 165Q &REST 132Q &OPTIONAL 43Q &WHOLE) ( 502Q "Non-symbol variable name in ~S." 476Q "Ignore this item." 367Q "Non-symbol variable name in ~S." 363Q "Ignore this item." 270Q "Stray &ALLOW-OTHER-KEYS in arglist of ~S." 264Q "Ignore it." 147Q "Redundant &optional flag in varlist of ~S." 143Q "Ignore it." 120Q "Illegal or ill-formed &whole arg in ~S.") ANALYZE-REST D1 (L (3 WHOLE 2 ERRLOC 1 PATH 0 ARGLIST) F 2 \LET-LIST F 3 \RESTP) @ @dloB @AhRcic @@Yw ooB eIdgHB UgIB GIgooB 2@g*CIIlIChRcIoB h(245Q CL:ERROR 163Q CERROR 136Q ANALYZE-AUX 120Q ANALYZE-KEY 100Q CERROR 63Q CL:ATOM 25Q CL:ERROR 3 CL:ATOM) (173Q &WHOLE 145Q &ALLOW-OTHER-KEYS 126Q &AUX 110Q &KEY) ( 241Q "Ill-formed or illegal &whole arg in ~S." 157Q "Stray &ALLOW-OTHER-KEYS in arglist of ~S." 153Q "Ignore it." 74Q "Dotted arglist terminator after &rest arg in ~S." 70Q "Ignore the illegal terminator." 21Q "Bad &rest or &body arg in ~S.") ANALYZE-AUX D1 (L (1 ERRLOC 0 ARGLIST) F 1 \LET-LIST) :@Hd ooA hHd HhHhQcHX(37Q CL:ATOM 27Q CERROR 12Q CL:ATOM) NIL ( 23Q "Dotted arglist after &AUX in ~S." 17Q "Ignore the illegal terminator.") ANALYZE-KEY D1 (L (2 ERRLOC 1 RESTVAR 0 ARGLIST) F 10Q \LET-LIST F 11Q * F 12Q *KEY-FINDER* F 13Q \KEYWORD-TESTS) iHWc@AKd K+ooB \dghYSg"KB IgAgJhhWcW(LlDL LggHWgMhAhhgHhhihhhhWcMJZWL ooLB WLlyL LLlL^hhWcLggHWgMhAhhN gNihhgHhh iLhhhWcMJZ>W9L L L ooLB W LlyLLLlL^hhWcLggHWgMhAhhN gNihhgHhh iLhhhWcMJZWL_LLlL^hhWcOggHWgMhAhhN gNihhgHhh iLhhhWcMJLOB K[(1207Q ANALYZE1 1144Q \APPEND2 1014Q GENSYM 743Q \APPEND2 565Q CERROR 545Q CL:ATOM 536Q KEYWORDP 527Q CL:ATOM 460Q \APPEND2 332Q MAKE-KEYWORD 304Q CERROR 266Q CL:ATOM 156Q MAKE-KEYWORD 103Q ANALYZE-AUX 47Q CERROR 25Q CL:ATOM 2 GENSYM) (1133Q CAR 1120Q SETQ 1075Q QUOTE 1067Q SETQ 1064Q COND 732Q CAR 717Q SETQ 674Q QUOTE 666Q SETQ 663Q COND 447Q CAR 434Q SETQ 411Q QUOTE 403Q SETQ 400Q COND 214Q CAR 174Q QUOTE 166Q SETQ 163Q COND 117Q QUOTE 113Q KEYWORD-TEST 72Q &AUX 57Q &ALLOW-OTHER-KEYS) ( 557Q "~S -- ill-formed keyword arg in ~S." 553Q "Ignore this item." 277Q "~S -- non-symbol variable name in arglist of ~S." 273Q "Ignore this item." 43Q "Dotted arglist after &key in ~S." 37Q "Ignore the illegal terminator.") MAKE-KEYWORD D1 (L (0 S) F 0 *KEYWORD-PACKAGE*) @ P (7 INTERN 3 SYMBOL-NAME) NIL () FIND-KEYWORD D1 (L (1 KEYLIST 0 KEYWORD)) 4AHd h oo Hh&hHd@hX(34Q CERROR 17Q CL:ATOM 10Q CL:ATOM) NIL ( 31Q "Unpaired item in keyword portion of macro call." 25Q "Stick a NIL on the end and go on.") KEYWORD-TEST D1 (L (1 LEGAL 0 KEYLIST)) 0g@ h@Hd A ooH HX(47Q CERROR 31Q MEMQ 22Q CL:ATOM 6 MEMQ) (2 :ALLOW-OTHER-KEYS) ( 42Q "~S illegal or unknown keyword." 36Q "Ignore it.") (PRETTYCOMPRINT CMLDEFMACROCOMS) (RPAQQ CMLDEFMACROCOMS ((INITVARS (*DEFAULT-DEFAULT* NIL) (*KEY-FINDER* (QUOTE FIND-KEYWORD))) (FNS ANALYZE-ARGLIST ANALYZE1 ANALYZE-REST ANALYZE-AUX ANALYZE-KEY MAKE-KEYWORD FIND-KEYWORD KEYWORD-TEST)) ) (RPAQ? *DEFAULT-DEFAULT* NIL) (RPAQ? *KEY-FINDER* (QUOTE FIND-KEYWORD)) (PUTPROPS CMLDEFMACRO COPYRIGHT ("Xerox Corporation" 1985)) NIL