‘XCL Compiler output for source file {DSK}export>lispcore>sources>CLTL2>CMLDEFFER.;2 Source file created Friday, 29 October 1993, 13:08:30. FASL file created Friday, 29 October 1993, 14:28:02. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒXCL˜Œ{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™0˜“™?˜•Œ\DEFINE-TYPE-DELDEF˜“™>˜“™?™1˜“™?˜•Œ\DEFINE-TYPE-GETDEF˜“™>˜“™?™2˜“™?˜•Œ\DEFINE-TYPE-FILE-DEFINITIONS˜“™>˜“™?™3˜“™?˜•Œ\DEFINE-TYPE-FILEGETDEF˜“™>˜“™?™4˜“™?˜•Œ\DEFINE-TYPE-SAVE-DEFN˜“™>˜“™?™5˜“™?˜•Œ\DEFINE-TYPE-PUTDEF˜“™>˜“™?™'˜“™?˜•ŒPPRINT-DEFINER˜“™:™;™<˜“™=˜“™™˜Œ+Set up fake definer prototype stuff for FNS˜“˜’ŒADD-PROTOTYPE-FN™%˜“™?˜•ŒFNS˜“™?˜•ŒNLAMBDA˜“˜ŒFUNCTION˜“˜ŒLAMBDA˜“˜’ŒNAME™%˜“˜ŒAND˜“˜ŒSYMBOLP™h˜“˜•ŒBQUOTE˜“˜•ŒDEFINEQ˜“˜“˜•Œ\,™h˜“™d˜“˜•Œ\,@˜“˜’Œ%MAKE-FUNCTION-PROTOTYPE™%˜“™a˜“™?™b˜“™?˜•ŒLAMBDA˜“™f˜“™g˜“™h˜“™j˜“™k™h˜“™m˜“™n˜“˜“™o™h˜“™~˜“™q˜“™r˜“™˜“™™ ˜Œ!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™%˜’ŒDEFINER-VARIABLE-TYPE™%˜’Œ NAMED-PROGN™%˜“™˜“™™ ˜ŒAuxiliary functions˜“™#˜’ŒGET-DEFINER-NAME™%˜’Œ%DELETE-DEFINER™%˜“™#˜’ŒDEF-DEFINE-TYPE™%˜’Œ DEFDEFINER™%˜’ŒDEFDEFINER-VARIABLE-TYPE™%˜“™#˜’Œ%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™ ˜“˜”˜Œ24-Mar-92 14:56:18•Œ1{DSK}local>lde>lispcore>sources>CMLDEFFER.;3œ™&˜–‚†@‘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™,œ™0—˜–‚@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»°ñ@™0™˜“˜“˜ŒNAME˜ŒTYPE*˜•Œ/PUTHASH˜•ŒGETHASH™‚8t™‚Ód™‚ÒD™‚Ó5™‚Ò˜’Œ*DEFINITION-HASH-TABLE*™%™‚:˜–)no@A@A h ¿@AB ˜Œ UNDOSTORE˜ŒCLOSURE˜“˜“˜ŒA4965˜ŒA4966˜ŒA4964#™‚+˜•ŒUNDOSAVE˜Œ DOCUMENTATION˜•ŒCOMPILED-CLOSURE™‚E™‚Eœ™1˜–8A` X—@H €h¹B×gB†Bgð–I I™1™˜“˜“˜ŒNAME˜ŒTYPE˜ŒOPTIONS0˜Œ COPY-TREE™‚8™‚8(˜•ŒEDIT™‚L˜•ŒLISTP™‚9œ™2˜–IA¸h¹hºh»H¡IH\@o ]’M°ggLg@ »I”JK&º„KhZ¹H¸°Â™2™˜“˜“˜ŒTYPE˜ŒNAMES2˜ŒERROR™1+˜ŒTYPE%™‚ ˜•ŒNO-SUCH-DEFINITION˜“˜•ŒNOCOPYœ™3˜–‚½hBggoggggAÁÉg'X‘HŠAÁÉg'hogogoggg@hhgog@hhhhhh Xgð‘DH—gHH™3™˜“˜“˜ŒNAME˜ŒTYPE˜ŒSOURCE˜ŒOPTIONS˜ŒNOTFOUND‚ž˜•ŒLOADFNS‚²˜ŒPROGN‚¦˜•Œ NOT-FOUND:‚€™?v˜ŒEQUALi™?d˜ŒSECOND_™‚cU˜ŒIFK˜ŒLET:™‚×+™‚Ö!™?˜ŒFIRST˜ŒMEMBER™j™~˜•ŒGETDEF{˜“˜ŒFUNCALL˜’ŒNAMER™%˜“™&˜“˜•ŒREADZ˜“˜ŒEQ™‚k˜“™?™‚dP˜“˜“™‚k˜“˜ŒOR˜“˜ŒGET™‚g˜“™?™‚ؘ“™‚t™‚g˜“™?™‚Ù˜“™?™‚dC˜“˜ŒTEST˜“™f™‚p ˜“™‚g™‚dœ™4˜–‚¥Ag b` X³=oA ¿A`gg gl2gl2  ¸@H ¹BIÌ‘hI—Rið‘h‚i€h²SoA@Ro ¿@BH ¿@AI•g„g ˜•ŒDFNFLG˜Œ *TERMINAL-IO*™4™˜“˜“˜ŒNAME˜ŒTYPE˜Œ DEFINITION ‚Ÿ˜•Œ MARKASCHANGED‚Š™‚7‚˜ŒFORMATX™‚8P˜ŒPUTHASHK˜ŒMAKE-HASH-TABLE7˜ŒSYMBOL-FUNCTION!™‚õ™‚8˜•ŒGETFILEPKGTYPE ‚š˜•ŒDEFINED‚”˜•ŒCHANGEDC˜Œ REHASH-SIZE<˜ŒSIZE2™‚c-™‚}(™‚9™‚9˜ŒTYPEz˜“™‚Ϙ•ŒALLPROPr˜Œ8~&New ~A definition for ~S~:[~; (but not installed)~].~%˜ŒDCouldn't find a hash-table for ~S definitions.~%One will be created.œ™5˜–‚³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™5™˜“˜“˜ŒNAME˜ŒTYPE˜Œ DEFINITION˜ŒREASON‚­™0‚¥˜ŒEVAL‚ž˜’Œ MAKE-UNDOABLE™%‚“™‚K‚Œ˜’ŒSIGNAL™%™& ‚…˜Œ DEFINITION™‚Ty™‚t˜•ŒDEFINER-MISMATCHc™‚dY™‚ÙH™‚Ø1™‚×"™‚Ö˜–‚§gg ¿gg ¿gg ¿gg ¿gg ¿gg ¿gg ¿ggno ¿ggno ˜Œ9 top-level forms™˜“€ ‚¡™a‚†™ak™>[™>K™>;™>+™>™> ™>‚‘™~‚Œ™bv™dq™bf™Ya™'V™UQ™5F™QA™46™M1™3&™I!™2™E™1™A™0‚š˜–"@d3@ð²g@ghhh˜Œlambda in 9 top-level forms™‚<˜“˜“˜ŒNAME™r™~™n˜–"@d3@ð²g@ghhh˜Œlambda in 9 top-level forms™‚<˜“˜“˜ŒNAME™r™d™n‚–™‚D{™‚D˜–‚"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™‚8V™‚,K™‚->˜ŒADJOIN&™‚¸™‚+!‚˜•ŒNILL‚˜•ŒFILEPKGCONTENTS‚ ™‚‘‚™3‚ý˜•Œ FILEGETDEF‚ø™‚‘‚í™5‚蘕ŒPUTDEF‚㙂‘‚Ø™0‚Ó˜•ŒDELDEF‚Ι‚‘‚Ù1‚¾™‚i‚¹™‚‘‚¯™‚‘‚¥™‚‘‚™‚‘‚‰™‚’‚„™‚c™‚}z™‚9u™‚‘i™‚9d™‚‘^˜•ŒCHANGEDDEFINE-TYPESLSTQ™‚¾9™‚c4™‚}!™‚c™‚}™‚‘™‚‘F˜“˜’ŒGLOBAL™%™‚¾.˜“™‚¾™‚‘˜ŒDefinition type˜“™‚‘˜’ŒX™%˜“™=™˜“™2˜“™?™‚‘˜“™?™‚à ™‚Á˜–‚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™‚8V™‚,K™‚->™‚¸&™‚¸™‚+'‚F˜•ŒUNDOABLY-FMAKUNBOUND‚<™‚Ì‚5™‚Ò‚,™#‚'™‚Ò‚"™#‚™‚¹‚™‚º‚ ™#‚™3‚ý™‚»‚ø™#‚í™5‚虂¼‚ã™#‚Ø™0‚Ó™‚½‚Ι#‚Ù1‚¾™‚i‚¹™#‚¯™#‚¥™#‚™‚‘‚‰™‚’‚„™‚c™‚}z™‚9u™#i™‚9d™#^˜•ŒCHANGEDFUNCTIONSLSTQ™‚Í9™‚c4™‚}!™‚c™‚}™‚‘™#F˜“™‚¿™‚Í.˜“™‚Í™#˜ŒCommon Lisp functions/macros˜“™#™‚Ø“™=™˜“™2˜“™?™#˜“™?™‚à ™‚Ϙ–‚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™‚8V™‚,K™‚->™‚¸&™‚¸™‚+'‚F˜’ŒUNDOABLY-MAKUNBOUND™%‚<™‚Ù‚5™‚Ò‚,™+‚'™‚Ò‚"™+‚™‚¹‚™‚º‚ ™+‚™3‚ý™‚»‚ø™+‚í™5‚虂¼‚ã™+‚Ø™0‚Ó™‚½‚Ι+‚Ù1‚¾™‚i‚¹™+‚¯™+‚¥™+‚™‚‘‚‰™‚’‚„™‚c™‚}z™‚9u™+i™‚9d™+^˜•ŒCHANGEDVARIABLESLSTQ™‚Ú9™‚c4™‚}!™‚c™‚}™‚‘™+F˜“™‚¿™‚Ú.˜“™‚Ú™+˜ŒCommon Lisp variables˜“™+™‚Ø“™=™˜“™2˜“™?™+˜“™?™‚à ™‚Üœ™‚—˜–OAgB@hgg  X¹HZ»J¼goKg@Ihh L$™‚—™˜“˜“˜ŒNAME˜ŒARG-LIST˜ŒBODYC˜ŒAPPEND˜•Œ\MVLIST˜•ŒPARSE-DEFMACRO6˜ŒBLOCK+™g˜’Œ$$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*™‚f ˜ŒUNLESS˜Œ EVAL-WHEN ™‚™‚a/˜“˜“˜•Œ FILEPKGFLG€˜“™‚‚%˜“™‚s˜“™‚p™‚‚˜“™?™‚Ϙ“™‚p™‚‚˜“™?™‚”˜“™‚ ˜“˜Œ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™4p™‚f™‚S™‚˜N™‚™I™‚a7™‚Ø ˜ŒDEFINITION-EXPANDERu˜“˜ŒNULL™‚k˜“™‚ ˜–&gg ¿ggo ˜ŒDEFMACRO DEFINER™˜“€ ™ ™‚ú™‚û™‚£™‚&™‚£˜“˜ŒTYPE˜ŒNAME˜Œ DEFINITION˜Œ &OPTIONAL˜ŒENVœ˜’Œexpand-DEFINER-VARIABLE-TYPE™%˜–‚Æ@X¹HZ»J\’L€h½K ¾IÁÉg'_¿NkO_¿IÁÉg'O'_¿IÁÉg'_¿NkO_¿gggONMhhgogoggOhgOhgKhhhhgOhh™‚9 ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™& ‚¶™?‚ ™?‚–™?‚Œ™?‚‡™4}™‚s™‚b™‚˜]™‚™X™‚aG™‚Ø6™‚+ ˜ŒTYPE-DISCRIMINATOR‚‚˜“™‚,™‚x˜“™‚ ˜–&gg ¿ggo ˜ŒDEFMACRO DEFINER-VARIABLE-TYPE™˜“€ ™ ™‚ú™‚û™‚¤™‚9™‚¤˜“˜ŒNAME˜Œ DEFINITION™‚5˜ŒENVœ˜’Œexpand-NAMED-PROGN™%˜–#@XYºI»gKgJhh ™‚I™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚é™? ™‚a˜–&gg ¿ggo ˜ŒDEFMACRO NAMED-PROGN™˜“€ ™ ™‚ú™‚û™‚¥™‚I™‚¥˜“˜ŒDEFINER˜ŒNAME˜Œ&REST˜ŒFORMSœ™‚ª˜–gA@ @ þ™‚ª™˜“˜“˜ŒDEFINER˜ŒSTRING˜ŒINTERN˜ŒSYMBOL-PACKAGE ˜Œ CONCATENATE˜ŒSTRING™‚^œ™‚«˜–‚Ö@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‚¢™‚d‚ˆ™‚e‚ƒ™‚d[˜•Œ/REMPROPO™‚fC™‚f7™‚f+™‚f‚½˜Œ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™‚n ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTS˜•Œ KEYWORD-TESTE™‚[@™‚\:™‚]0™‚^˜•Œ FIND-KEYWORD,‚™?‚ü™‚t‚ò™?‚혌PUSHNEW‚Ò™?‚Í™‚t‚ȘŒSETF‚±™?‚¬™‚t‚§™‚v‚™?‚‹™‚t‚†™‚v‚o™?‚j™‚t‚e™‚v‚N™?‚I™‚t‚D™‚v‚4™?‚/™‚u‚™?‚˜ŒGETHASH‚ ™‚v‚ú™?‚õ™‚w‚𙂂♂¾‚Ë™?‚Æ™‚u‚¤™?‚Ÿ™2‚š™‚•™=‚™‚Š™?‚…™‚ux™?h™?c™‚C^™‚vY™‚a%™‚^˜Œ UNDEFINER‚ ˜“˜“™?™‚Ò‚☓˜“™?™‚¹‚Û˜“˜“™?™‚º‚Á˜“˜“™?™3‚º˜“˜“™?™‚»‚ ˜“˜“™?™5‚™˜“˜“™?™‚¼‚˜“˜“™?™0‚x˜“˜“™?™‚½‚^˜“˜“™?™1‚W˜“˜“™?™‚i‚=˜“™‚³‚$˜“˜“™‚Œ™‚}˜“™?™‚c™‚’2™‚‘2‚˜“™‚9‚˜“™‚9‚阓€‚Û˜“™‚µ™‚}˜“™?™‚c‚¿˜“™‚´™‚}˜“™?™‚c‚­˜“˜“™?™‚Ãq˜“˜“™?™‚‘N˜“™‚x5˜ŒLST*˜ŒCHANGED˜–+ggg ¿ggg ™‚k™˜“€%™™ ™‚d™‚Ø™‚­ ™‚n™‚+™‚­œ˜’Œprototype-fn-DEF-DEFINE-TYPE™%˜–@d3@ðg@oh™‚¤™˜“˜“˜ŒNAME™‚­ ˜“˜ŒDescription string˜–.ggg ¿oPgg c˜•ŒPRETTYPRINTMACROS™‚k™˜“€&™‚¸™a!™‚c™‚} ™‚¤™‚­™‚‘˜”™‚­™'œ˜’Œexpand-DEF-DEFINE-TYPE™%˜–ggg@Ah™‚¯™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚­™‚‘™‚£˜–&gg ¿ggo ™‚k™˜“€ ™ ™‚ú™‚û™‚­™‚¯™‚­˜“˜Œ&WHOLE˜Œ DEFINITION˜Œ &ENVIRONMENT˜ŒENV˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFDEFINER™˜“€A™™ :™‚®0™‚®)™‚Ö ™#™‚Ö™# ™#™‚Ô™‚®œ˜’Œdefinition-expander-DEFDEFINER™%˜–‚’@X¹HZ»J\½L^_¿I‘i€hšI_¿I¹O€h_¿h_¿h_¿h_¿h_¿h_¿h_¿O_¿h_ ¿O’O‚±Ž_ _"gð˜O _¿°nO"gð˜O _¿°\O"gð˜O _¿°JO"gð˜O _¿°8O"gð˜O _¿°&O"gð˜O _¿°ooO ¿O_¿±ÿoOœO3 ‘i€h‘h‚i€hœoO ¿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€hO²%gggIhoOhh€hggIO’O„ghoh  gIogogKhgIhohh™‚¿™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ‚M™‚é‚G™‚é‚K™‚ª‚療ª‚Å™‚ª‚¯™‚ª‚Ž˜•Œ\NCONC2‚ ™‚ê‚™‚—‚ú™‚S‚Ò˜ŒCERRORG‚v™?‚m™?‚c˜ŒLIST‚X™‚¹‚4™'‚(™?‚#™‚u‚ ™?‚™‚t‚ÿ™‚v‚é™?‚Ù™?‚Ô™‚t‚Ï™‚v‚±™?‚¬™‚C‚§™‚v‚™?‚†™?‚}™?‚x™a‚j™f‚]™?‚X™‚‚S™‚v‚(™?‚#™‚t‚™?‚™‚u‚™f‚ù™?‚ô™‚‚v‚Ñ™‚d‚À™?‚°™?‚«™‚t‚¦™‚v‚”™f‚‡™?‚‚™‚‚}™‚v‚k™?‚[™?‚V™‚t‚Q™‚v‚C™f‚6™?‚1™‚‚,™‚v‚™?‚™‚t‚ ™?‚™‚u‚ø™?‚è™?‚㙂t‚Þ™‚v‚Ô™‚‚Ï™‚a‚¢™‚‚‡™‚‚[˜ŒLAMBDA-LIST-KEYWORDS‚P™‚‚%™‚‚¶˜ŒEDITDATE-OFFSET‚¤˜ŒPRETTYPRINTMACRO‚’˜ŒTEMPLATE‚€˜Œ PROTOTYPEn™‚\™‚x‚˜“˜’Œ DEFINITION™%˜’ŒENV™%‚h˜“™?™‚£‚^˜“™‚¶™‚Ì™‚¸™‚Í‚=˜“™‚«™‚}˜“™?™‚c‚˜“™‚È‚☓˜“™?™‚Ý‚º˜“˜“™?™f‚F˜Œ prototype-fn-‚1˜“˜“™?™‚Ò‚☌ undefiner-fn-‚¹˜“˜“™?™‚Ø‚d˜“˜“™?™‚+‚!˜“˜“™?™‚Ö‚ñ˜“˜“™?™‚Ô‚Ù˜“™‚™‚ ‚À˜Œname-fn-‚ª˜Œdefinition-expander-‚ó˜Œ+:EDITDATE-OFFSET must be an integer, not ~a‚˘Œ%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™r*˜Œ SYMBOL-VALUE%™‚[˜•ŒEDITMODE˜•ŒSEDIT™‚®0˜ŒType ˜ŒSEDIT˜Œ BASIC-GAP˜–Cggg ¿ggo ¿oPgg c™‚«™‚¼™˜“€;™‚¸%™™a6™‚c1™‚}™‚Ý™‚® ™‚ö™‚®™#+˜”™‚®™' ˜“™‚™‚T™‚™‚œ˜’Œexpand-DEFDEFINER™%˜–ggg@Ah™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚®™#™‚£˜–&gg ¿ggo ™‚¼™˜“€ ™ ™‚ú™‚û™‚®™‚™‚®˜“™‚¶˜Œ DEFINITION™‚¸˜ŒENV˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜Œ#DEFDEFINER DEFDEFINER-VARIABLE-TYPE™˜“€A™™ :™‚¯0™‚¯)™‚Ö ™#™‚Ö™# ™#™‚Ô™‚¯œ˜’Œ,definition-expander-DEFDEFINER-VARIABLE-TYPE™%˜–‚å@X¹HZ»J\½L^_¿I‘i€hšI_¿I¹O€h_¿h_¿h_¿h_¿h_¿h_¿h_¿h_¿h_ ¿h_"¿O_$¿h_&¿O$’O$‚±ž_&_(gð—O&_¿°O(gð˜O&_¿°mO(gð—O&_¿°\O(gð˜O&_¿°JO(gð˜O&_¿°8O(gð˜O&_¿°&O(gð˜O&_"¿°ooO& ¿O$_$¿±ÿ_Oªo ¿O"œO"3 ‘i€h‘h‚i€hœoO" ¿K_&¿h_$¿O&’O&‚±‹_$¿IMOO$'_(”O(h‹oO$ _(_*¿O(_,¿OœOO$O* ¿‹O$O*h_._¿O,²+gO O ’O „oO$ oO, _ ¿O&_&¿±ÿrO‘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¿O‘i€h›Io €h_,¿Io _*¿ggogggIhogKhhgggO*hhgOhhgggIhogO*hhO¢±¿K_(¿h_&¿h_$¿h_.¿O(¤O&±¨O(_0¿IgO0 o _2¿gggO2hhgOO0'hhggO0hgIhgO2hhh_.¿O$–O$O.¿„O._&¿O.‘i€h™O. _$¿O(_(¿±ÿWhO ²%gggIhoO hh€hO²-gggIhogOhhh€hgggIhogO,’O,ŠO’O„ghhK_(¿h_&¿h_$¿h_.¿O(¤O&±éO(_0¿IgO0 o _2¿OO0'_4¿ggIhggO0hohgggO2hhgO4hhggggIhogO0hhgO2hhh_.¿O$–O$O.¿„O._&¿O.‘i€h™O. _$¿O(_(¿±ÿO,²*gggO,hhgOhhh€hO¢±ÞK_(¿h_&¿h_$¿h_.¿O(¤O&±ÇO(_0¿OO0'¢±‰IgO0 o _4¿gggO4hhgOO0'hhggO4hgggIhogO0hhhh€h_.¿O$–O$O.¿„O._&¿O.‘i€h™O. _$¿O(_(¿±ÿ8hO"²%gggIhoO"hh€hggIO’O„ghoh  gIogogIhohh™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚«™‚é‚¥™‚é‚G˜ŒLAST‚»™‚ª‚¶™‚]‚¬˜Œ SYMBOL-NAME‚9™‚‚™‚ª‚|™‚]‚r™‚‚«™‚‚5™‚ª‚0™‚]‚&™‚‚o™‚ª‚_™‚ª‚6™‚Ä‚²™‚]‚¥™‚‚z˜•ŒLISTPUT‚_™‚ê‚Z™‚—‚U™‚S‚$™‚S‚™‚S‚ÅW‚Ê™?‚À™‚Æ‚µ™‚¹‚’™'‚†™?‚™‚u‚g™?‚b™‚t‚]™‚v‚™?‚™?‚ÿ™‚t‚ú˜ŒGETF‚ð™?‚뙂u‚Ú™f‚Í™?‚È™‚‚Ù‚v‚¥™‚^‚e™f‚X™?‚S™‚‚N™‚v‚ ™?‚ý™?‚í™?‚虂t‚㙂‚Þ™‚v‚Йf‚Ù?‚¾™‚‚¹™‚v‚¤™?‚Ÿ™‚t‚–™?‚‘™‚u‚k™‚^‚@™‚d‚/™?‚™?‚™‚t‚™‚v‚™?‚ó™?‚t‚陂v‚Ë™?‚Æ™‚C‚Á™‚v‚}™?‚t™?‚j™?‚e™a‚T™f‚G™?‚B™‚‚=™‚v‚™‚^‚ì™?‚Ü™?‚×™‚t‚Ò™‚v‚Ä™f‚·™?‚²™‚‚­™‚v‚ ™?‚™?‚‹™‚t‚†™‚v‚|™‚‚w™‚a‚J™‚‚/™‚‚™‚Ç‚ø™‚‚Í™‚‚‘™‚^‚Ò™‚È‚À™‚>‚®™‚É‚œ™‚Ê‚‹˜Œ PROTOTYPESy™‚h™‚Ò‚Ó˜“™‚Ì™‚Í‚Ř“™?™‚¤‚»˜“™‚¶™‚Ì™‚¸™‚Í‚›˜“™‚«™‚}˜“™?™‚c‚p˜“™‚È‚ ˜“˜“™?™‚Ò‚±˜Œ-undefiner-fn-‚ö˜“˜“™?™‚+‚®˜“˜“™?™‚Ö‚w˜Œ-definition-expander-‚(˜“˜“™?™‚Ø‚ü˜“˜“™?™‚Ý‚Ô˜“˜“™?™f‚+˜Œ-prototype-fn-‚嘓˜“™?™‚>‚™˜“˜“™?™‚Ô‚˜“™‚™‚ ‚j˜Œtype-discriminator-fn-‚Z˜Œname-fn-‚ª˜Œ: ‚ž˜Œ ‚N˜ŒNo expansion-function for ~A‚˜Œ+:EDITDATE-OFFSET must be an integer, not ~a‚˜Œ7DEFDEFINER-VARIABLE-TYPE must have a TYPE-DISCRIMINATOR‚瘌%Unrecognized option to DefDefiner: ~S‚☌Ignore the option˜–ggg ™‚™˜“€™ ™‚™‚+™‚¯œ˜’Œ name-fn-DEFDEFINER-VARIABLE-TYPE™%˜–@X‘i€h’HH™‚C™˜“˜“˜ŒWHOLE˜–\ggg ¿gg ¿gggÁÉg'¸gH‘H†gH ™‚™˜“€V™%™‚ó ™‚™ O˜’Œ%undefiner-fn-DEFDEFINER-VARIABLE-TYPE™%E™‚I>™‚Ò5™‚¯0™‚Ò+™‚¯™‚«™‚I ™‚C™‚Ø™‚¯œ˜’Œ%prototype-fn-DEFDEFINER-VARIABLE-TYPE™%˜–J@d3@ð²Bg@oo ð²oo „oh™‚K™˜“˜“˜ŒNAME?™r4™‚ú/™‚[™‚[™‚û™‚¯:˜ŒType*˜ŒSEDIT%˜Œ BASIC-GAP˜ŒSEDIT˜ŒSEDIT˜–Cggg ¿ggo ¿oPgg c™‚«™‚™˜“€;™‚¸%™™a6™‚c1™‚}™‚Ý™‚¯ ™‚K™‚¯™#+˜”™‚¯™' ˜“™‚™‚T™‚™‚œ˜’Œexpand-DEFDEFINER-VARIABLE-TYPE™%˜–ggg@Ah™‚Y™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚¯™#™‚£˜–&gg ¿ggo ™‚™˜“€ ™ ™‚ú™‚û™‚¯™‚Y™‚¯˜“™‚¶˜Œ DEFINITION™‚¸˜ŒENVœ™‚±˜–@ÁÉg'¸ABlH™‚±™˜“˜“˜ŒDEFINER˜ŒDEFINITION-WITHOUT-COMMENTS™‚5˜ŒENV™‚+œ™‚²˜–@ÁÉg'¸AkH™‚²™˜“˜“˜ŒDEFINER˜ŒDEFINITION-WITHOUT-COMMENTS™‚ؘ–ggo ˜ŒDEFDEFINER-VARIABLE-TYPE DEFUN™˜“€™™‚Ô™‚· ˜“™#˜•ŒSETFSœ˜Œtype-discriminator-fn-DEFUN˜–)@Xd3@ð•gH •goH ™‚t™˜“˜“˜ŒWHOLE#™‚S˜Œ SETF-NAME-P™‚q ™#˜Œ"Can't determine type for DEFUN: ~s˜–ggg ™‚o™˜“€™ ™‚t™‚>™‚·œ˜ŒFUNCTIONS-prototype-fn-DEFUN˜–g@™‚}™˜“˜“˜ŒNAME™r™‚·˜–ggg ™‚o™˜“€™a ™‚}™‚·™#œ˜ŒSETFS-prototype-fn-DEFUN˜–gg@h™‚„™˜“˜“˜ŒNAME™r™‚v™‚·˜–qggg ¿ggo ¿ggg ¿gggÁÉg'¸gH‘H†gH ™‚o™˜“€k™:™%™™ad™‚·Z™‚·S™‚ÖJ™#E™‚Ö@™#5˜Œ name-fn-DEFUN0™‚Ø+™‚·™‚Ý™‚· ™‚„™‚·™‚q ˜“™‚™‚™‚œ˜Œ#FUNCTIONS-definition-expander-DEFUN˜–‚—@X¹HZ»J\Ai ½M¾M_¿M_¿ggggIhhggKOgINh hhO²%gggIhoOhh€h™‚ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT^™‚陂ꘒŒ PARSE-BODY™% z™?u™‚Cp™‚vS™‚ìK™gF™f:™?5™‚0™‚v+™‚a‚ƒ˜“˜“™?™f˜–vgÁÉg'X²Hgg ¿°!ggh¹ggI ¿gggÁÉg'¸gH‘H†gH ™‚o™˜“€p™?™™‚i™‚·_™‚·X™‚ÖO™‚qJ™‚ÖE™‚q9™‚+4™‚·+™‚&™#™‚™# ™‚+™‚·œ˜ŒSETFS-definition-expander-DEFUN˜–‚Å@X¹HZ»J\Ai ½M¾M_¿M_¿I_ _¿ggggOhhggKOgONh hhggOhgOhhO²&gggOhoOhh€h™‚˜ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTm™‚é0˜’ŒDEFUN-SETF-NAME™%™‚Ꙃ’ ‚¦™?‚¡™‚C‚œ™‚v‚Š™?‚€™?{˜’ŒSET-DEFUN-SETF™%a™‚ìY™gT™fG™?B™‚=™‚v8™‚a‚°˜“˜“™?™‚v˜–LgÁÉg'¸g¹H²Hgg gghºggJ ¿I™‚o™˜“€D™%™‚ >™‚+9™‚·0™‚˜+™‚q ™‚˜™‚q™‚˜ ™‚+™‚·œ™‚Š˜–#@Xd3@ð‘HH “HoH ™‚Š™˜“˜“˜ŒWHOLE™‚S ™‚x˜ŒBad function-name for DEFUN: ~s˜–+ggl ¿oPgg c™‚«™‚o™˜“€#™‚¸ ™™‚c™‚}™‚È™‚·˜”™‚·™'œ˜Œ expand-DEFUN˜–gg@Ah™‚¬™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚·™‚¤˜–&gg ¿ggo ™‚o™˜“€ ™ ™‚ú™‚û™‚·™‚¬™‚·˜“™‚¶˜Œ 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™‚\=™‚陂Ꙃ’{™?v˜ŒCONSW˜’Œ DEFOPTIMIZER™%L™‚·G™‚a1™‚ì)™g‚…˜“˜’ŒARGS™%q˜“™‚S™‚Â]˜Œ definline-˜–+ggg ¿ggg ™‚·™˜“€%™™ ™‚d™‚Ø™‚¸ ™‚º™‚+™‚¸œ˜’Œprototype-fn-DEFINLINE™%˜–@d3@ðg@h™‚É™˜“˜“˜ŒNAME ™r™‚¸˜–Cggg ¿ggo ¿oPgg c™‚«™‚·™˜“€;™‚¸%™™a6™‚c1™‚}™‚Ý™‚¸ ™‚É™‚¸™#+˜”™‚¸™' ˜“™‚™‚™‚œ˜’Œexpand-DEFINLINE™%˜–ggg@Ah™‚Ò™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚¸™#™‚£˜–&gg ¿ggo ™‚·™˜“€ ™ ™‚ú™‚û™‚¸™‚Ò™‚¸˜“™‚¶˜Œ 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™‚à™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚Q™‚é‚!˜ŒPRIN1-TO-STRING‚õ˜•Œ\SIMPLIFY.CL.ARGLISTK™‚êF™‚—=™‚¿8™‚\(™‚S‚™‚Ç‚ï™?‚ß™?‚Ú™‚t‚Õ™‚v‚·™?‚²™‚C‚­™‚v‚œ™?‚™?‚‹˜ŒMACRO-FUNCTION‚†™‚vx™fl™?g™‚b™‚v]™‚a‚蘓˜“™?™‚û‚À˜“˜“™?™f.˜Œexpand-"˜Œ!Illegal name used in DEFMACRO: ~S˜–+ggg ¿ggg ™‚Ý™˜“€%™™ ™‚d™‚Ø™‚¹ ™‚à™‚+™‚¹œ˜Œundefiner-fn-DEFMACRO˜– @g ™‚ô™˜“˜“˜ŒNAME˜ŒREMPROP™‚û˜–2gggÁÉg'¸gH‘H†gH ™‚Ý™˜“€,™%™‚ô™‚ô™‚Ò ™‚¹™‚Ò™‚¹œ˜Œprototype-fn-DEFMACRO˜–@d3@ðg@h™‚ü™˜“˜“˜ŒNAME ™r™‚¹˜–Cggg ¿ggo ¿oPgg c™‚«™‚Ý™˜“€;™‚¸%™™a6™‚c1™‚}™‚Ý™‚¹ ™‚ü™‚¹™#+˜”™‚¹™' ˜“™‚™‚™‚œ˜Œexpand-DEFMACRO˜–ggg@Ah™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚¹™#™‚£˜–&gg ¿ggo ™‚Ý™˜“€ ™ ™‚ú™‚û™‚¹™‚™‚¹˜“™‚¶˜Œ 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™‚Ck™‚vU˜ŒSETQI™?D™‚,?™‚s-™‚0(™?#™‚-™‚a~˜“˜“™?™‚.˜–+ggg ¿ggg ™‚™˜“€%™™ ™‚d™‚Ø™‚» ™‚™‚+™‚»œ˜Œprototype-fn-DEFVAR˜–@d3@ð™g@hh™‚™˜“˜“˜ŒNAME™‚»˜–.ggg ¿oPgg c™‚«™‚™˜“€&™‚¸™a!™‚c™‚} ™‚™‚»™+˜”™‚»™'œ˜Œ 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™‚4™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTJ™?E™‚C@™‚v2™‚#™‚0™?™‚-™‚aS˜“˜“™?™‚.˜–+ggg ¿ggg ™‚1™˜“€%™™ ™‚d™‚Ø™‚¼ ™‚4™‚+™‚¼œ˜Œprototype-fn-DEFPARAMETER˜–@d3@ðg@oh™‚>™˜“˜“˜ŒNAME™‚¼ ˜“˜ŒValue˜ŒDocumentation string˜–.ggg ¿oPgg c™‚«™‚1™˜“€&™‚¸™a!™‚c™‚} ™‚>™‚¼™+˜”™‚¼™'œ˜Œexpand-DEFPARAMETER˜–ggg@Ah™‚I™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚¼™+™‚£˜–&gg ¿ggo ™‚1™˜“€ ™ ™‚ú™‚û™‚¼™‚I™‚¼˜“™‚¶˜Œ 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 ™‚W™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚†™‚阌 CONSTANTP k™?f™‚Ca™‚vO˜’ŒCONSTANT™‚–J™?E™‚-:™‚&™?!˜’Œ SET-CONSTANTP™%™‚at˜“˜“™?™‚./˜“€˜–+ggg ¿ggg ™‚T™˜“€%™™ ™‚d™‚Ø™‚½ ™‚W™‚+™‚½œ˜Œprototype-fn-DEFCONSTANT˜–@d3@ðg@oh™‚e™˜“˜“˜ŒNAME™‚½ ˜“˜ŒValue˜ŒDocumentation string˜–.ggg ¿oPgg c™‚«™‚T™˜“€&™‚¸™a!™‚c™‚} ™‚e™‚½™+˜”™‚½™'œ˜Œexpand-DEFCONSTANT˜–ggg@Ah™‚p™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚½™+™‚£˜–&gg ¿ggo ™‚T™˜“€ ™ ™‚ú™‚û™‚½™‚p™‚½˜“™‚¶˜Œ 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™‚Ck™‚vU™‚I™?D™‚,?™‚s-™‚¿(™?#™‚-™‚a~˜“˜“™?™‚.˜–+ggg ¿ggg ™‚{™˜“€%™™ ™‚d™‚Ø™‚¾ ™‚~™‚+™‚¾œ˜’Œprototype-fn-DEFGLOBALVAR™%˜–@d3@ð™g@hh™‚ˆ™˜“˜“˜ŒNAME™‚¾˜–.ggg ¿oPgg c™‚«™‚{™˜“€&™‚¸™a!™‚c™‚} ™‚ˆ™‚¾™+˜”™‚¾™'œ˜’Œ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™‚C@™‚v2™‚#™‚¿™?™‚-™‚aS˜“˜“™?™‚.˜–+ggg ¿ggg ™‚›™˜“€%™™ ™‚d™‚Ø™‚¿ ™‚ž™‚+™‚¿œ˜’Œprototype-fn-DEFGLOBALPARAMETER™%˜–@d3@ðg@oh™‚¨™˜“˜“˜ŒNAME™‚¿ ˜“˜ŒValue˜ŒDocumentation string˜–.ggg ¿oPgg c™‚«™‚›™˜“€&™‚¸™a!™‚c™‚} ™‚¨™‚¿™+˜”™‚¿™'œ˜’Œ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™‚8V™‚,K™‚->™‚¸&™‚¸™‚+'‚F™‚Æ‚<™‚Æ‚5™‚Ò‚,™‚Ä‚'™‚Ò‚"™‚Ä‚™‚¹‚™‚º‚ ™‚Ä‚™3‚ý™‚»‚ø™‚Ä‚í™5‚虂¼‚㙂Ăؙ0‚Ó™‚½‚Ι‚ĂÙ1‚¾™‚i‚¹™‚Ä‚¯™‚Ä‚¥™‚Ä‚™‚‘‚‰™‚’‚„™‚c™‚}z™‚9u™‚Äi™‚9d™‚Ä^˜•ŒCHANGEDSPECIAL-FORMSLSTQ™‚À9™‚c4™‚}!™‚c™‚}™‚‘™‚ÄF˜“™‚¿™‚À.˜“™‚À™‚ĘŒCommon Lisp special forms˜“™‚Ä™‚Ø“™=™˜“™2˜“™?™‚Ę“™?™‚à ™‚Âœ™‚Ƙ– @g ™‚Æ™˜“˜“˜ŒX™‚f˜•Œ 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™‚Ò ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚형Œ ASSERT-FAIL‚¦™‚éX™‚êS™‚ë/™‚[*™‚\$™‚]™‚^‚™?‚ÿ™?‚ú™‚t‚õ™‚v‚Ι?‚¾™?‚¹™‚t‚´™‚v‚˜™‚ì‚Œ™g‚‡™f{™?v™‚q™‚vl™‚aM˜’Œ$$ENV™%H™‚îC˜’Œ$$TAIL™%>˜ŒPATH6™‚Ù™‚^‚˜“˜“™?™‚͂瘌9Ill-formed short DEFINE-SPECIAL-FORM; ~S is not a symbol.‚ǘ“˜“™?™‚Í‚‘˜“™‚Ù™‚ؘŒ interpret-˜–Xggg ¿ggg ¿ggo ¿oPgg c™‚«™‚Ï™˜“€P™‚¸:™%™™ K™‚cF™‚}0™‚Ý+™‚È ™‚d™‚Ø™‚È ™‚Ò™‚+™‚È@˜”™‚È™'5˜“™‚™‚™‚œ˜’Œexpand-DEFINE-SPECIAL-FORM™%˜–ggg@Ah™‚癘“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚È™‚Ä™‚£˜–&gg ¿ggo ™‚Ï™˜“€ ™ ™‚ú™‚û™‚È™‚療Ș“™‚¶˜Œ 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‚Á™‚ô‚¶™‚ô‚«™‚ô‚ ™‚ô‚•™‚ô‚Š™‚ô™‚ôt™‚ôi™‚ô^™‚ôS™‚ôH™‚ô=™‚ô2™‚ô'™‚ô™‚ô™‚ô™‚ô‚ǘ“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚l‚ÂÄ‚Æ‚È‚¼˜“™™‚ꘓ™ ˜ŒXCL™ ˜ŒXCL‚±˜“™™‚阌 COMPILE-FILE‚¦˜“™‚䙂ݘ“™‚€™‚‚›˜“™‚㙂ݘ“™‚™‚‚˜“™‚♂ݘ“™‚™‚™‚™‚‚…˜“™‚ᙂݘ“™‚€€™‚z˜“™‚à™‚Ý˜“™‚™‚o˜“™‚ß™‚ݘ“™‚˜ŒVALUE™‚d˜“™‚Þ™‚ݘ“™‚™‚™‚Y˜“™‚Ù™‚ИŒIGNOREN˜“™‚Ø™‚Й‚C˜“™‚×™‚Й‚8˜“™‚Ö™‚Й‚-˜“™‚Õ™‚Й‚"˜“™‚Ô™‚Й‚˜“™‚Ó™‚Й‚ ˜“™‚Ò™‚Й‚˜“™‚Ñ™‚Й#š‚ÿÿ