(FILECREATED " 7-Aug-86 19:36:32" ("compiled on " {ERINYES}NEWPCL>PCLMACROS.LISP;3) "30-Jul-86 09:02:49" "COMPILE-FILEd" in "Xerox Lisp 30-Jul-86 ..." dated "30-Jul-86 09:16:17") (IN-PACKAGE "USER") (IN-PACKAGE (QUOTE PCL) :NICKNAMES (QUOTE (PORTABLE-COMMONLOOPS))) (EXPORT (QUOTE (NDEFSTRUCT DEFMETH RUN-SUPER MAKE INITIALIZE GET-SLOT WITH WITH* CLASS-NAME CLASS-SLOTS CLASS-OF CLASS-NAMED DISCRIMINATOR-NAMED CLASS-PROTOTYPE CLASS OBJECT ESSENTIAL-CLASS ESSENTIAL-DISCRIMINATOR ESSENTIAL-METHOD SLOTD-NAME SLOT-MISSING MAKE-INSTANCE GET-SLOT-USING-CLASS OPTIMIZE-GET-SLOT OPTIMIZE-SETF-OF-GET-SLOT DEFINE-CLASS-OF-CLAUSE ADD-NAMED-CLASS CLASS-FOR-REDEFINITION ADD-CLASS SUPERS-CHANGED SLOTS-CHANGED CHECK-SUPER-META-CLASS-COMPATIBILITY CHECK-META-CLASS-CHANGE-COMPATIBILITY MAKE-SLOTD COMPUTE-CLASS-PRECEDENCE-LIST WALK-METHOD-BODY WALK-METHOD-BODY-FORM OPTIMIZE-GET-SLOT OPTIMIZE-SET-OF-GET-SLOT VARIABLE-LEXICAL-P ADD-NAMED-METHOD ADD-METHOD REMOVE-NAMED-METHOD REMOVE-METHOD FIND-METHOD FIND-METHOD-INTERNAL MAKE-DISCRIMINATING-FUNCTION INSTALL-DISCRIMINATING-FUNCTION NO-MATCHING-METHOD CLASS-CLASS-PRECEDENCE-LIST CLASS-LOCAL-SUPERS CLASS-DIRECT-SUBCLASSES CLASS-NAME)) (FIND-PACKAGE ( QUOTE PCL))) (PROCLAIM (QUOTE (DECLARATION VALUES))) expand-MEMQ D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!HHgIJoNIL (16Q CL:MEMBER) ( 24Q (:TEST (CL:FUNCTION EQ))) (SETF-MACRO-FUNCTION (QUOTE MEMQ) (QUOTE expand-MEMQ)) expand-ASSQ D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!HHgIJoNIL (16Q CL:ASSOC) ( 24Q (:TEST (CL:FUNCTION EQ))) (SETF-MACRO-FUNCTION (QUOTE ASSQ) (QUOTE expand-ASSQ)) expand-DELQ D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!HHgIJoNIL (16Q CL:DELETE) ( 24Q (:TEST (CL:FUNCTION EQ))) (SETF-MACRO-FUNCTION (QUOTE DELQ) (QUOTE expand-DELQ)) MAKE-CAXR D1 (L (1 FORM 0 N)) &l@@o Ah@lgAhbb(14Q CL:NTH) (30Q CDDDDR) ( 11Q (CAR CADR CADDR CADDDR)) MAKE-CDXR D1 (L (1 FORM 0 N)) ,@ Al@@o Ah@lgAhbb(23Q CL:NTH 3 CL:ZEROP) (37Q CDDDDR) ( 20Q (IDENTITY CDR CDDR CDDDR CDDDDR)) expand-IGNORE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ggHhNIL (12Q IGNORE 7 DECLARE) () (SETF-MACRO-FUNCTION (QUOTE IGNORE) (QUOTE expand-IGNORE)) expand-ONCE-ONLY D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @AHHI[OgNOggIJO hhggggNhhoggOhhhhgggLhgLhggLhggLhohhLgMohgMNhgLOhMhhO_KD(57Q CL:REVERSE 23Q GENSYM 20Q GENSYM 15Q GENSYM) (270Q CL:PUSH 257Q CL:PUSH 244Q LET 215Q CAR 212Q CL:MEMBER 203Q CL:LISTP 200Q AND 171Q NUMBERP 162Q SYMBOLP 157Q OR 154Q CL:IF 126Q CL:NREVERSE 123Q \, 103Q CL:NREVERSE 100Q \, 75Q CL:LAMBDA 72Q BQUOTE 46Q CL:LAMBDA 43Q WRAPPED-BODY 35Q LET*) ( 251Q ((GENSYM)) 225Q ((QUOTE (QUOTE CL:FUNCTION))) 116Q ((\, WRAPPED-BODY))) (SETF-MACRO-FUNCTION (QUOTE ONCE-ONLY) (QUOTE expand-ONCE-ONLY)) EXTRACT-DECLARATIONS D1 (L (0 BODY)) 80@d @@b@@JdJgHI@ @@bI(51Q VALUES 10Q CL:STRINGP) (41Q DECLARE) () expand-MAKE-FAST-NCONC-LIST D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) oNIL NIL ( 3 (LET ((FAST-NCONC-LIST (CONS NIL (LIST NIL)))) (RPLACA FAST-NCONC-LIST (CDR FAST-NCONC-LIST)) FAST-NCONC-LIST)) (SETF-MACRO-FUNCTION (QUOTE MAKE-FAST-NCONC-LIST) (QUOTE expand-MAKE-FAST-NCONC-LIST)) expand-FAST-NCONC-LIST-REAL-LIST D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHhNIL (10Q CDDR) () (SETF-MACRO-FUNCTION (QUOTE FAST-NCONC-LIST-REAL-LIST) (QUOTE expand-FAST-NCONC-LIST-REAL-LIST)) expand-FAST-NCONC-CONS D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @qHHIdld3dMJ]KILMgggNhJhgNgNhhh_gK OhL dgdgihI(144Q CL:NREVERSE 132Q CL:NREVERSE 41Q GENSYM) (161Q CL:FUNCTION 153Q QUOTE 126Q CL:LAMBDA 104Q CDAR 100Q RPLACA 64Q CAR 61Q RPLACD 56Q PROGN) () (SETF-MACRO-FUNCTION (QUOTE FAST-NCONC-CONS) (QUOTE expand-FAST-NCONC-CONS)) expand-FAST-NCONC-ITEM D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!HHgIgJohNIL (22Q CONS 16Q FAST-NCONC-CONS) ( 27Q (NIL)) (SETF-MACRO-FUNCTION (QUOTE FAST-NCONC-ITEM) (QUOTE expand-FAST-NCONC-ITEM)) MAKE-KEYWORD D1 (L (0 SYMBOL)) @ g (11Q INTERN 3 SYMBOL-NAME) (6 KEYWORD) () STRING-APPEND D1 (L (0 -args-)) deHk2JdIK1IZAg kgI,aL Mh\JkZM&dLk\no LKd J(134Q STRING 120Q LISPERROR 36Q SYMBOL-FUNCTION) (44Q STRING 33Q CONCATENATE) ( 115Q "TOO MANY ARGUMENTS") SYMBOL-APPEND D1 (L (0 -args-) F 4 *PACKAGE*) #eka!lalHTlaIJ K (40Q INTERN 34Q STRING-APPEND) NIL () expand-CHECK-MEMBER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) "@ HHZJgL g gL ILo h__Idl'd3"d_O_IO_OKdl!d3dgd_O_KO_O__ggOOgMhgogNhOOhh_gO OhO dgdg(i&dgdgi,hJIZhgKw(340Q CL:NREVERSE 325Q CL:NREVERSE 203Q GENSYM 134Q GENSYM 72Q KEYWORD-TEST 52Q FIND-KEYWORD 42Q SYMBOL-FUNCTION 26Q FIND-KEYWORD) (377Q CL:FUNCTION 371Q QUOTE 355Q CL:FUNCTION 347Q QUOTE 320Q CL:LAMBDA 270Q QUOTE 261Q CL:ERROR 247Q :TEST 240Q CL:MEMBER 235Q OR 46Q :PRETTY-NAME 37Q EQL 22Q :TEST) ( 265Q "The value of ~A, ~S is not one of ~S." 67Q (:PRETTY-NAME :TEST)) (SETF-MACRO-FUNCTION (QUOTE CHECK-MEMBER) (QUOTE expand-CHECK-MEMBER)) DESTRUCTURE D1 (L (1 FORM 0 PATTERN) P 0 *DESTRUCTURE-VARS*) 9 AloggAhhgbI@A hH (66Q VALUES 63Q CL:DELETE 56Q \NCONC2 53Q CL:NREVERSE 50Q DESTRUCTURE-INTERNAL) (37Q .DESTRUCTURE-FORM. 24Q .DESTRUCTURE-FORM. 21Q CL:SETQ) ( 15Q (.DESTRUCTURE-FORM.)) DESTRUCTURE-INTERNALA0001 D1 (L (2 POP-INTO 1 FORM 0 VAR) F 0 PENDING-POPS) dP $g@g@gAhhB>gBgA-B@3g@PA $ggBPA h@g@gBhhhjc(103Q MAKE-CDXR 65Q MAKE-CAXR 3 CL:ZEROP) (121Q CL:POP 115Q CL:SETQ 75Q CL:SETQ 72Q PROGN 57Q CL:SETQ 44Q CDR 40Q CL:SETQ 22Q CAR 16Q CL:SETQ 10Q PROGN) () DESTRUCTURE-INTERNAL D1 (L (1 FORM 0 PATTERN) P 1 PENDING-POPS F 6 *DESTRUCTURE-VARS*) jBg\@]ZloJVc MdJAhTlJAMlLK[Jogg IkԹ/Mogg JAhlLKIkԹJAdlLKMgHohHAMlMAlLMdH KMdlȿMVc K(256Q CL:NREVERSE 253Q DESTRUCTURE-INTERNAL 150Q CL:MEMBER 145Q SYMBOL-FUNCTION 116Q CL:MEMBER 113Q SYMBOL-FUNCTION 2 GENSYM) (211Q LET 142Q EQ 137Q :TEST 110Q EQ 105Q :TEST 11Q DESTRUCTURE-INTERNALA0001) ( 216Q (NIL) 134Q (NIL IGNORE) 102Q (NIL IGNORE)) (OR (BOUNDP (QUOTE *ITERATE-RESULT-TYPES*)) (SETQ *ITERATE-RESULT-TYPES* NIL)) (PROCLAIM (QUOTE (SPECIAL *ITERATE-RESULT-TYPES*))) expand-DEFINE-ITERATE-RESULT-TYPE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @QHHZJ\LlLI o gggggIhohhgggggMhhggIMhohhLhLlh gMKLh(51Q MAKE-SYMBOL 46Q STRING-APPEND 37Q SYMBOL-NAME) (215Q DEFUN 145Q QUOTE 142Q CL:PUSH 127Q QUOTE 124Q EXISTING 121Q RPLACD 116Q EXISTING 113Q CL:IF 71Q QUOTE 66Q ASSQ 63Q EXISTING 60Q LET 55Q PROGN) ( 157Q (*ITERATE-RESULT-TYPES*) 101Q (*ITERATE-RESULT-TYPES*) 43Q " iterate result type") (SETF-MACRO-FUNCTION (QUOTE DEFINE-ITERATE-RESULT-TYPE) (QUOTE expand-DEFINE-ITERATE-RESULT-TYPE)) expand-ITERATEA0001 D1 (L (0 CONTROL) F 15Q VAR-INIT-STEPS F 16Q BINDS F 17Q PRE-END-TESTS F 20Q PRE-BODIES) | @@@@d I\dgdggHdK]gMhMJNhWcgMhWcHd+(Ig HWcgHgMhhW c IggMhM __OW cW O c gKogg KgKgKoK_h[gHh%g:OO3gHKhK HJOhWcO:OOhWcO)gHOhWcLgHJKdhWcgLo (571Q ECASE-FAIL 322Q CL:MEMBER 317Q SYMBOL-FUNCTION 300Q GENSYM 262Q \NCONC2 257Q CL:NREVERSE 246Q \NCONC2 227Q \MVLIST 224Q DESTRUCTURE 55Q GENSYM) (561Q TYPE 532Q = 511Q > 425Q + 402Q BY 370Q 1+ 342Q - 331Q TO 314Q EQ 311Q :TEST 270Q FROM 207Q CAR 202Q IN 160Q CAR 154Q CL:SETQ 134Q IN 110Q NULL 64Q CDR 43Q IN 33Q ON 25Q IN) ( 566Q ((IN ON) FROM =) 351Q (1) 306Q (TO BELOW)) expand-ITERATEA0002 D1 (L (1 CONTEXT 0 FORM) F 1 RESULT-TYPE F 2 *ITERATE-RESULT-TYPES*) ?@dd5Rgg X#Q@hg@QglHc@QglH@(27Q CL:ASSOC 24Q SYMBOL-FUNCTION) (64Q MACROEXPAND 47Q CHECK-RESULT-TYPE 41Q CREATE-RESULT-TYPE 21Q EQ 16Q :TEST) () expand-ITERATEA0003 D1 (L (0 X)) @@hNIL NIL () expand-ITERATEA0004 D1 (L (0 X)) @g@@hNIL (7 CL:SETQ) () expand-ITERATE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM) P 15Q RESULT-TYPE P 14Q PRE-BODIES P 13Q PRE-END-TESTS P 12Q VAR-INIT-STEPS P 11Q BINDS) @HH ZP gI gJgg ZgJh[d\KgLLgLhgJh_^d"_NgOOgOh_gOO gggO MgggO ogO Jgh ghggO o h gOgOhhhh(335Q \APPEND2 327Q \APPEND2 320Q CL:MAPCAR 300Q CL:REVERSE 267Q CL:REVERSE 250Q CL:REVERSE 231Q CL:MAPCAR 213Q \APPEND2 45Q WALK-FORM 27Q CL:MAPC 14Q COPY-TREE) (346Q RETURN 341Q .ITERATE_RETURN. 313Q expand-ITERATEA0004 310Q PROGN 304Q OR 274Q PROGN 262Q PROGN 243Q OR 240Q AND 235Q RESTART 224Q expand-ITERATEA0003 221Q PROG 216Q ITERATE-MACROLETS 201Q LET 163Q PROGN 150Q CL:FINALLY 121Q PROGN 106Q PROGN 75Q CL:INITIALLY 51Q PROGN 42Q expand-ITERATEA0002 37Q :WALK-FUNCTION 32Q PROGN 23Q expand-ITERATEA0001) ( 324Q ((GO RESTART)) 255Q ((GO .ITERATE_RETURN.))) (SETF-MACRO-FUNCTION (QUOTE ITERATE) (QUOTE expand-ITERATE)) (LET ((EXISTING (CL:ASSOC (QUOTE CL:COLLECT) *ITERATE-RESULT-TYPES* :TEST (CL:FUNCTION EQ)))) (CL:IF EXISTING (RPLACD EXISTING (QUOTE ITERATE-COLLECT-JOIN)) (SETQ *ITERATE-RESULT-TYPES* (CONS (QUOTE ( CL:COLLECT . ITERATE-COLLECT-JOIN)) *ITERATE-RESULT-TYPES*)))) (LET ((EXISTING (CL:ASSOC (QUOTE CL:JOIN) *ITERATE-RESULT-TYPES* :TEST (CL:FUNCTION EQ)))) (CL:IF EXISTING (RPLACD EXISTING (QUOTE ITERATE-COLLECT-JOIN)) (SETQ *ITERATE-RESULT-TYPES* (CONS (QUOTE ( CL:JOIN . ITERATE-COLLECT-JOIN)) *ITERATE-RESULT-TYPES*)))) ITERATE-COLLECT-JOIN D1 (L (2 OP 1 RESULT-TYPE 0 FORM)) BHdg@IdohgIhhg#Aogg Ao@A Hg5@gg@AhgAgg@hAhhgHo (224Q ECASE-FAIL 116Q CL:ERROR 100Q CL:MEMBER 75Q SYMBOL-FUNCTION 17Q GENSYM) (214Q OP 167Q CL:REVERSE 164Q CL:APPEND 156Q CL:SETQ 140Q CL:PUSH 133Q CL:COLLECT 123Q MACROEXPAND 72Q EQ 67Q :TEST 53Q CHECK-RESULT-TYPE 36Q CL:NREVERSE 10Q CREATE-RESULT-TYPE) ( 221Q (CREATE-RESULT-TYPE CHECK-RESULT-TYPE MACROEXPAND) 107Q "Using ~S inside an iterate in which you already used ~S." 64Q (CL:COLLECT CL:JOIN) 30Q (NIL)) (LET ((EXISTING (CL:ASSOC (QUOTE CL:SUM) *ITERATE-RESULT-TYPES* :TEST (CL:FUNCTION EQ)))) (CL:IF EXISTING (RPLACD EXISTING (QUOTE CL:SUM% iterate% result% type0117)) (SETQ *ITERATE-RESULT-TYPES* ( CONS (QUOTE (CL:SUM . CL:SUM% iterate% result% type0117)) *ITERATE-RESULT-TYPES*)))) CL:SUM% iterate% result% type0117 D1 (L (2 OP 1 RESULT-TYPE 0 FORM)) QBHdg@IdohIhgAgHggA@hgHo (116Q ECASE-FAIL 17Q GENSYM) (106Q OP 70Q INCF 62Q MACROEXPAND 54Q CL:SUM 45Q CHECK-RESULT-TYPE 10Q CREATE-RESULT-TYPE) ( 113Q (CREATE-RESULT-TYPE CHECK-RESULT-TYPE MACROEXPAND) 30Q (0)) expand-ITERATE-MACROLETS D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @goHNIL (7 MACROLET) ( 13Q ((CL:UNTIL (TEST) (BQUOTE (CL:WHEN (\, TEST) (GO .ITERATE_RETURN.)))) (WHILE (TEST) (BQUOTE (CL:UNTIL (NOT (\, TEST))))) (CL:INITIALLY (&BODY BODY) (CL:ERROR "It is an error for FINALLY to appear other than at top-level~%%~ inside an iterate.")) (CL:FINALLY (&BODY IGNORE) (CL:ERROR "It is an error for INITIALLY to appear other than at top-level~%%~ inside an iterate.")))) (SETF-MACRO-FUNCTION (QUOTE ITERATE-MACROLETS) (QUOTE expand-ITERATE-MACROLETS)) expand-KEYWORD-BIND D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) +@AHHZJggggILhKhNIL (33Q &KEY 30Q CL:LAMBDA 25Q CL:FUNCTION 22Q CL:APPLY) () (SETF-MACRO-FUNCTION (QUOTE KEYWORD-BIND) (QUOTE expand-KEYWORD-BIND)) expand-KEYWORD-PARSEA0001 D1 (L (0 -args-) F 10Q ENTRY-VAR F 11Q SUPPLIED-P-GENSYMS F 12Q VAR F 13Q LAMBDA-LIST F 14Q SUPPLIED-P-VAR F 15Q VALUE-FORMS F 16Q FORM F 17Q DEFAULT) eHkJdIhaHkKdJgHkNdMh_WWcWjgWggW hWgLhhhhggWhWgLgggWhhgogW hhhSWcWcagJkaLJlZ;agKkaKKl[8agNkaENl^4hLg-gggWhhgogW hhhgggWhhWgWoOLggoWh!gLggoWhgWhhiWgWoIhhhhhWcW WWc(443Q MAKE-KEYWORD 264Q GENSYM 236Q MAKE-KEYWORD 123Q MAKE-KEYWORD) (623Q CL:SETQ 602Q CADAR 565Q CL:MAPCAR 560Q :MULTIPLE 552Q CDAR 534Q CL:MAPCAR 527Q :MULTIPLE 506Q CL:SETQ 467Q CAR 464Q CL:LISTP 461Q COND 436Q QUOTE 427Q CL:ERROR 414Q CAR 411Q CL:LISTP 406Q CL:UNLESS 400Q :REQUIRED 352Q :RETURN-CDR 325Q :ALLOWED 300Q :PRESENCE 231Q QUOTE 222Q CL:ERROR 207Q CAR 204Q NLISTP 201Q CL:UNLESS 171Q PROGN 157Q NULL 154Q CL:IF 133Q QUOTE 116Q QUOTE 113Q KEYWORD-PARSE-ASSQ 106Q LET 46Q :REQUIRED) ( 632Q ((QUOTE :PRESENCE)) 571Q (CL:FUNCTION CADR) 540Q (CL:FUNCTION CDR) 515Q ((QUOTE T)) 433Q "The ~S keyword was supplied without an~ argument~%%when present, this keyword must~ have an argument." 226Q "The ~S keyword was supplied with an~ argument, it is not allowed to have one.") expand-KEYWORD-PARSE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM) P 21Q VAR P 20Q DEFAULT P 17Q SUPPLIED-P-VAR P 15Q ENTRY-VAR P 7 VALUE-FORMS P 6 SUPPLIED-P-GENSYMS P 5 LAMBDA-LIST P 3 FORM) @ HHZJ I1OgNgM LO hddh__"O__ O_O_gj__OdOk_no OOO_(200Q LISPERROR 61Q CL:REVERSE 51Q CL:REVERSE 22Q GENSYM) (137Q expand-KEYWORD-PARSEA0001 45Q CL:LAMBDA 41Q LET) ( 175Q "TOO MANY ARGUMENTS") (SETF-MACRO-FUNCTION (QUOTE KEYWORD-PARSE) (QUOTE expand-KEYWORD-PARSE)) KEYWORD-PARSE-ASSQ D1 (L (2 ALLOWED 1 LIST 0 SYMBOL)) /AHI lHH@BgHHIIH(12Q CL:NREVERSE) (35Q :MULTIPLE) () expand-PRINTING-RANDOM-THING D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ HYIHKdld3dur_MKNO_goggoOhLgoOhgJOhgoOhh h_gM OhN dgdgih}K(221Q CL:NREVERSE 207Q CL:NREVERSE 167Q \APPEND2 46Q GENSYM) (236Q CL:FUNCTION 230Q QUOTE 203Q CL:LAMBDA 146Q PRINC 134Q PRINTING-RANDOM-THING-INTERNAL 117Q PRINC 101Q PRINC 76Q PROGN 67Q LET) ( 152Q ">" 123Q " " 105Q "#<" 73Q ((*PRINT-LEVEL* (AND (NUMBERP *PRINT-LEVEL*) (- *PRINT-LEVEL* 1))))) (SETF-MACRO-FUNCTION (QUOTE PRINTING-RANDOM-THING) (QUOTE expand-PRINTING-RANDOM-THING)) PRINTING-RANDOM-THING-INTERNAL D1 (L (1 STREAM 0 THING)) hNIL NIL () expand-DEFINE-NEW-PCL-CLASS-IMPLEMENTATION-TYPE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ,@gogggHhoohNIL (25Q QUOTE 22Q GET 17Q SETF 10Q EVAL-WHEN) ( 43Q ((QUOTE T)) 35Q ((QUOTE PCL-STRUCTURE)) 14Q (CL:COMPILE CL:LOAD CL:EVAL)) (SETF-MACRO-FUNCTION (QUOTE DEFINE-NEW-PCL-CLASS-IMPLEMENTATION-TYPE) (QUOTE expand-DEFINE-NEW-PCL-CLASS-IMPLEMENTATION-TYPE)) expand-PCL-CLASS-IMPLEMENTATION-TYPE-P D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (10Q GET) ( 15Q ((QUOTE PCL-STRUCTURE))) (SETF-MACRO-FUNCTION (QUOTE PCL-CLASS-IMPLEMENTATION-TYPE-P) (QUOTE expand-PCL-CLASS-IMPLEMENTATION-TYPE-P)) CAPITALIZE-WORDS D1 (L (0 STRING)) T@ bi1@ j[I @@K Zd HJ @KJ @KJ ho iKk԰(111Q CHAR-EQUAL 77Q %%SETELT 74Q CHAR-DOWNCASE 65Q CHAR-UPCASE 55Q LOWER-CASE-P 44Q BOTH-CASE-P 37Q CL:ELT 27Q %%= 20Q CL:LENGTH 6 COPY-SEQ 3 STRING) NIL ( 106Q |\-) (OR (BOUNDP (QUOTE *ERROR-WHEN-DEFINING-METHOD-ON-EXISTING-FUNCTION*)) (SETQ *ERROR-WHEN-DEFINING-METHOD-ON-EXISTING-FUNCTION* (QUOTE BOOTSTRAPPING))) (PROCLAIM (QUOTE (SPECIAL *ERROR-WHEN-DEFINING-METHOD-ON-EXISTING-FUNCTION*))) STOP