‘XCL Compiler output for source file {DSK}arunwelch>skydrive>documents>unix>lisp>clos>current>macros.lisp;1 Source file created Tuesday, 25 June 1991, 14:02:50. FASL file created Friday, 4 December 2020, 13:16:51. ÿ˜– o ˜Œ1 top-level form˜ŒFUNCTION˜“€˜Œ IN-PACKAGE˜ŒCLOS˜– g ˜Œ1 top-level form™˜“€™˜’ŒCLOS˜‘˜ŒCLOS˜– o ˜Œ1 top-level form™˜“€˜ŒPROCLAIM˜“˜Œ DECLARATION˜ŒVALUES˜’ŒARGLIST™ ˜’Œ INDENTATION™ ˜’ŒCLASS™ ˜’ŒVARIABLE-REBINDING™ ˜’ŒCLOS-FAST-CALL™ œ˜’Œ expand-MEMQ™ ˜–@X¹HºgIJo™™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ˜ŒMEMBER˜“˜ŒTEST˜“˜ŒFUNCTION˜ŒEQ˜–&gg ¿ggo ˜Œ DEFMACRO MEMQ™˜“€ ˜•ŒPUTPROP ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES˜’ŒMEMQ™ ™™)˜“˜ŒITEM˜ŒLISTœ˜’Œ expand-ASSQ™ ˜–@X¹HºgIJo™.™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ˜ŒASSOC˜“™˜“™™ ˜–&gg ¿ggo ˜Œ DEFMACRO ASSQ™˜“€ ™& ™'™(˜’ŒASSQ™ ™.™9˜“˜ŒITEM˜ŒLISTœ˜’Œ expand-RASSQ™ ˜–@X¹HºgIJo™>™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ˜ŒRASSOC˜“™˜“™™ ˜–&gg ¿ggo ˜ŒDEFMACRO RASSQ™˜“€ ™& ™'™(˜’ŒRASSQ™ ™>™I˜“˜ŒITEM˜ŒLISTœ˜’Œ expand-DELQ™ ˜–@X¹HºgIJo™N™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ˜ŒDELETE˜“™˜“™™ ˜–&gg ¿ggo ˜Œ DEFMACRO DELQ™˜“€ ™& ™'™(˜’ŒDELQ™ ™N™Y˜“˜ŒITEM˜ŒLISTœ˜’Œ expand-POSQ™ ˜–@X¹HºgIJo™^™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ˜ŒPOSITION˜“™˜“™™ ˜–&gg ¿ggo ˜Œ DEFMACRO POSQ™˜“€ ™& ™'™(˜’ŒPOSQ™ ™^™i˜“˜ŒITEM˜ŒLISTœ˜’Œ expand-NEQ™ ˜–@X¹HºggIJhh™n™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™ ˜ŒNOT˜–&gg ¿ggo ˜Œ DEFMACRO NEQ™˜“€ ™& ™'™(˜’ŒNEQ™ ™n™w˜“˜ŒX˜ŒYœ˜’Œ MAKE-CAXR™ ˜–,@lýóŸ@o Ah@lÕgAhb¿b¿°×™|™˜“˜“˜ŒN˜ŒFORM ˜ŒNTH˜ŒCDDDDR˜“˜ŒCAR˜ŒCADR˜ŒCADDR˜ŒCADDDRœ˜’Œ MAKE-CDXR™ ˜–2j@ÿ‘A@lýóŸ@o Ah@lÕgAhb¿b¿°Ñ™‚‰™˜“˜“˜ŒN˜ŒFORM™‚!™‚‚˜“˜ŒIDENTITY˜ŒCDR˜ŒCDDR˜ŒCDDDR™‚‚œ˜’ŒZERO™ ˜–j™‚”™˜“€œ˜’Œ MAKE-PLIST™ ˜–AŸ@A@A h™‚—™˜“˜“˜ŒKEYS˜ŒVALS ™‚—œ˜’ŒREMTAIL™ ˜–@Að‘h@@A ™‚™˜“˜“˜ŒLIST˜ŒTAIL ™‚œ˜’Œexpand-ONCE-ONLY™ ˜–‚o@X¹Hº»¼½h¾I_¿h_¿O’O‚±’_¿gggOhgOhggOhggOhohhOgKohgKLhgOMhKhhN¾O_¿±ÿkgLMggI_¿N _¿h_¿h_¿h_¿O‘h€i_’O…O‘h€i“O°1OOh_¿O˜OO&_¿ˆOh__¿O_¿O_¿°¼JhhgogogLhgMhhoh™‚£ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚Ó˜ŒREVERSE˜ŒGENSYM™‚© ™‚©‚T™‚¨‚K™‚¨‚A˜ŒMAPCAR‚7˜ŒLIST‚ɘŒLET‚Ę’Œ WRAPPED-BODY™ ‚½˜ŒLET*‚™˜ŒPUSH‚Ž™‚¯‚€™‚¬d™‚ƒ_™U˜ŒLISTPP˜ŒANDF˜ŒNUMBERP<˜ŒSYMBOLP7˜ŒOR2˜ŒIF‚b˜“™‚­‚F˜“™™‚«‚<˜“˜ŒQUOTE™‚¬‚†˜“˜“™‚©n˜“˜“™‚¸˜“™‚¸™˜–&gg ¿ggo ˜ŒDEFMACRO ONCE-ONLY™˜“€ ™& ™'™(˜’Œ ONCE-ONLY™ ™‚£™‚˜“˜ŒVARS˜Œ&BODY˜ŒBODYœ˜’ŒEXTRACT-DECLARATIONS™ ˜–‚ h¸h¹hº@ ’@€h™@»@b¿K¸@¡°h@ºJ‘h€i[‘K…J‘i€h²3Jgð’i°+JA [¼K½LJð‘h€i^‘N€M’Lºƒ°#°!°¼²@b¿J»h¼K‘K€‰\I¹K»°ó°˜HIžgI h€h@$™‚È™˜“˜“˜ŒBODY˜Œ &OPTIONAL˜Œ ENVIRONMENT‚‘˜ŒNREVERSEI˜•Œ\MVLISTD˜Œ MACROEXPAND-1 ˜ŒSTRINGP‚‹˜ŒDECLARE8™‚Ò˜–'o ¿g X‘Hg c˜’Œ*KEYWORD-PACKAGE*™ ˜ŒDEFVAR *KEYWORD-PACKAGE*™˜“€˜Œ FIND-PACKAGE˜ŒBOUNDP™˜ŒKEYWORD ™‚Ô˜“˜ŒSPECIAL™‚Ôœ˜’Œ MAKE-KEYWORD™ ˜–@ P ™‚Ô™‚Ý™˜“˜“˜ŒSYMBOL˜ŒINTERN˜Œ SYMBOL-NAMEœ˜’Œ STRING-APPEND™ ˜–7he#¸H ¸H¹I³g gH II ¿I¹°Ú™‚ä‚ÿÿÿÿ™˜“˜“˜Œ&REST˜ŒSTRINGS+˜ŒSTRING"˜ŒAPPLY˜ŒSYMBOL-FUNCTION˜Œ COPY-LIST™‚阌 CONCATENATEœ˜’Œ SYMBOL-APPEND™ ˜–0ekó”eló™ll ¿elÙjð¤la¸Q¸@A H ˜Œ *PACKAGE*™‚ï‚ÿÿÿÿ™˜“˜“˜ŒSYM1˜ŒSYM2™‚ʘŒPACKAGE*™‚á$™‚䘒ŒARGUMENT-ERROR˜‘˜ŒSYSTEMœ˜’Œexpand-CHECK-MEMBER™ ˜–‚®@X¹HZ»J\½h¾gL ^’N‰g _¿gM ^’N€I_¿Mo ¿h_¿h_¿Id3@ð_“O°,I3‘i€h_“O°I‘h€i_’O…I‘i€h˜Io€h’I°_O_¿IO_¿O_¿Kd3@ð_“O°,K3‘i€h_“O°K‘h€i_’O…K‘i€h˜Ko€h’K°_O_¿KO_¿O_¿ggOOgOhgogOhOOhh_¿gO _¿O _¿h_¿h_¿h_ ¿O‘h€i_"’O"…O‘h€i“O°1OOh_ ¿O˜OO &_¿ˆO h__¿O_¿O_¿°¼Oh™‚ú™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚M™‚¨‚C™‚¨‚㙂©‚™‚©H˜•Œ KEYWORD-TEST4˜•Œ FIND-KEYWORD&™‚뙂 ‚<™‚¬‚!™‚¸‚˜ŒERROR‚ ™‚™‚ü™‚´.˜Œ PRETTY-NAME!˜ŒEQL™‚˜Œ%The value of ~A, ~S is not one of ~S.‚ט“™‚¸™‚„˜“™‚¸™C˜“™‚™˜–&gg ¿ggo ˜ŒDEFMACRO CHECK-MEMBER™˜“€ ™& ™'™(˜’Œ CHECK-MEMBER™ ™‚ú™‚ ˜“˜ŒPLACE˜ŒLIST˜Œ&KEY˜ŒTEST˜Œ PRETTY-NAMEœ˜’Œexpand-ALIST-ENTRY™ ˜–‚c@X¹HZ»J¼h½h¾Id3@ð_“O°,I3‘i€h_“O°I‘h€i_’O…I‘i€h˜Io€h‘I_M½IN¾O_¿Kd3@ð_“O°,K3‘i€h_“O°K‘h€i_’O…K‘i€h˜Ko€h‘K_M½KN¾O_¿ggOOhggOgLOhOhhgOhhh_¿gM _¿N _¿h_¿h_¿h_¿O‘h€i_’O…O‘h€i“O°1OOh_¿O˜OO&_¿ˆOh__¿O_¿O_¿°¼Oh™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚™‚¨‚ù™‚¨‚˜™‚©L™‚©‚󙂬‚Þ™‚ƒ‚ɘŒCONS‚˜ŒSETF‚½˜ŒPROGN‚°™9‚«™‚´‚˜“™‚¸™A˜“™‚¸™˜–&gg ¿ggo ˜ŒDEFMACRO ALIST-ENTRY™˜“€ ™& ™'™(˜’Œ ALIST-ENTRY™ ™‚™‚ ˜“˜ŒALIST˜ŒKEY˜Œ MAKE-ENTRY-FNœ˜’Œexpand-COLLECTING-ONCE™ ˜–O@X¹hºgH Z’J€h»Io ¿ggKhgK•o€hhho™‚&™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚ÿ ™‚3˜’ŒTAIL™ *˜’ŒHEAD™ %™‚®˜Œ INITIAL-VALUEG˜“˜“™˜“™˜“˜ŒLAMBDA˜“˜’ŒVALUE™ ˜“™‚µ˜“˜ŒNULL™‚,˜“˜ŒSETQ™‚,˜“™‚3™‚+˜“™‚«™‚/˜“˜ŒUNLESS˜“™)™‚/™‚,˜“™‚3™‚+˜“™‚˜“˜ŒRPLACD™‚+˜“™‚«™‚/˜“™˜“™‚.€™‚,:˜“˜ŒLAST™‚,˜“™‚-˜–&gg ¿ggo ˜ŒDEFMACRO COLLECTING-ONCE™˜“€ ™& ™'™(˜’ŒCOLLECTING-ONCE™ ™‚&™‚L˜“™‚˜Œ INITIAL-VALUEœ˜’Œexpand-DOPLIST™ ˜–‚‡@XYºI»H\½L^A ___¿O_¿ggMhJKhOgogJoogKogOhh ™‚P ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜ŒAPPEND™‚Ï™‚Èn™‚a™‚3O™‚3E˜ŒLOOP4˜’Œ .PLIST-TAIL.™ /™‚¬g˜“˜“˜ŒPOP™‚W\˜“˜ŒWHEN˜“™‚1™‚W˜“™‚˜Œ3Malformed plist in doplist, odd number of elements.U˜“˜“™‚X™‚WJ˜“™‚[˜“™‚1™‚W˜“˜ŒRETURN€˜–&gg ¿ggo ˜ŒDEFMACRO DOPLIST™˜“€ ™& ™'™(˜’ŒDOPLIST™ ™‚P™‚i˜“˜Œ (KEY VAL)˜ŒPLIST™‚ĘŒBODY˜Œ &ENVIRONMENT˜ŒENVœ˜’Œ expand-IF*™ ˜–"@X¹HZ»J¼gIKgLh™‚q™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚™‚µ˜–&gg ¿ggo ˜Œ DEFMACRO IF*™˜“€ ™& ™'™(˜’ŒIF*™ ™‚q™‚y˜“˜Œ CONDITION˜ŒTRUE™‚嘌FALSEœ˜’Œexpand-PRINTING-RANDOM-THING™ ˜–‚!@XYºI»H\½h¾h_¿Kd3@ð_“O°,K3‘i€h_“O°K‘h€i_’O…K‘i€h˜Ko€h’K°_N¾KO_¿O_¿ggOoMgOogJOhgOoh _¿gN _¿O _¿h_¿h_¿h_¿O‘h€i_’O…O‘h€i“O°1OOh_¿O˜OO&_¿ˆOh__¿O_¿O_¿°¼Oh™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚À™‚¨‚¶™‚¨‚¦™‚UP™‚©‚°™‚¬‚”˜ŒFORMAT‚ˆ˜’ŒPRINTING-RANDOM-THING-INTERNAL™ z™‚„k™‚„f™‚‚›˜“˜Œ>‚˜“˜Œ r˜“˜Œ#