‘XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>my-medley>sources>CMLDEFFER.;2 Source file created 6-Mar-2022 22:19:48 FASL file created Sunday, 6 March 2022, 22:19:53 ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜ŒPACKAGE˜ŒXEROX-COMMON-LISP˜Œ READTABLE˜ŒXCL˜ŒBASE ˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•Œ CMLDEFFERCOMS˜•Œ FILEDATES˜•Œ CMLDEFFER˜“˜“˜•Œ*˜•Œ;;;˜Œ`DEF-DEFINE-TYPE and DEFDEFINER -- Your One-Stop Providers of Customized File Manager Facilities.˜“™˜•Œ;;˜Œ‚ BE VERY CAREFUL CHANGING ANYTHING IN THIS FILE!!! It is heavily self-referential and thick with bootstrapping problems. All but the most trivial changes (and some of those) are very tricky to make without blowing yourself out of the water... You have been warned.˜“™™˜ŒmAlso see the file deffer-runtime for stuff that must be defined before fasl files may be loaded into the init˜“˜•ŒCOMS˜“™˜•Œ;˜ŒFilepkg interface˜“˜•Œ FUNCTIONS˜’ŒREMOVE-COMMENTS˜‘˜ŒXEROX-COMMON-LISP˜’ŒPPRINT-DEFINER™&˜’ŒPPRINT-DEFINER-FITP™&˜’ŒPPRINT-DEFINER-RECURSE™&˜“˜•Œ VARIABLES˜•Œ*REMOVE-INTERLISP-COMMENTS*˜“™™!˜ŒShare with xcl?˜“™$˜’Œ%DEFINE-TYPE-DELDEF™&˜’Œ%DEFINE-TYPE-GETDEF™&˜’Œ%DEFINE-TYPE-FILE-DEFINITIONS™&˜’Œ%DEFINE-TYPE-FILEGETDEF™&˜’Œ%DEFINE-TYPE-SAVE-DEFN™&˜’Œ%DEFINE-TYPE-PUTDEF™&˜“™ ˜“™™!˜Œ Compatibility with old cmldeffer˜“˜•ŒDECLARE:˜•ŒDOCOPY˜•Œ DONTEVAL@LOAD˜“˜•ŒP˜“˜•ŒMOVD˜“˜ŒQUOTE™1˜“™@˜•Œ\DEFINE-TYPE-DELDEF˜“™?˜“™@™2˜“™@˜•Œ\DEFINE-TYPE-GETDEF˜“™?˜“™@™3˜“™@˜•Œ\DEFINE-TYPE-FILE-DEFINITIONS˜“™?˜“™@™4˜“™@˜•Œ\DEFINE-TYPE-FILEGETDEF˜“™?˜“™@™5˜“™@˜•Œ\DEFINE-TYPE-SAVE-DEFN˜“™?˜“™@™6˜“™@˜•Œ\DEFINE-TYPE-PUTDEF˜“™?˜“™@™(˜“™@˜•ŒPPRINT-DEFINER˜“™;™<™=˜“™>˜“™™˜Œ+Set up fake definer prototype stuff for FNS˜“˜’ŒADD-PROTOTYPE-FN™&˜“™@˜•ŒFNS˜“™@˜•ŒNLAMBDA˜“˜ŒFUNCTION˜“˜ŒLAMBDA˜“˜’ŒNAME™&˜“˜ŒAND˜“˜ŒSYMBOLP™i˜“˜•ŒBQUOTE˜“˜•ŒDEFINEQ˜“˜“˜•Œ\,™i˜“™e˜“˜•Œ\,@˜“˜’Œ%MAKE-FUNCTION-PROTOTYPE™&˜“™b˜“™@™c˜“™@˜•ŒLAMBDA˜“™g˜“™h˜“™i˜“™k˜“™l™i˜“™n˜“™o˜“˜“™p™i˜“™˜“™r˜“™s˜“™ ˜“™™!˜Œ!The groundwork for bootstrapping ˜“˜•Œ DEFINE-TYPES™‚’™$™,˜“™™!˜ŒDefDefiner itself and friends˜“™$˜’ŒEXPANSION-FUNCTION˜‘˜ŒSYSTEM˜’Œ MACRO-FUNCALL™‚—˜’ŒWITHOUT-FILEPKG™&˜“™ ˜“™™!˜Œ Compatibility with old cmldeffer˜“™$˜•ŒWITHOUT-FILEPKG˜“™ ˜“™™!˜ŒSome special forms˜“™$˜’ŒDEFINER™&˜’Œ NAMED-PROGN™&˜“™ ˜“™™!˜ŒAuxiliary functions˜“™$˜’ŒGET-DEFINER-NAME™&˜’Œ%DELETE-DEFINER™&˜“™$˜’ŒDEF-DEFINE-TYPE™&˜’Œ DEFDEFINER™&˜“™$˜’Œ%EXPAND-DEFINER™&˜’Œ %DEFINER-NAME™&˜“™ ˜“™™!˜ŒThe most commonly-used definers˜“™$˜ŒDEFUN˜’Œ DEFINLINE™&˜ŒDEFMACRO˜“™$˜ŒDEFVAR˜Œ DEFPARAMETER˜Œ DEFCONSTANT˜’Œ DEFGLOBALVAR™&˜’ŒDEFGLOBALPARAMETER™&˜“™ ˜“™™!˜ŒQHere so that the evaluator can be in the init without definers being in the init.˜“™‚’˜•Œ SPECIAL-FORMS˜“™$˜’Œ%REMOVE-SPECIAL-FORM™&˜“™$˜’ŒDEFINE-SPECIAL-FORM™&˜“™™!˜Œ/Form for defining interpreters of special forms˜“™ ˜“™™!˜Œ0Don't note changes to these properties/variables˜“ ˜•ŒPROP˜•ŒPROPTYPE˜•ŒMACRO-FN˜Œ UNDEFINERS˜•Œ UNDEFINERS˜Œ DEFINER-FOR˜•Œ DEFINER-FOR˜Œ DEFINED-BY˜•Œ DEFINED-BY˜ŒDEFINITION-NAME˜•ŒDEFINITION-NAME˜“™™!˜ŒWTemplates for definers not defined here. These should really be where they're defined.˜“ ™‚ΘŒDEFINITION-PRINT-TEMPLATE˜’Œ DEFCOMMAND™&˜’ŒDEFINE-CONDITION™&˜ŒDEFINE-MODIFY-MACRO˜ŒDEFINE-SETF-METHOD˜ŒDEFSETF˜Œ DEFSTRUCT˜ŒDEFTYPE˜“™™˜Œ,Arrange for the correct compiler to be used.˜“™‚Θ“˜•ŒFILETYPE˜•ŒMAKEFILE-ENVIRONMENT™ ˜“˜”˜Œ 6-Mar-2022 22:19:48•ŒA{DSK}kaplan>Local>medley3.5>my-medley>sources>CMLDEFFER.;2œ™'˜–‚†@‘i€h²}@‘i€h²I@gð²<@‘i€h²0@oX’H°&RiðY’I°Rgðœo@ ¿h„h‚h€h–@b¿°¡@ ¸@ ¹H@ð”I@ð€h‘@HI@™-™'™˜“˜“˜ŒXl™'d™'M˜ŒWARN?˜ŒWARN™F˜Œ Possible comment not stripped ~S+˜“™!™™˜•Œ;;;;˜•Œ|œ™(˜– ‚ZW‘h€iX‘H†@‘h€i‘@@h¸h¹hºh»h¼h½Oð¹OlWÖÔ_¿o ¿N ¿N_¿N¾OÁÉg'_’O„o¸N‘i€h¢±HNZ‘h€i_’O…J‘i€hžJW ð–J ‚h€hžOW ¿i½±H‘h€i_“O°H_¿H¸O[gð’±òk ¿Kg𢱚h½I¢±‹N¾J‘i€h²co ¿Wh ¿Jh ¿Wh ¿k ¿JiiiW ¿o ¿ð³wOW ¿i½°iWh ¿Jh ¿Wh ¿°M¿°EKgð²J–¿o ¿N¾h½°!M‘h‰J ‘h€i—O ¿¿h½±þ´N¢±‹M³-Kgð_’OŠN ‘h€išOhi ¿†k ¿N‘i€h‘h€i_’O‡N\‘i€h‘°4¿L –N‘i‚h€hœk ¿¿N ‹OW ¿°µNiiiW ¿o ¿h˜•ŒLEFT˜•ŒTAIL ˜Œ*STANDARD-OUTPUT* ˜•Œ LAMBDAFONT ˜•Œ DEFAULTFONT ˜•ŒFNSLST˜•ŒFORMFLG˜•Œ SPACEWIDTH˜•Œ COMMENTFLG™( ™˜“˜“˜ŒDEFINE-EXPRESSION$‚R˜•ŒPRIN1‚G˜•ŒPRINTDEF‚8˜•ŒSUBPRINT/ENDLINE‚+™*‚%˜•ŒSPACES‚˜ŒKEYWORDP‚™*‚홂 ‚嘕Œ PRINENDLINE‚×™)‚µ™*‚¯™‚ ‚£™)‚‘™‚‚…™*‚r™*‚j˜•Œ CHANGEFONT‚a˜•ŒPRIN2‚Y™‚ ‚L™‚ ‚@˜•Œ DSPYPOSITION‚:™‚‚/™‚‚!™‚ ‚™‚ ‚™‚‚™‚ ‚ÿ™‚‚õ™‚‚Ò™‚ ‚¤™‚ ‚–˜•ŒSEMI-COLON-COMMENT-PK™‚C™‚,˜•Œ DSPLEFTMARGIN˜•Œ DSPXPOSITION‚ɘŒBODY‚{˜ŒARG-LIST‚Ù˜ŒNAME‚Ç™‚_™‚Ü‚M˜Œ)‚Œ˜Œ()‚5˜Œ)‚ú˜Œ(k˜“™‚>˜Œ(œ™)˜–:@‘i€h²@QðX‘H@ lýó–@ h@R Ôýó™‚™‚ý™)™˜“˜“˜ŒITEM2˜•ŒDSPRIGHTMARGIN,˜•Œ STRINGWIDTH%™‚˜•ŒFITP˜•ŒCOUNTœ™*˜–PPhQ ¿Pc™‚ü™‚ý™*™˜“€˜•Œ SUPERPRINT˜–5o ¿g X§gc¿ggo ™-˜Œ%DEFVAR IL:*REMOVE-INTERLISP-COMMENTS*™˜“€/˜•ŒSET-DOCUMENTATION˜ŒBOUNDP˜ŒPROCLAIM%˜ŒVARIABLE ™-™‚õ ™-*˜Œ:Either NIL (don't) T (always do) or :WARN (don't and warn)˜“˜ŒSPECIAL™-œ™1—˜–‚@Ahloh-¿A` X—@H €h¹H˜@hH ¿AÁÉg'Z‘JŠAÁÉg'ºh»J‘J€‹»@kK¿Jº°ñIÁÉg'[‘K‹IÁÉg'»hºK‘K€‹º@kJ¿K»°ñ@™1™˜“˜“˜ŒNAME˜ŒTYPE*˜•Œ/PUTHASH˜•ŒGETHASH™‚7t™‚Òd™‚ÑD™‚Ò5™‚ј’Œ*DEFINITION-HASH-TABLE*™&™‚9˜–)no@A@A h ¿@AB ˜Œ UNDOSTORE˜ŒCLOSURE˜“˜“˜ŒA0237˜ŒA0238˜ŒA0236#™‚*˜•ŒUNDOSAVE˜Œ DOCUMENTATION˜•ŒCOMPILED-CLOSURE™‚D™‚Dœ™2˜–8A` X—@H €h¹B×gB†Bgð–I I™2™˜“˜“˜ŒNAME˜ŒTYPE˜ŒOPTIONS0˜Œ COPY-TREE™‚7™‚7(˜•ŒEDIT™‚K˜•ŒLISTP™‚8œ™3˜–IA¸h¹hºh»H¡IH\@o ]’M°ggLg@ »I”JK&º„KhZ¹H¸°Â™3™˜“˜“˜ŒTYPE˜ŒNAMES2˜ŒERROR™2+˜ŒTYPE%™‚ ˜•ŒNO-SUCH-DEFINITION˜“˜•ŒNOCOPYœ™4˜–‚½hBggoggggAÁÉg'X‘HŠAÁÉg'hogogoggg@hhgog@hhhhhh Xgð‘DH—gHH™4™˜“˜“˜ŒNAME˜ŒTYPE˜ŒSOURCE˜ŒOPTIONS˜ŒNOTFOUND‚ž˜•ŒLOADFNS‚²˜ŒPROGN‚¦˜•Œ NOT-FOUND:‚€™@v˜ŒEQUALi™@d˜ŒSECOND_™‚bU˜ŒIFK˜ŒLET:™‚Ö+™‚Õ!™@˜ŒFIRST˜ŒMEMBER™k™˜•ŒGETDEF{˜“˜ŒFUNCALL˜’ŒNAMER™&˜“™'˜“˜•ŒREADZ˜“˜ŒEQ™‚j˜“™@™‚cP˜“˜“™‚j˜“˜ŒOR˜“˜ŒGET™‚f˜“™@™‚ט“™‚s™‚f˜“™@™‚ؘ“™@™‚cC˜“˜ŒTEST˜“™g™‚o ˜“™‚f™‚cœ™5˜–‚¥Ag b` X³=oA ¿A`gg gl2gl2  ¸@H ¹BIÌ‘hI—Rið‘h‚i€h²SoA@Ro ¿@BH ¿@AI•g„g ˜•ŒDFNFLG˜Œ *TERMINAL-IO*™5™˜“˜“˜ŒNAME˜ŒTYPE˜Œ DEFINITION ‚Ÿ˜•Œ MARKASCHANGED‚Š™‚6‚˜ŒFORMATX™‚7P˜ŒPUTHASHK˜ŒMAKE-HASH-TABLE7˜ŒSYMBOL-FUNCTION!™‚ô™‚7˜•ŒGETFILEPKGTYPE ‚š˜•ŒDEFINED‚”˜•ŒCHANGEDC˜Œ REHASH-SIZE<˜ŒSIZE2™‚b-™‚|(™‚8™‚8˜ŒTYPEz˜“™‚Θ•ŒALLPROPr˜Œ8~&New ~A definition for ~S~:[~; (but not installed)~].~%˜ŒDCouldn't find a hash-table for ~S definitions.~%One will be created.œ™6˜–‚³B¢±¨B X‘i€h‘h€iY’I°YHAÁÉg'Z‘JŠAÁÉg'‘h€iZ’J°3@HÁÉg'[’K°HÁÉg'\‘L„g½HkMÌ‘h€i² gg@gAgB ¿B b¿V–B €B @A ˜•Œ LISPXHIST™6™˜“˜“˜ŒNAME˜ŒTYPE˜Œ DEFINITION˜ŒREASON‚­™1‚¥˜ŒEVAL‚ž˜’Œ MAKE-UNDOABLE™&‚“™‚J‚Œ˜’ŒSIGNAL™&™' ‚…˜Œ DEFINITION™‚Sy™‚t˜•ŒDEFINER-MISMATCHc™‚cY™‚ØH™‚×1™‚Ö"™‚Õ˜–‚§gg ¿gg ¿gg ¿gg ¿gg ¿gg ¿gg ¿ggno ¿ggno ˜Œ9 top-level forms™˜“€ ‚¡™b‚†™bk™?[™?K™?;™?+™?™? ™?‚‘™‚Œ™cv™eq™cf™Za™(V™VQ™6F™RA™56™N1™4&™J!™3™F™2™B™1‚š˜–"@d3@ð²g@ghhh˜Œlambda in 9 top-level forms™‚;˜“˜“˜ŒNAME™s™™o˜–"@d3@ð²g@ghhh˜Œlambda in 9 top-level forms™‚;˜“˜“˜ŒNAME™s™e™o‚–™‚C{™‚C˜–‚"ggo ¿oRgg c¿oSgg c¿o ¿g X¦h¿g` ³0g`gggl2gl2  ¿Q¸gQ‘H†gHc¿ggg ¿ggg ¿ggg ¿ggg ¿ggg ˜•Œ FILEPKGTYPES˜•ŒPRETTYDEFMACROS˜•Œ PRETTYTYPELST˜ŒDEF-DEFINE-TYPE IL:DEFINE-TYPES™˜“€ ‚™‚™‚ò™‚Ý™‚È™‚™‚Š‚˜™‚‹n™‚7V™‚+K™‚,>˜ŒADJOIN&™‚·™‚*!‚˜•ŒNILL‚˜•ŒFILEPKGCONTENTS‚ ™‚’‚™4‚ý˜•Œ FILEGETDEF‚ø™‚’‚í™6‚蘕ŒPUTDEF‚㙂’‚Ø™1‚Ó˜•ŒDELDEF‚Ι‚’‚Ù2‚¾™‚h‚¹™‚’‚¯™‚’‚¥™‚’‚™‚‚‰™‚‘‚„™‚b™‚|z™‚8u™‚’i™‚8d™‚’^˜•ŒCHANGEDDEFINE-TYPESLSTQ™‚½9™‚b4™‚|!™‚b™‚|™‚’™‚’F˜“˜’ŒGLOBAL™&™‚½.˜“™‚½™‚’˜ŒDefinition type˜“™‚’˜’ŒX™&˜“™>™˜“™3˜“™@™‚’˜“™@™‚ ™‚À˜–‚Sggo ¿oRgg c¿oSgg c¿o ¿g X¦h¿g` ³0g`gggl2gl2  ¿Q¸gQ‘H†gHc¿ggg ¿ggg ¿ggg ¿ggg ¿ggg ¿gggÁÉg'¸gH‘H†gH ™‚²™‚³™‚´˜ŒDEF-DEFINE-TYPE IL:FUNCTIONS™˜“€‚M™‚™‚™‚ò™‚Ý™‚È™‚™‚Š‚˜™‚‹n™‚7V™‚+K™‚,>™‚·&™‚·™‚*'‚F˜•ŒUNDOABLY-FMAKUNBOUND‚<™‚Ë‚5™‚Ñ‚,™$‚'™‚Ñ‚"™$‚™‚¸‚™‚¹‚ ™$‚™4‚ý™‚º‚ø™$‚í™6‚虂»‚ã™$‚Ø™1‚Ó™‚¼‚Ι$‚Ù2‚¾™‚h‚¹™$‚¯™$‚¥™$‚™‚‚‰™‚‘‚„™‚b™‚|z™‚8u™$i™‚8d™$^˜•ŒCHANGEDFUNCTIONSLSTQ™‚Ì9™‚b4™‚|!™‚b™‚|™‚’™$F˜“™‚¾™‚Ì.˜“™‚Ì™$˜ŒCommon Lisp functions/macros˜“™$™‚˜“™>™˜“™3˜“™@™$™‚Ä ™‚Θ–‚Sggo ¿oRgg c¿oSgg c¿o ¿g X¦h¿g` ³0g`gggl2gl2  ¿Q¸gQ‘H†gHc¿ggg ¿ggg ¿ggg ¿ggg ¿ggg ¿gggÁÉg'¸gH‘H†gH ™‚²™‚³™‚´˜ŒDEF-DEFINE-TYPE IL:VARIABLES™˜“€‚M™‚™‚™‚ò™‚Ý™‚È™‚™‚Š‚˜™‚‹n™‚7V™‚+K™‚,>™‚·&™‚·™‚*'‚F˜’ŒUNDOABLY-MAKUNBOUND™&‚<™‚ׂ5™‚Ñ‚,™,‚'™‚Ñ‚"™,‚™‚¸‚™‚¹‚ ™,‚™4‚ý™‚º‚ø™,‚í™6‚虂»‚ã™,‚Ø™1‚Ó™‚¼‚Ι,‚Ù2‚¾™‚h‚¹™,‚¯™,‚¥™,‚™‚‚‰™‚‘‚„™‚b™‚|z™‚8u™,i™‚8d™,^˜•ŒCHANGEDVARIABLESLSTQ™‚Ø9™‚b4™‚|!™‚b™‚|™‚’™,F˜“™‚¾™‚Ø.˜“™‚Ø™,˜ŒCommon Lisp variables˜“™,™‚˜“™>™˜“™3˜“™@™,™‚Ä ™‚Úœ™‚˜˜–OAgB@hgg  X¹HZ»J¼goKg@Ihh L$™‚˜™˜“˜“˜ŒNAME˜ŒARG-LIST˜ŒBODYC˜ŒAPPEND˜•Œ\MVLIST˜•ŒPARSE-DEFMACRO6˜ŒBLOCK+™h˜’Œ$$MACRO-ENVIRONMENT™‚— ˜Œ ENVIRONMENT˜’Œ $$MACRO-FORM™‚—0˜“™‚왂ꜘ’Œexpand-MACRO-FUNCALL™‚—˜–@X¹HZ»J¼KLlI™‚“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜–&gg ¿ggo ˜ŒDEFMACRO SI::MACRO-FUNCALL™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™‚™™‚™˜“˜ŒEXPANSION-FUNCTION˜Œ MACRO-CALL˜ŒENVœ˜’Œexpand-WITHOUT-FILEPKG™&˜–D@¸ggoHgogogoHhhh™‚þ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT*™‚e ˜ŒUNLESS˜Œ EVAL-WHEN ™‚™‚`/˜“˜“˜•Œ FILEPKGFLG€˜“™‚%˜“™‚r˜“™‚o™‚˜“™@™‚Θ“™‚o™‚˜“™@™‚“˜“™‚Ÿ˜“˜ŒLOAD˜–&gg ¿ggo ˜ŒDEFMACRO WITHOUT-FILEPKG™˜“€ ™ ™‚÷™‚ø™‚š™‚þ™‚š˜“˜Œ&BODY˜ŒBODYœ˜•Œexpand-WITHOUT-FILEPKG˜– @¸gH™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚š˜–&gg ¿ggo ˜ŒDEFMACRO IL:WITHOUT-FILEPKG™˜“€ ™ ™‚÷™‚ø™‚Ÿ™‚™‚Ÿ˜“™‚˜ŒBODYœ˜’Œexpand-DEFINER™&˜–‚¸@X¹HZ»J\½L^’N€h_¿KÁÉg'_¿M _¿KÁÉg'_¿OkO_¿gggOOOhhgogoggOhgIhgMhhhhgOhh™‚# ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT*™' ‚¨™@‚’™@‚‰™@™@z™5p™‚f™‚S™‚™N™‚šI™‚`7™‚× ˜ŒDEFINITION-EXPANDERu˜“˜ŒNULL™‚k˜“™‚Ÿ˜–&gg ¿ggo ˜ŒDEFMACRO DEFINER™˜“€ ™ ™‚÷™‚ø™‚¤™‚#™‚¤˜“˜ŒTYPE˜ŒNAME˜Œ DEFINITION˜Œ &OPTIONAL˜ŒENVœ˜’Œexpand-NAMED-PROGN™&˜–#@XYºI»gKgJhh ™‚6™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚æ™@ ™‚`˜–&gg ¿ggo ˜ŒDEFMACRO NAMED-PROGN™˜“€ ™ ™‚÷™‚ø™‚¥™‚6™‚¥˜“˜ŒDEFINER˜ŒNAME˜Œ&REST˜ŒFORMSœ™‚ª˜–gA@ @ þ™‚ª™˜“˜“˜ŒDEFINER˜ŒSTRING˜ŒINTERN˜ŒSYMBOL-PACKAGE ˜Œ CONCATENATE˜ŒSTRING™‚Kœ™‚«˜–‚Ö@d3@ð¢±Í@ÁÉg'X‘HŠ@ÁÉg'¸@g ¿@g ¿@g ¿@g ¿@g ¿H²pHÁÉg'²!Hg@HÁÉg' ¿°Hg@HÁÉg' ¿H`Y@Igg hh™‚«™˜“˜“˜ŒNAME ‚̘•Œ/RPLACD‚ǘŒREMOVE‚™‚Œ‚§˜•Œ/PUTPROP‚¢™‚Q‚ˆ™‚R‚ƒ™‚Q[˜•Œ/REMPROPO™‚SC™‚S7™‚S+™‚S‚½˜ŒCAR‚¸˜ŒKEY‚®˜’Œ*DEFINITION-PROTOTYPES*™&‚œ™‚Ö‚‘™‚Ö}™‚Õr™‚Õi™‚ÕV™‚(J™‚Ø>™‚×2™‚Ô&™‚Ó™‚Ô™‚Ó˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEF-DEFINE-TYPE™˜“€A™™ :™‚­0™‚­)™‚Õ ™‚’™‚Õ™‚’ ™‚’™‚Ó™‚­œ˜’Œ#definition-expander-DEF-DEFINE-TYPE™&˜–‚&@X¹HZ»J\½h¾gL ^’N€h_¿goI o I _¿Mo ¿ggggIhogKhhggIgggggIhohhhoggOIKhhogOogggIhogggIhoohggIhogggIhoogggIhoogggIhoogggIhoogggIhooO²-ggOhggIhohh€h™‚[ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTS˜•Œ KEYWORD-TESTE™‚H@™‚I:™‚J0™‚K˜•Œ FIND-KEYWORD,‚™@‚ü™‚s‚ò™@‚혌PUSHNEW‚Ò™@‚Í™‚s‚ȘŒSETF‚±™@‚¬™‚s‚§™‚c‚™@‚‹™‚s‚†™‚c‚o™@‚j™‚s‚e™‚c‚N™@‚I™‚s‚D™‚c‚4™@‚/™‚b‚™@‚˜ŒGETHASH‚ ™‚c‚ú™@‚õ™‚d‚𙂂♂½‚Ë™@‚Æ™‚b‚¤™@‚Ÿ™3‚š™‚•™>‚™‚‚Š™@‚…™‚bx™@h™@c™‚B^™‚cY™‚`%™‚K˜Œ UNDEFINER‚ ˜“˜“™@™‚Ñ‚☓˜“™@™‚¸‚Û˜“˜“™@™‚¹‚Á˜“˜“™@™4‚º˜“˜“™@™‚º‚ ˜“˜“™@™6‚™˜“˜“™@™‚»‚˜“˜“™@™1‚x˜“˜“™@™‚¼‚^˜“˜“™@™2‚W˜“˜“™@™‚h‚=˜“™‚²‚$˜“˜“™‚‹™‚|˜“™@™‚b™‚‘2™‚2‚˜“™‚8‚˜“™‚8‚阓€‚Û˜“™‚´™‚|˜“™@™‚b‚¿˜“™‚³™‚|˜“™@™‚b‚­˜“˜“™@™‚Âq˜“˜“™@™‚’N˜“™‚e5˜ŒLST*˜ŒCHANGED˜–+ggg ¿ggg ™‚X™˜“€%™™ ™‚c™‚×™‚­ ™‚[™‚(™‚­œ˜’Œprototype-fn-DEF-DEFINE-TYPE™&˜–@d3@ðg@oh™‚‘™˜“˜“˜ŒNAME™‚­ ˜“˜ŒDescription string˜–Cggg ¿ggo ¿oPgg c˜•ŒPRETTYPRINTMACROS™‚X™˜“€;™‚·%™‚*™b6™‚b1™‚|™g™‚­ ™‚‘™‚­™‚’+˜”™‚­™( ˜Œ$Define NAME as a new definition typeœ˜’Œexpand-DEF-DEFINE-TYPE™&˜–ggg@Ah™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚­™‚’™‚¤˜–&gg ¿ggo ™‚X™˜“€ ™ ™‚÷™‚ø™‚­™‚™‚­˜“˜Œ&WHOLE˜Œ DEFINITION˜Œ &ENVIRONMENT˜ŒENV˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFDEFINER™˜“€A™™ :™‚®0™‚®)™‚Õ ™$™‚Õ™$ ™$™‚Ó™‚®œ˜’Œdefinition-expander-DEFDEFINER™&˜–‚3@X¹HZ»J\½L^_¿I‘i€hšI_¿I¹O€h_¿h_¿h_¿h_¿h_¿h_¿O_¿h_¿O’O°z__ gð˜O_¿°\O gð˜O_¿°JO gð˜O_¿°8O gð˜O_¿°&O gð˜O_¿°ooO ¿O_¿°‚IMO __¿O_ ¿O‘h‹O‘h†gM²}M_"¿h_$¿h_&¿h_(¿h_*¿O"_,’O,°:_*gð‘°.O*`‘°h_(¿O&˜O&O(&_&¿ˆO(h_&_$¿O"_"¿°¿O$gh _‘h…O‘h€i˜Og¿Io _*¿O‘i€h›Io €h_(¿ggogggIhogKhhggIhggKhohgggO*hhgOhhgggIhogO*hhO(²*gggO(hhgOhhh€hgggIhogO(’O(ŠO’O„ghhO²aIo _&¿gggO&hhgOhhggO&hggIhohh€hO²_Io _&¿gggO&hhgOhhggKhgIhgO&hhh€hO ²%gggIhoO hh€hO²-gggIhogOhhh€hggIO’O„ghoh  gIogogKhgIhohh™‚­™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ‚æ‚虂æ‚™‚ª‚°™‚ª‚Ž™‚ª‚x™‚ª‚W˜•Œ\NCONC2‚Ò™‚ç‚Í™‚˜‚»˜ŒCERRORC‚™@‚™@‚˜ŒLIST‚ù™‚¸‚Õ™(‚É™@‚Ä™‚b‚²™@‚¢™@‚™‚s‚˜™‚c‚z™@‚u™‚B‚p™‚c‚X™@‚O™@‚F™@‚A™b‚3™g‚&™@‚!™‚Œ‚™‚c‚ñ™@‚왂s‚â™@‚Ý™‚b‚Ï™g‚™@‚½™‚Œ‚¸™‚c‚š™‚c‚‰™@‚y™@‚t™‚s‚o™‚c‚]™g‚P™@‚K™‚Œ‚F™‚c‚4™@‚$™@‚™‚s‚™‚c‚ ™g‚ÿ™@‚ú™‚Œ‚õ™‚c‚á™@‚Ü™‚s‚Ó™@‚Ι‚b‚Á™@‚±™@‚¬™‚s‚§™‚c‚™‚‚˜™‚`‚k™‚‚P™‚‚$˜ŒLAMBDA-LIST-KEYWORDS‚™‚‚‚Ÿ˜ŒPRETTYPRINTMACRO‚˜ŒTEMPLATE{˜Œ PROTOTYPEi™‚W™‚e‚ ˜“˜’Œ DEFINITION™&˜’ŒENV™&‚ ˜“™@™‚¤‚ÿ˜“™‚¤™‚¹™‚¦™‚º‚Þ˜“™‚˜™‚|˜“™@™‚b‚«˜“˜“™@™‚Ü‚ƒ˜“˜“™@™g‚˜Œ prototype-fn-‚ú˜“˜“™@™‚Ñ‚«˜Œ undefiner-fn-‚‚˜“˜“™@™‚ׂ-˜“˜“™@™‚(‚ꘓ˜“™@™‚Õ‚º˜“˜“™@™‚Ó‚¢˜“™‚™‚Ÿ˜ŒCOMPILE‚‰˜Œname-fn-‚s˜Œdefinition-expander-‚´˜Œ%Unrecognized option to DefDefiner: ~S‚¯˜ŒIgnore the option˜–ggg ™‚ª™˜“€™ ™‚­™‚(™‚®œ˜’Œname-fn-DEFDEFINER™&˜–@X‘i€h’HH™‚Ù™˜“˜“˜ŒWHOLE˜–\ggg ¿gg ¿gggÁÉg'¸gH‘H†gH ™‚ª™˜“€V™%˜•ŒSETF-SYMBOL-FUNCTION ™‚Œ™ O˜’Œundefiner-fn-DEFDEFINER™&E™‚à>™‚Ñ5™‚®0™‚Ñ+™‚®™‚«™‚à ™‚Ù™‚×™‚®œ˜’Œprototype-fn-DEFDEFINER™&˜–@@d3@ð²8g@gð²oo „oh™‚♘“˜“˜ŒNAME5™s*˜Œ SYMBOL-VALUE%™‚H˜•ŒEDITMODE˜•ŒSEDIT™‚®0˜ŒType ˜ŒSEDIT˜Œ BASIC-GAP˜–Cggg ¿ggo ¿oPgg c™‚˜™‚ª™˜“€;™‚·%™™b6™‚b1™‚|™‚Ü™‚® ™‚♂®™$+˜”™‚®™( ˜“™‚™‚S™‚™‚œ˜’Œexpand-DEFDEFINER™&˜–ggg@Ah™‚ñ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚®™$™‚¤˜–&gg ¿ggo ™‚ª™˜“€ ™ ™‚÷™‚ø™‚®™‚ñ™‚®˜“™‚¤˜Œ DEFINITION™‚¦˜ŒENVœ™‚°˜–@ÁÉg'¸ABlH™‚°™˜“˜“˜ŒDEFINER˜ŒDEFINITION-WITHOUT-COMMENTS™‚2˜ŒENV™‚(œ™‚±˜–@ÁÉg'¸AkH™‚±™˜“˜“˜ŒDEFINER˜ŒDEFINITION-WITHOUT-COMMENTS™‚ט–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFUN™˜“€A™™ :™‚¶0™‚¶)™‚Õ ™$™‚Õ™$ ™$™‚Ó™‚¶œ˜Œdefinition-expander-DEFUN˜–‚—@X¹HZ»J\Ai ½M¾M_¿M_¿ggggIhhggKOgINh hhO²%gggIhoOhh€h™‚ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT^™‚時瘒Œ PARSE-BODY™& z™@u™‚Bp™‚cS™‚éK™hF™g:™@5™‚Œ0™‚c+™‚`‚ƒ˜“˜“™@™g˜–+ggg ¿ggg ™‚™˜“€%™™ ™‚c™‚×™‚¶ ™‚ ™‚(™‚¶œ˜Œprototype-fn-DEFUN˜–@d3@ðg@h™‚™˜“˜“˜ŒNAME ™s™‚¶˜–Cggg ¿ggo ¿oPgg c™‚˜™‚™˜“€;™‚·%™™b6™‚b1™‚|™‚Ü™‚¶ ™‚™‚¶™$+˜”™‚¶™( ˜“™‚™‚™‚œ˜Œ expand-DEFUN˜–ggg@Ah™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚¶™$™‚¤˜–&gg ¿ggo ™‚™˜“€ ™ ™‚÷™‚ø™‚¶™‚™‚¶˜“™‚¤˜Œ DEFINITION™‚¦˜ŒENV˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFINLINE™˜“€A™™ :™‚·0™‚·)™‚Õ ™$™‚Õ™$ ™$™‚Ó™‚·œ˜’Œdefinition-expander-DEFINLINE™&˜–‚—@X¹HZ»J\½LAi ^_¿N__¿gKOgIOh _¿ggIKMgIoIhI oggOhohh™‚, ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTl˜’ŒPACK™&g™‚I=™‚時療{™@v˜ŒCONSW˜’Œ DEFOPTIMIZER™&L™‚¶G™‚`1™‚é)™h‚…˜“˜’ŒARGS™&q˜“™‚@™‚4]˜Œ definline-˜–+ggg ¿ggg ™‚)™˜“€%™™ ™‚c™‚×™‚· ™‚,™‚(™‚·œ˜’Œprototype-fn-DEFINLINE™&˜–@d3@ðg@h™‚;™˜“˜“˜ŒNAME ™s™‚·˜–Cggg ¿ggo ¿oPgg c™‚˜™‚)™˜“€;™‚·%™™b6™‚b1™‚|™‚Ü™‚· ™‚;™‚·™$+˜”™‚·™( ˜“™‚™‚™‚œ˜’Œexpand-DEFINLINE™&˜–ggg@Ah™‚D™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚·™$™‚¤˜–&gg ¿ggo ™‚)™˜“€ ™ ™‚÷™‚ø™‚·™‚D™‚·˜“™‚¤˜Œ DEFINITION™‚¦˜ŒENV˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFMACRO™˜“€A™™ :™‚¸0™‚¸)™‚Õ ™$™‚Õ™$ ™$™‚Ó™‚¸œ˜Œdefinition-expander-DEFMACRO˜–‚Z@X¹HZ»J\½I‘h€i^‘NˆId3@ð‘h€i›oI ¿oIhI ¾IKM __¿O_¿ggggNhhgOhhgggIhhgNhhO²%gggIhoOhh€hW²}gggIhogK _¿h_¿h_¿h_¿O£O°8O_`’O†O _¿O˜OO&_¿ˆOh__¿O_¿°Åhhh€h ˜’Œ*NEW-COMPILER-IS-EXPANDING*˜‘˜ŒCOMPILER™‚R™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚Q™‚æ‚!˜ŒPRIN1-TO-STRING‚õ˜•Œ\SIMPLIFY.CL.ARGLISTK™‚çF™‚˜=™‚18™‚I(™‚R‚™‚µ‚ï™@‚ß™@‚Ú™‚s‚Õ™‚c‚·™@‚²™‚B‚­™‚c‚œ™@‚™@‚‹˜ŒMACRO-FUNCTION‚†™‚cx™gl™@g™‚Œb™‚c]™‚`‚蘓˜“™@™‚ø‚À˜“˜“™@™g.˜Œexpand-"˜Œ!Illegal name used in DEFMACRO: ~S˜–+ggg ¿ggg ™‚O™˜“€%™™ ™‚c™‚×™‚¸ ™‚R™‚(™‚¸œ˜Œundefiner-fn-DEFMACRO˜– @g ™‚f™˜“˜“˜ŒNAME˜ŒREMPROP™‚ø˜–2gggÁÉg'¸gH‘H†gH ™‚O™˜“€,™%™‚f™‚f™‚Ñ ™‚¸™‚Ñ™‚¸œ˜Œprototype-fn-DEFMACRO˜–@d3@ðg@h™‚n™˜“˜“˜ŒNAME ™s™‚¸˜–Cggg ¿ggo ¿oPgg c™‚˜™‚O™˜“€;™‚·%™™b6™‚b1™‚|™‚Ü™‚¸ ™‚n™‚¸™$+˜”™‚¸™( ˜“™‚™‚™‚œ˜Œexpand-DEFMACRO˜–ggg@Ah™‚w™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚¸™$™‚¤˜–&gg ¿ggo ™‚O™˜“€ ™ ™‚÷™‚ø™‚¸™‚w™‚¸˜“™‚¤˜Œ DEFINITION™‚¦˜ŒENV˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFVAR™˜“€A™™ :™‚º0™‚º)™‚Õ ™,™‚Õ™, ™,™‚Ó™‚ºœ˜Œdefinition-expander-DEFVAR˜–‚–@X¹HZ’J€h»J‘i€h¼J“J€h½ggggIhhhL²*gggIhhgIKhhh€hM²$gggIhoMhh€h ™‚…™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚Ž™‚æ u™@p™‚Bk™‚cU˜ŒSETQI™@D™‚+?™‚r-™‚/(™@#™‚,™‚`~˜“˜“™@™‚-˜–+ggg ¿ggg ™‚‚™˜“€%™™ ™‚c™‚×™‚º ™‚…™‚(™‚ºœ˜Œprototype-fn-DEFVAR˜–@d3@ð™g@hh™‚™˜“˜“˜ŒNAME™‚º˜–.ggg ¿oPgg c™‚˜™‚‚™˜“€&™‚·™b!™‚b™‚| ™‚™‚º™,˜”™‚º™(œ˜Œ expand-DEFVAR˜–ggg@Ah™‚˜™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚º™,™‚¤˜–&gg ¿ggo ™‚‚™˜“€ ™ ™‚÷™‚ø™‚º™‚˜™‚º˜“™‚¤˜Œ DEFINITION™‚¦˜ŒENV˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFPARAMETER™˜“€A™™ :™‚»0™‚»)™‚Õ ™,™‚Õ™, ™,™‚Ó™‚»œ˜Œ definition-expander-DEFPARAMETER˜–g@X¹HZ»J\’L€h½ggggIhhhgIKhM²$gggIhoMhh€h™‚¦™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTJ™@E™‚B@™‚c2™‚Š#™‚/™@™‚,™‚`S˜“˜“™@™‚-˜–+ggg ¿ggg ™‚£™˜“€%™™ ™‚c™‚×™‚» ™‚¦™‚(™‚»œ˜Œprototype-fn-DEFPARAMETER˜–@d3@ðg@oh™‚°™˜“˜“˜ŒNAME™‚» ˜“˜ŒValue˜ŒDocumentation string˜–.ggg ¿oPgg c™‚˜™‚£™˜“€&™‚·™b!™‚b™‚| ™‚°™‚»™,˜”™‚»™(œ˜Œexpand-DEFPARAMETER˜–ggg@Ah™‚»™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚»™,™‚¤˜–&gg ¿ggo ™‚£™˜“€ ™ ™‚÷™‚ø™‚»™‚»™‚»˜“™‚¤˜Œ DEFINITION™‚¦˜ŒENV˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFCONSTANT™˜“€A™™ :™‚¼0™‚¼)™‚Õ ™,™‚Õ™, ™,™‚Ó™‚¼œ˜Œdefinition-expander-DEFCONSTANT˜–‚@X¹HZ»J\’L€h½gI ²ggIhoh€hgIKhgggIhhhM²$gggIhoMhh€h ™‚É™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚†™‚昌 CONSTANTP k™@f™‚Ba™‚cO˜’ŒCONSTANT™‚—J™@E™‚,:™‚Š&™@!˜’Œ SET-CONSTANTP™&™‚`t˜“˜“™@™‚-/˜“€˜–+ggg ¿ggg ™‚Æ™˜“€%™™ ™‚c™‚×™‚¼ ™‚É™‚(™‚¼œ˜Œprototype-fn-DEFCONSTANT˜–@d3@ðg@oh™‚×™˜“˜“˜ŒNAME™‚¼ ˜“˜ŒValue˜ŒDocumentation string˜–.ggg ¿oPgg c™‚˜™‚Æ™˜“€&™‚·™b!™‚b™‚| ™‚×™‚¼™,˜”™‚¼™(œ˜Œexpand-DEFCONSTANT˜–ggg@Ah™‚♘“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚¼™,™‚¤˜–&gg ¿ggo ™‚Æ™˜“€ ™ ™‚÷™‚ø™‚¼™‚♂¼˜“™‚¤˜Œ DEFINITION™‚¦˜ŒENV˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFGLOBALVAR™˜“€A™™ :™‚½0™‚½)™‚Õ ™,™‚Õ™, ™,™‚Ó™‚½œ˜’Œ definition-expander-DEFGLOBALVAR™&˜–‚–@X¹HZ’J€h»J‘i€h¼J“J€h½ggggIhhhL²*gggIhhgIKhhh€hM²$gggIhoMhh€h ™‚𙘓˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚Ž™‚æ u™@p™‚Bk™‚cU™‚ŠI™@D™‚+?™‚r-™‚¾(™@#™‚,™‚`~˜“˜“™@™‚-˜–+ggg ¿ggg ™‚환“€%™™ ™‚c™‚×™‚½ ™‚ð™‚(™‚½œ˜’Œprototype-fn-DEFGLOBALVAR™&˜–@d3@ð™g@hh™‚ú™˜“˜“˜ŒNAME™‚½˜–.ggg ¿oPgg c™‚˜™‚환“€&™‚·™b!™‚b™‚| ™‚ú™‚½™,˜”™‚½™(œ˜’Œexpand-DEFGLOBALVAR™&˜–ggg@Ah™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚½™,™‚¤˜–&gg ¿ggo ™‚환“€ ™ ™‚÷™‚ø™‚½™‚™‚½˜“™‚¤˜Œ DEFINITION™‚¦˜ŒENV˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFGLOBALPARAMETER™˜“€A™™ :™‚¾0™‚¾)™‚Õ ™,™‚Õ™, ™,™‚Ó™‚¾œ˜’Œ&definition-expander-DEFGLOBALPARAMETER™&˜–g@X¹HZ»J\’L€h½ggggIhhhgIKhM²$gggIhoMhh€h™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTJ™@E™‚B@™‚c2™‚Š#™‚¾™@™‚,™‚`S˜“˜“™@™‚-˜–+ggg ¿ggg ™‚ ™˜“€%™™ ™‚c™‚×™‚¾ ™‚™‚(™‚¾œ˜’Œprototype-fn-DEFGLOBALPARAMETER™&˜–@d3@ðg@oh™‚™˜“˜“˜ŒNAME™‚¾ ˜“˜ŒValue˜ŒDocumentation string˜–.ggg ¿oPgg c™‚˜™‚ ™˜“€&™‚·™b!™‚b™‚| ™‚™‚¾™,˜”™‚¾™(œ˜’Œexpand-DEFGLOBALPARAMETER™&˜–ggg@Ah™‚%™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚¾™,™‚¤˜–&gg ¿ggo ™‚ ™˜“€ ™ ™‚÷™‚ø™‚¾™‚%™‚¾˜“™‚¤˜Œ DEFINITION™‚¦˜ŒENV˜–‚Sggo ¿oRgg c¿oSgg c¿o ¿g X¦h¿g` ³0g`gggl2gl2  ¿Q¸gQ‘H†gHc¿ggg ¿ggg ¿ggg ¿ggg ¿ggg ¿gggÁÉg'¸gH‘H†gH ™‚²™‚³™‚´˜Œ DEF-DEFINE-TYPE IL:SPECIAL-FORMS™˜“€‚M™‚™‚™‚ò™‚Ý™‚È™‚™‚Š‚˜™‚‹n™‚7V™‚+K™‚,>™‚·&™‚·™‚*'‚F™‚Å‚<™‚Å‚5™‚Ñ‚,™‚Â'™‚Ñ‚"™‚™‚¸‚™‚¹‚ ™‚™4‚ý™‚º‚ø™‚Âí™6‚虂»‚㙂Âؙ1‚Ó™‚¼‚Ι‚ÂÙ2‚¾™‚h‚¹™‚¯™‚Â¥™‚™‚‚‰™‚‘‚„™‚b™‚|z™‚8u™‚Ãi™‚8d™‚Ã^˜•ŒCHANGEDSPECIAL-FORMSLSTQ™‚29™‚b4™‚|!™‚b™‚|™‚’™‚ÃF˜“™‚¾™‚2.˜“™‚2™‚ØŒCommon Lisp special forms˜“™‚Ù‚˜“™>™˜“™3˜“™@™‚Ø“™@™‚ ™‚4œ™‚Ř– @g ™‚Å™˜“˜“˜ŒX™‚S˜•Œ SPECIAL-FORM˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFINE-SPECIAL-FORM™˜“€A™™ :™‚Ç0™‚Ç)™‚Õ ™‚Ù‚Õ™‚à ™‚Ù‚Ó™‚Çœ˜’Œ'definition-expander-DEFINE-SPECIAL-FORM™&˜–‚@X¹HZ»J\½L¢±ÏgoI I ¾KgMIhgggg __¿O__¿ggggNhhggoOgIOhh hhgggIhogNhhhId3@ðoK ¿°ígggIhogKhh™‚D ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚형Œ ASSERT-FAIL‚¦™‚æX™‚çS™‚è/™‚H*™‚I$™‚J™‚K‚™@‚ÿ™@‚ú™‚s‚õ™‚c‚Ι@‚¾™@‚¹™‚s‚´™‚c‚˜™‚é‚Œ™h‚‡™g{™@v™‚Œq™‚cl™‚`M˜’Œ$$ENV™&H™‚ëC˜’Œ$$TAIL™&>˜ŒPATH6™‚K™‚K‚˜“˜“™@™‚?‚瘌9Ill-formed short DEFINE-SPECIAL-FORM; ~S is not a symbol.‚ǘ“˜“™@™‚?‚‘˜“™‚K™‚J˜Œ interpret-˜–Xggg ¿ggg ¿ggo ¿oPgg c™‚˜™‚A™˜“€P™‚·:™%™™ K™‚bF™‚|0™‚Ü+™‚Ç ™‚c™‚×™‚Ç ™‚D™‚(™‚Ç@˜”™‚Ç™(5˜“™‚™‚™‚œ˜’Œexpand-DEFINE-SPECIAL-FORM™&˜–ggg@Ah™‚Y™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚Ç™‚Ù‚¤˜–&gg ¿ggo ™‚A™˜“€ ™ ™‚÷™‚ø™‚Ç™‚Y™‚ǘ“™‚¤˜Œ DEFINITION™‚¦˜ŒENV˜–‚Òo ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ˜Œ19 top-level forms™˜“€‚̘•ŒPUTPROPS‚Á™‚f‚¶™‚f‚«™‚f‚ ™‚f‚•™‚f‚Š™‚f™‚ft™‚fi™‚f^™‚fS™‚fH™‚f=™‚f2™‚f'™‚f™‚f™‚f™‚f‚ǘ“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚l‚ÂÄ‚Æ‚¼˜“™™‚阓™ ˜ŒXCL™ ˜ŒXCL‚±˜“™™‚蘌 COMPILE-FILE‚¦˜“™‚㙂ܘ“™‚™‚™‚‚›˜“™‚♂ܘ“™‚™‚‚˜“™‚ᙂܘ“™‚™‚™‚™‚‚…˜“™‚à™‚Ü˜“™‚™‚™‚z˜“™‚ß™‚ܘ“™‚™‚o˜“™‚Þ™‚ܘ“™‚˜ŒVALUE™‚d˜“™‚Ý™‚ܘ“™‚™‚™‚Y˜“™‚Ø™‚ϘŒIGNOREN˜“™‚×™‚Ï™‚€C˜“™‚Ö™‚Ï™‚€8˜“™‚Õ™‚Ï™‚€-˜“™‚Ô™‚Ï™‚€"˜“™‚Ó™‚Ï™‚€˜“™‚Ò™‚Ï™‚€ ˜“™‚Ñ™‚Ï™‚€˜“™‚Й‚Ï™$š‚‹ÿÿ