‘XCL Compiler output for source file {DSK}sources>ADVISE.;1 Source file created Wednesday, 16 May 1990, 11:45:00. FASL file created Sunday, 25 January 1998, 8:20:23. ÿ˜–#oggo ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒSYSTEM˜Œ{Null}˜–!ggo¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•Œ ADVISECOMS˜•Œ FILEDATES˜•ŒADVISE˜“ ˜“˜•Œ STRUCTURES˜’ŒADVICE˜‘˜ŒSYSTEM˜“˜•Œ VARIABLES˜•Œ ADVISEDFNS˜’Œ*UNADVISED-FNS*™˜“˜•Œ*˜•Œ;;˜Œ˜“™™ ˜ŒInterlisp entry points.˜“˜•ŒFNS™˜•ŒUNADVISE˜•ŒREADVISE˜“˜•ŒPROP˜•ŒARGNAMES™˜“™™ ˜Œ˜“™™ ˜ŒXCL entry points.˜“˜•Œ FUNCTIONS˜’ŒADVISE-FUNCTION˜‘˜ŒXEROX-COMMON-LISP˜’ŒUNADVISE-FUNCTION™2˜’ŒREADVISE-FUNCTION™2˜“™0˜’ŒUNADVISE-FROM-RESTORE-CALLS™˜’ŒFINISH-ADVISING™˜’ŒFINISH-UNADVISING™˜“™™ ˜Œ˜“™™ ˜ŒThe advice database.˜“™˜’Œ*ADVICE-HASH-TABLE*™˜“™0˜’Œ ADD-ADVICE™˜’Œ DELETE-ADVICE™˜’ŒGET-ADVICE-MIDDLE-MAN™˜’ŒSET-ADVICE-MIDDLE-MAN™˜’ŒINSERT-ADVICE-FORM™˜“˜•ŒSETFS™C˜“™™ ˜Œ˜“™™ ˜Œ Hacking the actual advice forms.˜“™0˜’ŒCREATE-ADVISED-DEFINITION™˜’ŒMAKE-AROUND-BODY™˜“™™ ˜Œ˜“™™ ˜ŒDealing with the File Manager˜“˜•ŒFILEPKGCOMS˜•ŒADVICE™˜“™0˜’ŒREINSTALL-ADVICE™2˜“ ™0˜’Œ ADVICE-GETDEF™˜’Œ ADVICE-PUTDEF™˜’Œ ADVICE-DELDEF™˜’Œ ADVICE-HASDEF™˜’Œ ADVICE-NEWCOM™˜’ŒADVICE-FILE-DEFINITIONS™˜’ŒADVISE-CONTENTS™˜’ŒADVICE-ADDTOCOM™˜“™)˜•ŒPROPTYPE˜•ŒADVISED˜“™™ ˜Œ˜“™™ ˜ŒDealing with old-style advice˜“™0˜•Œ READVISE1˜’ŒADD-OLD-STYLE-ADVICE™˜’ŒCANONICALIZE-ADVICE-SYMBOL™˜’ŒCANONICALIZE-ADVICE-WHEN-SPEC™˜’ŒCANONICALIZE-ADVICE-WHERE-SPEC™˜“˜•ŒDEFINE-TYPES˜’ŒADVISED-FUNCTIONS™2˜“™0˜’Œ DEFADVICE™2˜“™™ ˜ŒtArrange for the proper package. Because of the DEFSTRUCT above, we must have the file dumped in the SYSTEM package.˜“™)˜“˜•ŒMAKEFILE-ENVIRONMENT˜•ŒFILETYPE™˜“˜•ŒDECLARE:˜•Œ DONTEVAL@LOAD˜•ŒDOEVAL@COMPILE˜•ŒDONTCOPY˜•ŒCOMPILERVARS˜“˜•ŒADDVARS˜“˜•ŒNLAMA™'™&˜“˜•ŒNLAML˜“˜•ŒLAMA™˜“˜”˜Œ16-May-90 11:55:52•Œ.{DSK}local>lde>lispcore>sources>ADVISE.;2˜–(gio¿g ¿g ˜ŒDEFSTRUCT ADVICE™˜“€"˜ŒESTABLISH-SETFS-AND-OPTIMIZERS˜ŒESTABLISH-ACCESSORS˜ŒSET-PARSED-STRUCTURE™™™˜“˜ŒPS™˜’ŒMAKE-ADVICE™˜“˜’ŒBEFORE™˜’ŒAFTER™˜’ŒAROUND™˜ŒLIST€€˜ŒADVICE-˜“™‚“€˜ŒDEFAULT-STRUCTURE-PRINTER˜’ŒCOPY-ADVICE™€€˜“˜“™‚”€€˜’Œ ADVICE-BEFORE™˜“™‚•€€˜’ŒADVICE-AFTER™˜“™‚–€€˜’Œ ADVICE-AROUND™€€€€˜“˜ŒACCESSOR˜Œ PREDICATE€€€œ™‚“˜–cgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½l ¾I˜jNH¿K˜kNJ¿M™lNL¿N™‚“‚ÿÿÿÿ™˜“˜“˜Œ&KEY˜ŒBEFORE˜ŒAFTER˜ŒAROUND[˜Œ%SET-NTHO™‚¯D™‚¯9˜Œ MAKE-LIST%™‚¬™‚«™‚ªœ™‚œ˜–-l ¸jH@¿kH@¿lH@¿H™‚œ™˜“˜“˜ŒADVICE%™‚¯™‚¯ ™‚¯™‚°˜–o ¿g X‘Hhc™˜ŒDEFVAR IL:ADVISEDFNS™˜“€˜ŒBOUNDP˜ŒPROCLAIM™˜“˜ŒSPECIAL™˜–o ¿g X‘Hhc™˜ŒDEFVAR *UNADVISED-FNS*™˜“€™‚¸™‚¹™˜“™‚º™œ™˜– ‚Ze@ka¼Hlð•la¹°sHlð™la»la¹°dHlðla»laºla¹°QHlýó²'ggggHgl ¿°%ggggHgl ¿K »J ºL¢±Lo ²!LIgLgKgJ LM¡NM_ O²$OIgOgKgJ °OIgKgJ _¿O–OO¿‚O¾O‘i€h™O _¿M½°“LIgKgJ ˜•ŒX˜’Œ%$$MAP-ELEMENT™˜’Œ%$$MAP-RESULT-TAIL™˜’Œ %$$MAP-RESULT™˜’Œ%$$MAP-FIRST-SUBLIST™˜•ŒFN˜•ŒWHEN˜•ŒWHERE˜•ŒWHAT˜•ŒARGS™‚ÿÿÿÿ™˜“€˜Œ INTERLISP ‚T™3‚8˜ŒLAST‚™3‚™3‚Ã™3‚£˜•ŒSTRING.EQUAL‚™m‚ˆ™l‚˜ŒERROR\™‚Ï‚M˜ŒPRIORITY‚G˜ŒWHEN‚™‚Ð‚™‚Ñ‚ú™‚Ð‚ô™‚Ñ‚ê˜ŒIN‚¼™‚Ð‚¶™‚Ñ‚™‚Òy˜ŒMAXIMUMs˜ŒACTUALn™i˜ŒCALLEEd˜•ŒTOO-MANY-ARGUMENTST˜ŒMINIMUMN™‚ÔI™D™‚Õ?˜•ŒTOO-FEW-ARGUMENTS‚ž˜ŒINœ™&—˜–‚¹@ b²^@oô²W‘i€h›Wkoh-h@H¡IH\Mkoh-»J”JK¿K¹K‘i€h–K ºH¸°ÑW N¢ON\ Okoh-_¿O–OO¿„O_¿O‘i€h™O _¿N¾°Ã ˜•ŒENTRY ™‚Â™‚Ã™‚Ä™‚Å™‚Û™‚Â™‚Ã™‚Ä™‚Å™%™™&™˜“˜“™%™‚Ë‚¬™‚Íi˜•ŒREVERSE\™‚Í˜•ŒNLAMBDA.ARGS˜“™‚á‚ˆ˜–@²@g@@ ˜ŒUNADVISE-ENTRY˜ŒCLOSURE˜“˜“˜ŒENTRY™4™4™‚Ò™‚áB™‚ç™‚á™‚çœ™'—˜–‚¶@ b²[@oô²W‘i€h›Wkoh-h@H¡IH\M »J”JK¿K¹K‘i€h–K ºH¸°ÔW N¢ON\ Okoh-_¿O–OO¿„O_¿O‘i€h™O _¿N¾°Ã ™‚Û ™‚Â™‚Ã™‚Ä™‚Å™‚Û™‚Â™‚Ã™‚Ä™‚Å™%™™'™˜“˜“™%™‚Ë‚©™‚Íf™‚ÞY™‚ÍA™i™‚ß˜“™‚ë‚…˜–@²@g@@ ˜ŒREADVISE-ENTRY™‚ã˜“˜“˜ŒENTRY™5™5™‚Ò™‚ë™‚ð˜–o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™™*˜“˜•ŒWHO™‚Ç™‚È™‚Éœ™3˜–‚´ekó¨lh ¿gµh¸a¸gµ g¹a¹gµ gºaº@‘i€h²J@»h¼h½h¾K¡LK__AgHgIgJ ¾M”MN¿N¼N‘i€h–N ½K»°ÂH‘i€h²MH»h¼h½h¾K¡LK__¿@AgOgIgJ ¾M”MN¿N¼N‘i€h–N ½K»°¿A¢±À@o ŸWo@¿hH²H@ ³*o@H¿°@ ³gg@¿@gHgi ¿H²:@gHh[Wgg\¦K ¿KIJA¿@H @W¦@ ¿@IJA¿@h Wo ¿h˜Œ*ERROR-OUTPUT* ™™3‚ÿÿÿÿ™˜“˜“˜ŒFN-TO-ADVISE˜ŒFORM™‚©™‚Ò™‚Ñ™‚Ð‚¬˜ŒFORMAT‚Ÿ™8‚—™A‚™B‚™8‚y™A‚o™B‚g˜ŒMEMBER‚F˜’ŒUNBREAK-FUNCTION™2‚2™‚Ï‚ ˜•Œ \DEFINEDP‚™‚Ï‚ ˜’Œ HAS-CALLS™‚ü™‚ý‚î˜•ŒUNSAFE.TO.MODIFY‚Ø™‚Í‚Á™3‚…™‚Ín™3˜’ŒARGUMENT-ERROR™‚b˜ŒEQUAL‚]˜ŒTEST‚P™‚Ò‚?˜ŒNO-ERROR‚9™‚Ò‚,˜ŒNAME‚'˜’ŒUNDEFINED-FUNCTION™2‚º™‚Ð‚´™‚Ñ‚™‚Òg™‚Ða™‚Ñ[™‚Ò7˜ŒLAST.™‚Ð%™‚ª™‚Ñ™‚Ò‚§˜Œ!No advice given, so nothing done.‚˜Œ~S is not called from ~S.‚ö˜Œ~S not advised.~%‚é˜Œadviseœ™4˜–‚Lejó§kh ¿gµh¸a¸gµh¹a¹@‘i€h²:@ºh»h¼h½J¡KJ^^gH½L”LM¿M»M‘i€h–M ¼Jº°ÒH‘i€h²;Hºh»h¼h½J¡KJ^¾@gN½L”LM¿M»M‘i€h–M ¼Jº°Ñ@gHgi ¿H²=@gHhZ [²K@H¿JK ¿JhIWoJ¿h@ÁÉg'Z²2@J i¿@g ¿@Wc¿@W c¿@hIWo@¿h™‚ø™ ™™4‚ÿÿÿÿ™˜“˜“˜ŒFN-TO-UNADVISE™‚©™‚Ò™‚‚D™‚ý‚.˜ŒDELETE‚˜ŒREMPROP‚˜•ŒPUTD‚˜•ŒGETD‚ô™‚ý‚à™9‚Ø˜’ŒCHANGE-CALLS™‚Í™C‚¸™‚ÿ‚Ÿ™‚Í‚ˆ™4^™‚ÍG™4™‚ ‚™c‚™c‚Â™‚Ò‚±™‚‚«™‚Ò‚‚™‚ÒA™‚Ò™‚ ™‚Ò‚>˜Œ~S is not advised.~%‚î˜Œ~S is not advised.~%œ™5˜–‚¸ejó§kh ¿gµh¸a¸@‘i€h²:@¹hºh»h¼I¡JI]]gH¼K”KL¿LºL‘i€h–L »I¹°ÒH‘i€h²;H¹hºh»h¼I¡JI]½@gM¼K”KL¿LºL‘i€h–L »I¹°Ñ@gHgi ¿@H ™5‚ÿÿÿÿ™˜“˜“˜ŒFN-TO-READVISE™‚©™‚Ò‚²™8‚ª™4‚‘™‚Íz™5P™‚Í9™5™‚‚£™‚‚™‚Òt™‚Ò3™‚Ò ™‚Òœ™7˜–KnX@B¿noHR ¹I‘i€hŒo ¿°îIA ¿SoI™˜Œ *TERMINAL-IO*™7™˜“˜“˜ŒFROM˜ŒTO˜ŒFNE™‚ý8™9.˜•ŒASSERT-FAIL˜ŒFIND-IF?˜Œ~S unadvised.~%)˜Œ5BUG: Inconsistency in SI::UNADVISE-FROM-RESTORE-CALLS˜–@‘i€h²@HÉð˜@HÉðhh˜Œ%lambda in UNADVISE-FROM-RESTORE-CALLS™‚ã˜“˜“˜ŒENTRY ˜•ŒCOMPILED-CLOSURE˜•Œ \PTRHUNK2œ™8˜–‚6A¢±˜@gAhXUgg¹hºH [‘KŒH@A Zh@@H ¿I@JAg¿HVggc¿HHUggc ¿Hg ¿Hh@UXœ@ÁÉg'°gho@ ¹HI@ i¿@h@I@ ¿H¬@gI¿@Vggc¿@@Uggc ¿@g ¿@h˜Œ*PRINT-CASE*™™™8™˜“˜“˜ŒFN-TO-ADVISE˜ŒIN-FN‚,˜•Œ MARKASCHANGED‚™‚‚™‚‚ö™‚ç™‚‚â˜ŒCOMPILE‚Ý™M‚Ò™‚‚Ì™‚‚Á˜ŒMAKE-SYMBOL‚¼™‚ý‚‘™‚5‚‚™‚m™‚[™‚K™‚F™‚6A™M7™D2˜’ŒCONSTRUCT-MIDDLE-MAN™&™C™‚þ‚'™U‚˜ŒEQ‚™‚‚™‚9‚þ™‚‚ð™c‚˜ŒUPCASE‚¥™c‚Œ™U}™‚x™‚h™‚c™‚V™7™‚™‚™‚Ò‚¶˜ŒOriginal ~Aœ™9˜–@Pggc¿@Qc™™™9™˜“˜“˜ŒADVICE-NAME˜Œ MIDDLE-MAN ™‚™‚™‚˜–,o ¿g X‘Hgg c™?˜ŒDEFVAR *ADVICE-HASH-TABLE*™˜“€$˜ŒMAKE-HASH-TABLE™‚¸™‚¹™‚™‚™?˜“™‚º™?œ™A˜–‚Œ@R X’H„¹Agð²jICBI¿°PAgð²kICBI¿°3Agð²lICBI¿°hgAo¿H‘h@RIh™?™A™˜“˜“˜ŒNAME˜ŒWHEN˜ŒPRIORITY˜ŒFORM ‚†˜ŒPUTHASHw˜•Œ ECASE-FAILc™‚¯^™ED™‚¯?™E'™‚¯"™E ™‚“˜•ŒGETHASHl˜ŒWHENM™‚¬0™‚«™‚ªr˜“™‚ª™‚«™‚¬œ™B˜– @P ™?™B™˜“˜“˜ŒNAME˜ŒREMHASHœ™C˜– @P ™?™C™˜“˜“˜ŒNAME™‚Oœ™D˜– @Q XA™?™D™˜“˜“˜ŒNAME˜Œ MIDDLE-MAN™‚Oœ™E—˜–‚ûnZ@A¿JÉJÉh»noJB b¢±ÉJÉgð“KBJÉgð™BKh JÉ‘i€h‘h€i\‘LJÉo‘h€ioJÉ ¿o¼h½L¹n¾LWBgJÉoJÉKhh ½g‚h¹_gð³#OÃoO ¿ŠOL ¿BKh˜•Œ*CONDITION-HANDLER-BINDINGS*˜’Œ*CATCH-RETURN-PC*™˜’Œ*CATCH-RETURN-TO*™ ™‚a™E ™˜“˜“˜ŒFORM˜ŒPRIORITY˜Œ ENTRY-LIST‚ï˜’ŒCONDITION-CASE-ERROR™‚ã™‚Ï‚¸˜•Œ\MVLIST‚³˜•ŒEDITEz™‚ÏM˜•Œ\NCONC2&˜Œ DELETE-IF‚Ö™‚Ï‚Ì˜ŒNORMAL‚¾™‚n‚˜˜•ŒLCB™‚ 4˜ŒFIRST‚Ü˜Œ8Error from EDITE during insertion of new advice:~% ~A~%‚¢˜“˜•ŒBELOW˜•Œ^‚€˜›˜“˜’ŒCREATE-CONDITION-CASE-LITERALS™˜“˜ŒQUOTE™‚Ïr˜Œ)Malformed priority argument to ADVISE: ~Sg˜“˜•ŒBEFORE˜•ŒAFTER˜–@¹@ºHÉIÌHÉJloh-h˜Œlambda in INSERT-ADVICE-FORM™‚ã˜“˜“˜Œ OLD-ENTRY™‚-™‚.™‚‚˜–‚@¸@Ã“@AðHÃ²(A‘i€h²@Aloh-›@Ab¿b¿°ËhhH3‘i€hA3‘i€h“@AÿhHÃœAÃ“@AðhH ²A —@A hHÃ²AÃ—@A hH ²AA ²7@ YA :²%Iºj»KJýó¡i@K¶AK¶loh-¡hKkÔ»°ãhhH ²SA ²I@ A Ì²8@ ¹A »@ ºj¼LJýó¡iIL¶KL¶loh-¡hLkÔ¼°ãhh@Að[‘K@ YA ð²@I \²5Lºh½i¾J_’O°#]@ MA loh-¢h¾„Jº°×Nhh˜ŒEQUALISH™‚ã˜“˜“˜ŒX˜ŒY‚r˜•ŒFFETCHFIELD‚k™‚‰‚P˜•ŒGETDESCRIPTORS‚G˜•ŒTYPENAME‚@™‚‹‚ ˜ŒARRAY-TOTAL-SIZE‚˜•Œ%FLATTEN-ARRAY‚ÿ™‚‚ö˜ŒARRAY-DIMENSIONS‚ð™‚Ž‚è˜ŒARRAYP‚à™‚‚°˜ŒLENGTH‚©™‚‚¡˜ŒVECTORP‚™™‚‘‚˜•Œ%PATHNAME-EQUALw˜ŒSIMPLE-STRING=o˜ŒSTRINGPg™‚”‚ˆ˜ŒPATHNAME‚€™‚•Z˜•Œ CHARACTERS™‚–˜•ŒLISTP˜•ŒLITATOM™‚™‚y™‚™™‚™‚$™‚™™‚™‚Ë™‚™™‚™$™‚™˜–gg ˜ŒDEFSETF GET-ADVICE-MIDDLE-MAN™˜“€˜ŒSET-SETF-INVERSE™D™Cœ™M˜–‚‘@A X¹HZ»J¼BW ½M¾h_¿h_¿h_¿N£O°(N_¿O_¿O˜OO&_¿ˆOh__¿N¾°Ö¾M_¿h_¿h_¿h_¿O£O°,O_¿O_¿O˜OO&_¿ˆOh__¿O_¿°Ñ_¿M_¿h_¿h_¿h_¿O£O°,O_¿O_¿O˜OO&_¿ˆOh__¿O_¿°Ñ_¿LO _¿IIgð•o€KK²)Io²ggKd3@ð“Kh€Khh‚h€hgggBhhhghgoggNOh hOo hh ™?™M ™˜“˜“˜Œ ADVISED-FN˜Œ FN-TO-CALL˜ŒADVICE-NAME‚‰˜ŒAPPEND‚z™‚£‚j™‚£‚ï™N™‚O™‚j˜’ŒFUNCTION-WRAPPER-INFO™ ‚`˜ŒPROGN‚[˜ŒMULTIPLE-VALUE-LIST‚Q˜’ŒDESTRUCTURING-BIND™2‚K˜ŒBLOCK‚<˜ŒADVISED‚7™‚v‚2˜•Œ\CALLME‚™‚º‚˜ŒDECLARE‚ù˜ŒLAMBDA‚u˜“˜“˜ŒAPPLY˜“™‚v˜ŒVALUES˜•Œ!VALUE˜•Œ !OTHER-VALUES‚V˜”™‚°™‚±‚˜“˜•ŒLAMBDA˜•ŒNLAMBDA‚˜“˜Œ&REST˜’ŒARGLIST™2œ™N˜–noAg@™N™˜“˜“˜ŒCALLING-FORM˜ŒAROUND-FORMS˜ŒREDUCE ˜Œ INITIAL-VALUE˜–2ogA¸gghg@hhhHh˜Œlambda in MAKE-AROUND-BODY™‚ã˜“˜“˜ŒCURRENT-BODY˜ŒNEXT-AROUND-FORM˜ŒSUBST™‚v˜’ŒINNER™2˜ŒMACROLET™˜“™‚È™‚-˜–+ggo¿ggo˜Œ2 top-level forms™˜“€%˜•ŒPUTDEF™‚Ï™T™™T™U ˜“˜“˜•ŒCOM˜•ŒMACRO˜“™‚Á˜“˜•ŒP™˜“™^˜“™‚v™‚Á˜•ŒCONTENTS™_˜•ŒADD™`˜“˜“™‚Ð™‚Ñ˜“™‚Á˜“™‚Ò™˜“™^˜“™‚v™‚Á€™‚×˜•ŒNILL™‚Ø™`˜“ ˜ŒTYPE˜•ŒDESCRIPTION˜Œadvice˜•ŒNEWCOM™]˜•ŒGETDEF™Y˜•ŒDELDEF™[™‚Ï™Z˜•ŒHASDEF™\œ™W˜–‚ ejó§kh ¿gµh¸a¸gµh¹a¹gµhºaºH»K¡°K\\½L¾@gMN¿K»°áI»K¡°K\\½L¾@gMN¿K»°áJ»K¡hK\\½L¾@gMN¿K»°á™W‚ÿÿÿÿ™˜“˜“˜ŒNAME™‚©™‚ª™‚«™‚¬‚•™Ar™AO™A™‚‚Ž™‚¬k™‚«H™‚ª)™‚¬™‚« ™‚ªœ™Y˜–‚©@V X¢±œH¹hºh»h¼I¢J°$I]½gM ¼J”KL&»„Lh[ºI¹°ÛH¹hºh»h¼I¢J°$I]½gM ¼J”KL&»„Lh[ºI¹°ÛH¹hºh»h¼I¢J°$I]½gM ¼J”KL&»„Lh[ºI¹°Ûh™?™Y™˜“˜“˜ŒNAME˜ŒTYPE˜ŒOPTIONS‚¡™‚£‚‰˜Œ COPY-TREEW™‚ô&™‚ô™‚O‚ƒ™‚¬Q™‚« ™‚ªœ™Z˜–‚žB¸h¹hºh»H¢I°8H\\ L L h»I”JK&º„KhZ¹H¸°Ç¸@W Y‘I@Wh¹jIHºh»h¼h½h¾J_’O° ^gð N½L”LM&¼„Mh\»Jº°ÚK¾h½h¼h»N¢M°NºJ»M”LK&¼„Kh\½N¾°æ¿kIH¾h½h¼h»hºN_’O° Zgð J»L”LK&¼„Kh\½N¾°ÚMºh»h¼h½J¢K°J¾N½K”LM&¼„Mh\»Jº°æ¿lIHºh»h¼h½h¾J_’O° ^gð N½L”LM&¼„Mh\»Jº°ÚK¾h½h¼h»N¢M°NºJ»M”LK&¼„Kh\½N¾°æ¿@‘i€h²@g@@ ™?™Z™˜“˜“˜ŒNAME˜ŒTYPE˜Œ DEFINITION‚˜™5‚‘™5‚x™‚¯‚™‚¯‚»™‚¯\™‚MU™‚“H™‚O)™‚ô ™m™‚ô™l‚ˆ™‚Ò‚9™‚¬‚Ú™‚«|™‚ªœ™[˜–J@Pgg²0@‘i€h²@g@¿†@ ¿Qo@¿@R ™™‚™?™[™˜“˜“˜ŒNAME˜ŒTYPED™‚V<™‚ý/™4'™4 ™‚þ™‚Ò™‚™‚6˜Œ ~S unadvised.œ™\˜–@Q —@¸@‘Hih™?™\™˜“˜“˜ŒNAME˜ŒTYPE˜ŒSOURCE™‚Oœ™]˜–@gBC™]™˜“˜“˜ŒNAME˜ŒTYPE˜ŒLISTNAME˜ŒFILE ˜•ŒDEFAULTMAKENEWCOM™œ™^˜–‚%h¸@¹hºh»h¼I£J±ÿI]]‘i€h²*Mgð™lM ÿ€hoM ¿°ÝM°.M ¾MÁÉg'_²NO ¿Mg ¿N_W ¾N‘i€hŽoO ¿°ìOH¸ggOhN²ggNhh€hN²ggNhh€hN²ggNhh€h¼J”KL&»„Lh[ºI¹±ÿAžgH h€h ™?™^™˜“˜“˜ŒNAMES˜Œ READVISE? ‚™‚£‚˜ŒREVERSE‚ó™‚£‚‰™‚$t™‚Oi™‚]™jE™k9™‚$)™‚‚™'‚â™‚v‚Ý™‚¬‚Ç™‚v‚Â™‚«‚®™‚v‚©™‚ª‚›™‚v‚–™Wd˜•ŒREADVICEP™‚™‚Ò‚‚˜ŒCan't find advice for ~S3˜Œ&~S should be of the form (FOO :IN BAR)œ™_˜–iBgð²_A²YAið–@‘ihAd3@ðX’H°A lÿY‘IˆAgð²A@gg‘ihA@gg@h™_™˜“˜“˜ŒCOM˜ŒNAME˜ŒTYPE^˜ŒINTERSECTIONG™‚þ#™‚Y™‚T™‚B™‚=™‚2™‚Ò™Uœ™`˜–*Bgð² @gðX‘H„C‘i€h™@AChhh™`™˜“˜“˜ŒCOM˜ŒNAME˜ŒTYPE˜ŒNEAR ˜•Œ ADDTOCOM1™™U˜–o ˜Œ1 top-level form™˜“€™‚ó˜“™c™b˜ŒIGNOREœ™i—˜–_@²)@o o@ ¿°å@koh-@ ¸@ÁÉg'Y²HI ¿@g ¿Hkoh-™i™˜“˜“˜ŒFNO™‚C™j-™k™‚$ ™‚ÎJ™‚8™‚˜Œ(~S should be in the form (FOO IN BAR).~%˜ŒIN™‚2W˜–@²@g@@ ˜ŒREADVISE-ENTRY™‚ã˜“˜“˜ŒENTRY™5™5™‚Ò™‚2$™‚7œ™j˜–I@Vgg¦@ ¿A¸H¡hHYYºI[¼K½@J L M¿H¸°Ö™™j™˜“˜“˜ŒNAME˜Œ OLD-ADVICE>™A8™m2™l™B ™‚þ™‚™‚œ™k˜–0o@ X²!@kHkÕg@HlÔhh@™k™˜“˜“˜ŒSYMBOL$˜•ŒSUBATOM™‚@˜•ŒSTRPOS™‚Ò˜Œ-IN-œ™l˜–@²@ o g™l™˜“˜“˜ŒSPEC˜ŒINTERN˜ŒSTRING™‚ª ˜ŒKEYWORDœ™m˜–v@‘h€iX’H°,@gðY’I° @gðZ’J°@gð[‘K†@gð•g@gðX’H°@gðY‘I†@gð•g@‘i€h‘@o@ ™m™˜“˜“˜ŒSPECp™‚Ï [™‚pT™‚pI˜•ŒFIRST=˜•ŒTOP6™‚ /™‚ $˜•ŒEND˜•ŒBOTTOM™‚Íj˜Œ)Illegal WHERE specification to ADVISE: ~S˜–‚"ggo¿oRggc¿oSggc¿o ¿g X¦h¿g` ³0g`gggl2gl2 ¿Q¸gQ‘H†gHc¿ggg¿ggg¿ggg¿ggg¿ggg˜•ŒFILEPKGTYPES˜•ŒPRETTYDEFMACROS˜•Œ PRETTYTYPELST˜Œ)XCL:DEF-DEFINE-TYPE XCL:ADVISED-FUNCTIONS™˜“€ ‚™‚™‚ò™‚Ý™‚È™‚™‚M‚˜™‚Dn™‚OV™‚¸K™‚¹>˜ŒADJOIN&™‚Y˜•ŒSET-DOCUMENTATION!‚™‚ß‚˜•ŒFILEPKGCONTENTS‚ ™p‚˜’Œ%DEFINE-TYPE-FILEGETDEF™2‚ý˜•Œ FILEGETDEF‚ø™p‚í˜’Œ%DEFINE-TYPE-PUTDEF™2‚è™‚Ï‚ã™p‚Ø˜’Œ%DEFINE-TYPE-DELDEF™2‚Ó™‚æ‚Î™p‚Ã˜’Œ%DEFINE-TYPE-GETDEF™2‚¾™‚å‚¹™p‚¯™p‚¥™p‚˜ŒREHASH-SIZE‚‰˜ŒSIZE‚„™‚™‚z˜’Œ*DEFINITION-HASH-TABLE*™2u™pi™‚cd™p^˜’ŒCHANGEDADVISED-FUNCTIONSLST™2Q™‚d9™‚4™‚!™‚™‚™o™pF˜“˜’ŒGLOBAL™2™‚d.˜“™‚d™p˜ŒAdvised function definitions˜“™p˜’ŒX™2˜“™‚Ò™˜“˜’Œ%DEFINE-TYPE-FILE-DEFINITIONS™2˜“™‚v™p˜“™‚v™‚i™‚g˜–Gggg¿gggÁÉg'¸gH‘H†gH˜ŒXCL:DEFDEFINER XCL:DEFADVICE™˜“€A™™ :™r0™r)˜Œ DEFINED-BY ™p™‚s™p™p˜ŒDEFINER-FOR™rœ˜’Œdefinition-expander-DEFADVICE™2˜–‚ð@X¹ghºh»I¼h½L‘L‚±Ö]¾M__¿O__¿h_¿gO _“O€h_¿gO _“O€h_¿gO _“O€h_¿Oo ¿ggNhgOhO²ggOhh€hOšgOh€hOšgOh€h¾J”KN&»„Nh[ºL¼±ÿ)J™‚v™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚Ò™‚£~˜•ŒKEYWORD-TESTg˜•ŒFIND-KEYWORDP™‚|9™‚|‚Æ™‚Ð‚·™‚Ñ‚¥™‚v‚ ™‚Ò‚’™‚v‚‰™‚v‚„™3`™‚ÐI™‚Ñ2™‚Ò™‚¥y˜“™‚Ð™‚Ñ™‚Ò˜–+ggg¿ggg™‚q™˜“€%™™ ˜ŒSECOND˜ŒDEFINITION-NAME™r™‚v˜ŒDEFINITION-EXPANDER™rœ˜’Œprototype-fn-DEFADVICE™2˜–g@o™‚„™˜“˜“˜ŒNAME™r˜“˜Œadvice˜–Cggg¿ggo¿oPggc˜•ŒPRETTYPRINTMACROS™‚q™˜“€;™‚Y%™˜’ŒADD-PROTOTYPE-FN™26™‚1™‚˜ŒDEFINITION-PRINT-TEMPLATE™r™‚„™r™p+˜”™r’ŒPPRINT-DEFINER™2 ˜“™‚˜ŒBODYœ˜’Œexpand-DEFADVICE™2˜–ggg@Ah™‚“™˜“˜“˜Œ$$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™r™p˜’ŒDEFINER™2˜–&gg ¿ggo™‚q™˜“€ ™˜•ŒSETF-MACRO-FUNCTION™*™r™‚“™r˜“˜Œ&WHOLE˜ŒXCL::DEFINITION˜Œ&ENVIRONMENT˜ŒXCL::ENV˜–"o ¿o ¿o ˜Œ3 top-level forms™˜“€™‚ó™‚ó™‚ó˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚º‚À‚Â‚Ã‚Ä‚Æ˜“™™w˜ŒCOMPILE-FILE˜“™™v˜“™ ˜ŒXCL™˜ŒSYSTEMš‚¯ÿÿ