‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>CLOS>CURRENT>clos-env.lisp;1 Source file created Monday, 30 September 1991, 23:52:25. FASL file created Friday, 4 December 2020, 19:58:04. ÿ˜– o ˜Œ1 top-level form˜ŒFUNCTION˜“€˜Œ IN-PACKAGE˜ŒCLOS˜–Po ¿gg ˜Œ *TERMINAL-IO*˜Œ2 top-level forms™˜“€˜•ŒDEFPRINT˜ŒFORMAT˜•Œ PRINT-CLOSURE ˜•ŒCOMPILED-CLOSURE˜ŒV~&;CLOS-ENV Copyright (c) 1991 by ~ Venue Corporation. All rights reserved.~%œ™ ˜–inX@¿HɹHÉÚjIÊð‘h‚i€h²™‚Ï‚)™‚Ï‚™‚ ‚þ™‚Ï‚Í™‚Ï‚¸™‚Ï‚£™‚Ï‚Ž™‚Ï‚y™‚Ï‚d™‚Ï‚9˜ŒPUTHASH‚4˜ŒMAKE-HASH-TABLE‚ ™?‚ò˜ŒBOUNDP‚瘌PROCLAIM‚Ú™‚‚™‚‚¬™f‚—™‚ª‚†™‚ª‚t™‚Ï‚c™‚ЂS™‚ ‚H™1‚6™‚¬‚*™‚¬‚™3‚™3‚™‚±‚ø™‚Œ‚虂ςÓ™‚ЂÙ‚ ‚«™‚‚”™‚Ï‚™‚Ï‚j™‚Ï‚U™‚ ‚?™‚Ï‚™‚Ï‚ù™‚Ï‚䙂ςÏ™‚Ï‚º™‚Ï‚¥™‚Ï‚z™‚‚u™‚‚K™?‚3™‚‚(™‚‚™‚‚™‚‚í™f‚Ø™‚ª‚Ç™‚ª‚µ™‚Ï‚¤™‚Ђ”™‚ ‚‰™1‚w™‚¬‚k™‚¬‚^™3‚R™3‚G™‚±‚3™‚Œ‚"™3‚™‚Ï‚™‚Ђò™‚ ‚Ú™‚‚Ù‚Ï‚®™‚Ï‚}™‚ ‚g™‚Ï‚R™‚ ‚<™‚Ï‚'™‚ ‚™‚Ï‚à™‚Ï‚Ë™‚Ï‚¶™‚Ï‚¡™‚Ï‚Œ™‚Ï‚w™‚Ï‚L™‚‚G™‚‚™?‚™‚‚ú™‚‚홂‚Õ™‚‚¿™f‚ª™‚ª‚™™‚ª‚‡™‚Ïv™‚Ðf™‚ [™1I™‚¬=™‚¬0™3$™3™‚± ™‚Œ‚ï‚ #™‚ì‚ ™‚Œ‚ ™‚Þ‚ ˜•ŒEDITDEF‚ ™C‚ù˜•ŒCONTENTS‚ô˜’ŒCLASSES™‚䙂тߘ’ŒDEFCLASS™‚Ô˜’Œexpand-DEFCLASS™‚Ï™‚‚¹™‚‚¬˜ŒEQUAL‚§˜ŒTEST‚˜ŒDEFINITION-PRINT-TEMPLATE‚‹™‚‚~˜’Œundefiner-fn-DEFCLASS™‚t™‚‚m˜Œ UNDEFINERS‚d™‚‚_™‚‚Z™‚‚D™‚‚9˜ŒSECOND‚4˜ŒDEFINITION-NAME‚/™‚‚$˜’Œdefinition-expander-DEFCLASS™‚˜ŒDEFINITION-EXPANDER‚™‚‚™‚‚÷™‚‚홂‚昌 DEFINED-BY‚Ý™‚‚Ø™‚!‚Ó™‚‚È™‚‚ØŒ DEFINER-FOR‚¾™‚‚³˜•ŒNILL‚®˜•ŒFILEPKGCONTENTS‚©™‚‚ž˜’Œ%DEFINE-TYPE-FILEGETDEF™A‚™˜•Œ FILEGETDEF‚”™‚‚‰˜’Œ%DEFINE-TYPE-PUTDEF™A‚„˜•ŒPUTDEF‚™‚‚t˜’Œ%DEFINE-TYPE-DELDEF™A‚o˜•ŒDELDEF‚j™‚‚_˜’Œ%DEFINE-TYPE-GETDEF™A‚Z™‚ò‚U™‚‚K™‚‚A™‚‚,˜Œ REHASH-SIZE‚%˜ŒSIZE‚ ™‚‚™‚‚™B‚™‚‚™B‚™‚‚ú˜’ŒCHANGEDCLASSESLST™‚홂.‚Õ™‚‚Й‚‚½™‚‚¸™‚‚¢˜•Œ DEFINE-TYPES‚™‚‚’™‚‚™‚‚n™‚º‚i™‚‚^˜’ŒDEFCLASS old expander™‚Y˜’ŒDEFCLASS old definition™‚<™‚0‚1™‚‚%™‚‚™‚1‚ ™‚‚™‚‚ó™‚ ‚‚Þ™‚Ñ‚Ù˜’Œ DEFGENERIC™‚Θ’Œexpand-DEFGENERIC™‚É™‚2‚³™‚3‚¦™‚‚¡™‚‚Š™‚‚…™‚2‚z™‚‚u™‚‚p™‚2‚e˜’Œdefinition-expander-DEFGENERIC™‚`™‚ ‚[™‚2‚E™‚4‚8™‚2‚.™‚2‚'™‚!‚˜’ŒGENERIC-FUNCTIONS™‚™‚!‚™‚5‚ ™‚5‚™‚"‚ÿ™‚2‚ô™‚#‚$‚Ꙃ5‚ß™‚%‚Ú™‚&‚Õ™‚5‚Ê™‚'‚Å™‚(‚À™‚5‚µ™‚)‚°™‚*‚«™‚5‚ ™‚+‚›™‚ò‚–™‚5‚Œ™‚5‚‚™‚5‚m™‚,‚f™‚-‚a™‚‚\™‚‚W™B‚R™‚5‚F™B‚A™‚5‚;˜’ŒCHANGEDGENERIC-FUNCTIONSLST™‚.™‚6‚™‚‚™‚‚þ™‚‚ù™‚‚㙂/‚Þ™‚5‚Ó™‚2‚™‚2‚¯™‚º‚ª™‚2‚Ÿ˜’ŒDEFGENERIC old expander™‚š˜’ŒDEFGENERIC old definition™‚}™‚7‚r™‚2‚f™‚2‚Y™‚8‚M™‚2‚B™‚2‚.™‚ ‚)™‚5‚™‚2‚ ™‚Ñ‚˜’Œ DEFMETHOD™‚ý˜’Œexpand-DEFMETHOD™‚ø™‚9‚♂:‚Õ™‚‚Й‚‚¹™‚‚´™‚9‚§˜’Œundefiner-fn-DEFMETHOD™‚™‚;‚–™‚‚™‚9‚ˆ™‚‚ƒ™‚9‚m™‚;‚b˜’Œname-fn-DEFMETHOD™‚]™‚‚X™‚9‚B™‚<‚7˜’Œdefinition-expander-DEFMETHOD™‚2™‚ ‚-™‚9‚™‚=‚ ™‚9‚™‚9‚ù™‚!‚ð™C‚뙂!‚æ™C‚Û™C‚Ö™‚"‚Ñ™‚9‚Æ™‚#‚Á™‚$‚¼™C‚±™‚%‚¬™‚&‚§™C‚œ™‚'‚—™‚(‚’™C‚‡™‚)‚‚™‚*‚}™C‚r™‚+‚m™‚ò‚h™C‚^™C‚T™C‚?™‚,‚8™‚-‚3™‚‚.™‚‚)™B‚$™C‚™B‚™C‚ ˜’ŒCHANGEDMETHODSLST™‚™‚>‚虂‚㙂‚Й‚‚Ë™‚‚µ™‚/‚°™C‚¥™‚9‚”™‚9‚™‚º|™‚9q˜’ŒDEFMETHOD old expander™l˜’ŒDEFMETHOD old definition™O™‚?D™‚98™‚9+™‚@™‚9™‚9™‚ ™C'‚ b˜ŒCLOS‚ /˜”˜“˜•ŒFUNCTION˜’Œ CLOS-OBJECT-P™’Œ\INTERNAL-INSPECT-OBJECT™‚ ˜–Bo’@h˜Œlambda in INITIALIZE-CLOS-ENV™˜“˜“˜ŒCOM˜ŒNAME˜ŒTYPE™˜ŒREASON˜“˜•ŒTYPES™‚‚阓˜Œ&WHOLE˜ŒXCL::DEFINITION˜Œ &ENVIRONMENT˜ŒXCL::ENV‚˜–ggg@Ah˜Œlambda in INITIALIZE-CLOS-ENV™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚™‚˜’ŒDEFINER™A‚ ˜”™‚’ŒPPRINT-DEFINER™A‚•˜“˜ŒBODY‚M˜–@i —h@ h˜Œlambda in INITIALIZE-CLOS-ENV™˜“˜“˜ŒNAME ˜’ŒSETF CLOS FIND-CLASS™˜’Œ FIND-CLASS™‚ ˜–@¸gH ˜Œlambda in INITIALIZE-CLOS-ENV™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™o™‚1‚☓˜’ŒGLOBAL™A™‚.‚ʘ“™‚.™‚˜Œclass definitions‚²˜“™‚˜’ŒX™A˜“˜•ŒP˜•Œ*˜“˜’Œ%DEFINE-TYPE-FILE-DEFINITIONS™A˜“™‚™‚˜“™‚™‚p‚§™‚n‚™‚É‚|™‚¸‚㘓™‚P˜ŒXCL::DEFINITION™‚R˜ŒXCL::ENV‚¼˜–ggg@Ah˜Œlambda in INITIALIZE-CLOS-ENV™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚2™‚5™‚Z‚š˜”™‚2’ŒPPRINT-DEFINER™A‚˜“™‚]‚N˜–@¸gH ˜Œlambda in INITIALIZE-CLOS-ENV™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™o™‚8‚#˜“™‚l™‚6‚ ˜“™‚6™‚5˜Œgeneric-function definitions‚󘓙‚5™‚p˜“™‚q™‚r˜“™‚s˜“™‚™‚5™‚u‚虂‹‚Ι‚É‚½™‚¸‚˜“™‚P˜ŒXCL::DEFINITION™‚R˜ŒXCL::ENV‚똖ggg@Ah˜Œlambda in INITIALIZE-CLOS-ENV™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚9™C™‚Z‚ɘ”™‚9’ŒPPRINT-DEFINER™A‚¾˜“™‚]‚v˜–n@ X¹HZ»J¼I ]²BMKL¾h_¿h_¿h_¿N£O°&N _¿O˜OO&_¿ˆOh__¿N¾°Ø €h^—MN h˜Œlambda in INITIALIZE-CLOS-ENV ™˜“˜“˜Œ METHOD-NAMEf˜’Œ REMOVE-METHOD™[˜’Œ GET-METHOD™9™‚d™-™#™z‚K˜–'@ X¹HZ»J¼IKL ˜Œlambda in INITIALIZE-CLOS-ENV™˜“˜“˜ŒFORM!™O˜’Œ$SPECIALIZED-LAMBDA-LIST-SPECIALIZERS™™#˜’ŒPARSE-DEFMETHOD™‚ ˜–@¸gH ˜Œlambda in INITIALIZE-CLOS-ENV™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™o™‚@‚õ˜“™‚l™‚>‚ݘ“™‚>™C˜Œmethods‚Ř“™C™‚p˜“™‚q™‚r˜“™‚s˜“™‚™C™‚u‚º™‚±‚ ™‚É‚™‚¸ ‚þ™ ‚¾™ ‚I™ ‚ ™ ‚¸™ ‚J™ ‚ç™ ‚r™ ‚G™ ‚™ ˜–ggo ˜ŒDEFUN INITIALIZE-CLOS-ENV™˜“€™f™g™‚ ˜Œ&Initialize the Medley CLOS environment˜–˜Œ1 top-level form™˜“€™‚œ™‚C˜–!@ÃX‘H@¹@ÚjIÊð‘hih™‚C™˜“˜“˜ŒX™ ˜’Œ STD-INSTANCE™˜–ggo ˜ŒDEFUN CLOS-OBJECT-P™˜“€™f™g™‚C ˜ŒIs the datum a CLOS object?œ˜’Œ\INTERNAL-INSPECT-OBJECT™˜– @AB ™‚È™˜“˜“˜ŒX˜ŒTYPE˜ŒWHERE˜’ŒINSPECT-OBJECT™œ˜’Œ\INTERNAL-INSPECT-SLOT-NAMES™˜–@ ™‚Й˜“˜“˜ŒX˜’ŒINSPECT-SLOT-NAMES™œ˜’Œ\INTERNAL-INSPECT-SLOT-VALUE™˜– @A ™‚Ö™˜“˜“˜ŒX˜Œ SLOT-NAME˜’ŒINSPECT-SLOT-VALUE™œ˜’Œ!\INTERNAL-INSPECT-SETF-SLOT-VALUE™˜– @AB ™‚Ý™˜“˜“˜ŒX˜Œ SLOT-NAME˜ŒVALUE˜’ŒINSPECT-SETF-SLOT-VALUE™œ˜’Œ#\INTERNAL-INSPECT-SLOT-NAME-COMMAND™˜– @AB ™‚噘“˜“˜Œ SLOT-NAME˜ŒX˜ŒWINDOW˜’ŒINSPECT-SLOT-NAME-COMMAND™œ˜’Œ\INTERNAL-INSPECT-TITLE™˜– @A ™‚환“˜“˜ŒX˜ŒY˜’Œ INSPECT-TITLE™˜–‚ogghiiihoohhno ¿gghihoohhno ¿gghiihohhhno ¿gghiiihoohhno ¿gghiiihoohhno ¿gghiihoohhno ¿gghgihohhhno ¿o ¿o¸h¹H‘HhYgi ¿H¸°é˜Œ9 top-level forms™˜“€ ‚d™‚Ï‚H˜•Œ FILESLOAD‚=˜’ŒLOAD-DEFMETHOD™‚™‚÷‚ᙂ÷‚±™‚÷‚™‚÷W™‚÷+™‚÷‚^˜’ŒUNINTERESTINGP™A‚ ˜’ŒSTANDARD-CLASS™‚™‚ò‚˜’ŒSTANDARD-METHOD™‚왂ò‚療ú‚¼™‚ë‚·™‚ú‚Œ™‚ょ™‚úb™‚Û]™‚ú6™‚Ô1™‚ú™‚Ι‚ú‚N˜“™˜•Œ*ENV*˜ŒEVALHOOK˜’ŒNOHOOK™A˜’ŒUNDOHOOK™A˜’Œ EXECA0001™A˜’ŒEXECA0001A0002™A˜’Œinterpret-UNDOABLY™A˜Œ interpret-IF˜Œinterpret-FLET˜Œ interpret-LET˜Œinterpret-LETA0001˜Œinterpret-BLOCK˜Œinterpret-BLOCKA0001˜•ŒDO-EVENT˜•Œ EVAL-INPUT˜ŒAPPLY‚C˜“˜’ŒCLOS-ENV-INTERNAL™‚5˜–ho@ ˜Œlambda in 9 top-level forms™˜“˜“˜ŒX˜ŒWINDOW ™ ™Y˜ŒInspecting the class ~A‚)˜“˜’ŒX™˜’ŒWINDOW™‚˜–ho@ ˜Œlambda in 9 top-level forms™˜“˜“˜ŒX˜ŒWINDOW™ ™Y˜’ŒCLASS-OF™˜ŒInspecting a ~A‚ü˜Œ6Return the title to use in an inspect window viewing x‚÷˜“™‚™‚‚Ù˜– ‚nZ@AB¿WÓW°E`[¼Ko¿L[¼Kg ¿L[¼Kg¿L»jjnÿnÿh¼K½KL ¿Mc \g𢱒h»`WN¹n`_¿JÉJÉ Jý¿hJý¿h½JÉl ] ¿ii ¿W! nokoJ-¿M ¿JÉJÉJÉ h»g‚h¹gð‘Khh ˜’Œ *RESETFORMS*™ ˜•Œ RESETSTATE ˜•Œ LISPXHIST˜’Œ*CATCH-RETURN-PC*™˜’Œ *NLSETQFLAG*™˜•Œ*PROCEED-CASES*˜’Œ*CATCH-RETURN-TO*™ ˜•ŒSetPropertyMenu ™‚'™‚$˜Œlambda in 9 top-level forms ™˜“˜“˜Œ SLOT-NAME˜ŒX˜ŒWINDOW‚ߘ•ŒINSPECTW.REPLACE‚И•ŒCLOSEW‚¯˜•ŒCLEARBUF‚§˜•ŒTTYDISPLAYSTREAM‚¡˜•ŒGETPROMPTWINDOW‚Š˜•ŒITEMOFPROPERTYVALUE_™‚Š‚ó˜ŒNORMAL‚療6q˜’ŒNLSETQ-PROCEED-CASE™e˜ŒSET=™‚1™‚Ž™‚‘™‚Š‚Ƙ–‚ÊgHÉHÉhHÉHÉ hRc¿g hhRc¿gll hhRc¿oi ¿HÉi ¿oi ¿HÉi ¿i ¿oi ¿i ¿oi ¿ii g Hý¿ii ¹j@¿I™‚"™™˜“˜“˜ŒG1906‚¾™‚2‚²˜•ŒLISPX‚¨˜•Œ LISPXREAD‚ ˜•ŒPRIN1‚”˜•ŒTERPRI‚™‚>‚™‚?z™‚>p™‚>d™‚>Z™‚>E˜•Œ PRINTLEVEL-˜•Œ TTY.PROCESS(˜•Œ THIS.PROCESS˜•Œ\ITEMW.FLIPITEM‚­˜Œ><™‚@#™‚A™‚C‚š˜Œ> ‚‡˜Œ&The expression read will be EVALuated.j˜Œ for T˜ŒEnter the new ‚¾˜–™&™˜“€˜’Œ RESETUNWIND™%˜“˜“™‚8˜“™‚™‚8˜Œ Allows a new value to be entered‚º™ ˜•Œ \PTRHUNK5‚ΘŒQAllows the user to select a menu item to change a slot value in an inspect window‚ɘ“˜’Œ SLOT-NAME™™‚™‚‚©˜–#g@A@A h ¿@AB ˜Œlambda in 9 top-level forms™˜“˜“˜ŒX˜Œ SLOT-NAME˜ŒVALUE˜’ŒSET-SLOT-VALUE™˜•ŒUNDOSAVE ˜’Œ SLOT-VALUE™™‚ã‚ž˜Œ0Used by the inspector to set the value fo a slot‚™˜“™‚™‚T˜’ŒVALUE™y˜–&@A ²@A —@A oo˜Œlambda in 9 top-level forms™˜“˜“˜ŒX˜Œ SLOT-NAME™‚^ ˜’Œ SLOT-BOUNDP™˜’Œ SLOT-EXISTS-P™ ˜Œ** no such slot **˜Œ** slot not bound **m˜“™‚™‚TO˜–7@ @ ¸h¹hºh»H¡IH\g »I”JK&º„KhZ¹H¸°ß˜Œlambda in 9 top-level forms™˜“˜“˜ŒX ™‚^˜’ŒSLOTS-TO-INSPECT™™‚˜’ŒNAME™D˜ŒSReturn a list of names of slots of the object that should be shown in the inspector?˜“™‚#˜–1@gggghhghBno ˜Œlambda in 9 top-level forms™˜“˜“˜ŒX˜ŒTYPE˜ŒWHERE+˜•ŒINSPECTW.CREATE™‚í™‚å ™‚Ý™‚Ö™‚Ð#˜–@˜Œ%lambda in lambda in 9 top-level forms™˜“˜“˜ŒN˜ŒV™ ˜Œ%Open an insect window on the object x˜“™‚˜ŒTYPE˜’ŒWHERE™‚1™ ‚™ ‚Õ™ ‚¥™ u™ K™ ™ œ˜’ŒINTERESTING-FRAME-P™A˜–‚é@–@ €@X¹Hâ±¼Hgð‘hHgð²&@ kó‘h€iZ‘Jl@h gð‘hiHgð²&@ kó‘h€iZ‘Jl@h gð‘hiHgð²!@ ló‘h€iZ‘Jl@h ‘hiHÁÉg'‘hH l\ð‘hHSZ‘J†Hgð‘AiIÃHZgð‘ihh˜•ŒOPENFNS™‚Š™˜“˜“˜ŒPOS™˜Œ INTERPFLG‚´˜•ŒCHCON1‚›˜•ŒSTKARG‚‡˜•ŒSTKNARGSm™‚‘Z™‚’@™‚‘-™‚’˜•ŒSTKNAME ‚ܘŒBROKEN‚Ó˜•ŒLISTP‚ǘŒFUNCALL‚ª™‚ø~˜•ŒAPPLYr˜’ŒINTERNAL™AQ˜•ŒEVALE˜•ŒINTERNAL$˜•ŒERRORSET™‚û˜•ŒLITATOM˜–ggo ˜ŒDEFUN XCL::INTERESTING-FRAME-P™˜“€™f™g™‚Š ˜ŒBReturn TRUE iff the frame should be visible for a short backtrace.˜–gc¿o ˜•Œ*SHORT-BACKTRACE-FILTER*˜Œ2 top-level forms™˜“€™™‚Š ˜ŒIL˜–(gio ¿g ¿g ˜ŒCL:DEFSTRUCT FRAME-PROP-NAME™˜“€"˜ŒESTABLISH-SETFS-AND-OPTIMIZERS˜ŒESTABLISH-ACCESSORS ˜ŒSET-PARSED-STRUCTURE˜•ŒFRAME-PROP-NAME™‚¬™‚¬˜“˜ŒPS™‚¬˜•ŒMAKE-FRAME-PROP-NAME˜“˜•ŒLABEL-FN˜•ŒVALUE-FN˜•ŒSETF-FN˜•Œ INSPECT-FN˜•ŒDATA˜ŒLIST€€˜ŒFRAME-PROP-NAME-˜“™‚®€˜ŒDEFAULT-STRUCTURE-PRINTER˜•ŒCOPY-FRAME-PROP-NAME€€˜“˜“™‚¯˜“™‚™‚#€˜•ŒFRAME-PROP-NAME-LABEL-FN˜“™‚°˜“™‚B˜“˜•ŒLAMBDA˜“˜•Œ PROP-NAME˜•Œ FRAMESPEC˜“˜•ŒFRAME-PROP-NAME-DATA™‚¾€˜•ŒFRAME-PROP-NAME-VALUE-FN˜“™‚±˜“™‚™‚#€˜•ŒFRAME-PROP-NAME-SETF-FN˜“™‚²˜“™‚B˜“™‚½˜“˜•ŒVALUE™‚¾™‚¿˜•ŒWINDOW˜“˜•ŒDEFAULT.INSPECTW.VALUECOMMANDFN™‚Ê™‚¾˜“˜ŒCAR™‚¿™‚Ë€˜•ŒFRAME-PROP-NAME-INSPECT-FN˜“™‚³€€™‚Á€€€€˜“˜ŒACCESSOR˜Œ PREDICATE€€€œ™‚®˜–‚£gµ g¸a¸gµno¹a¹gµ gºaºgµno»a»gµh¼h½ƒa¼i½l ¾jNH ¿kNI ¿lNJ ¿lNK ¿M™lNL ¿N™‚®‚ÿÿÿÿ™˜“˜“˜Œ&KEY˜ŒLABEL-FN˜ŒVALUE-FN˜ŒSETF-FN˜Œ INSPECT-FN˜ŒDATA‚›˜Œ%SET-NTH‚™‚ä‚…™‚ä{™‚är™‚äi™TU™‚á=™‚à4™‚#+™‚ß™‚Þ ™‚#™‚ÝJ˜– @ABC ˜Œlambda in MAKE-FRAME-PROP-NAME™˜“˜“™˜ŒVALUE˜Œ PROP-NAME˜Œ FRAMESPEC˜ŒWINDOW˜Œ INTERLISP™‚Í ˜–@˜Œlambda in MAKE-FRAME-PROP-NAME™˜“˜“™˜Œ PROP-NAME˜Œ FRAMESPEC™‚ëF™ ™ œ™‚¹˜–Jl ¸jH@ ¿kH@ ¿lH@ ¿lH@ ¿lH@ ¿H™‚¹™˜“˜“˜ŒFRAME-PROP-NAMEB™‚ä3™‚ä%™‚ä™‚ä ™‚ä™T˜– o ˜Œ1 top-level form™˜“€™˜ŒCLOSœ˜•ŒDEBUGGER-STACK-FRAME-PROP-NAMES—˜–‚ @¸@¹gH ð¢±FkH ºlH »gnogJ go K˜KÉ€hoK˜KÉ€hoK˜KÉ€hoK˜KÉ€hoh¼h½h¾h_¿h_¿L_’O‚±¢^_¿N_¢±MgO O_¿h_¿h_¿h_¿O£O°`gnognognogO _¿O˜OO&_¿ˆOh__¿O_¿° ½L¼±ÿYMHi »H ºH _¿h_¿h¾Od3@ð²O ˜O ¾gnogI J½h¼h_¿h_¿k_¿h_¿OMó’±’N_¿N¾O_` †O_¿°çgOH _“O°2O‘h€i_’O‡Ogð’O€h—O oOkÕ gOloh-_¿O˜OO&_¿†Oh_¼OkÔ_¿±ÿlLK_¿h_¿h_¿h_¿j¼JkؽMOó‘°toMHo ð_“O° MH _’h°oL _‘h€i‘°0gOgMloh-_¿O˜OO&_¿ˆOh__¿LkÔ¼MkÔ½°‰O]²go M€h ™‚ý™˜“˜“˜Œ FRAMESPEC‚™o‚û™‚®‚¦˜•ŒCONCAT‚•˜•Œ STKARGNAME‚†™‚‘‚'™‚‚˜ŒSTRING‚𙂂¬™‚®‚‹˜•Œ SMARTARGLIST‚ƒ˜•ŒCCODEP‚k™‚“‚d™‚’‚]™‚’‚K™S‚$™‚®‚Ï™‚®N™‚®?™‚®#™‚‘™‚‘™‚“‚ñ™‚á‚»˜Œ ARG-NUMBER‚´˜ŒARG-NAME‚,™‚‚ ™‚虂‚Ù™a‚¢™‚á‚’™‚à‚™‚á‚ ™‚ß‚ü™‚ނ왂Ý‚È™‚á‚Œ˜•Œ ENVIRONMENTz™‚h™‚V™‚D™‚á9™‚á)™‚à˜ŒEVAL‚ö˜Œlocals‚ ˜Œlocal ‚˜ŒNo value‚z™‚ ‚˜Œarg ‚›˜– @BC ˜Œ)lambda in DEBUGGER-STACK-FRAME-PROP-NAMES™˜“˜“™˜ŒVALUE˜Œ PROP-NAME˜Œ FRAMESPEC˜ŒWINDOW™‚똕ŒINSPECT/AS/FUNCTION‚˜– @XB˜Œ)lambda in DEBUGGER-STACK-FRAME-PROP-NAMES™˜“˜“™˜Œ PROP-NAME˜Œ FRAMESPEC˜Œ NEW-VALUE™‚나– @˜Œ)lambda in DEBUGGER-STACK-FRAME-PROP-NAMES™˜“˜“™˜Œ PROP-NAME˜Œ FRAMESPEC™‚ë‚õ˜– @˜Œ)lambda in DEBUGGER-STACK-FRAME-PROP-NAMES™˜“˜“™˜Œ PROP-NAME˜Œ FRAMESPEC™‚ë‚•˜“˜Œ tag bodies‚ƒ˜“˜Œblocksq˜“˜Œ functions_˜“˜ŒvarsI˜Œ ENVIRONMENT2˜– @BC ˜Œ)lambda in DEBUGGER-STACK-FRAME-PROP-NAMES™˜“˜“™˜ŒVALUE˜Œ PROP-NAME˜Œ FRAMESPEC˜ŒWINDOW™‚뙂‚—™ ‚™ ‚™ ‚ñ™ .™ ™‚;‚Ø–^gµh¸a¸gµh¹a¹gnognognogHIh ˜Œ BUILD-NAME‚ÿÿÿÿ™˜“˜“™‚Ü™‚™‚X™‚®M™‚á=™‚ß-™‚Þ™‚Ý™‚™‚F˜–@AB ˜Œlambda in BUILD-NAME™˜“˜“™˜Œ PROP-NAME˜Œ FRAMESPEC˜Œ NEW-VALUE™‚ë ˜•Œ SETSTKARG6˜–@A ˜Œlambda in BUILD-NAME™˜“˜“™˜Œ PROP-NAME˜Œ FRAMESPEC™‚ë ™‚‘&˜– @˜Œlambda in BUILD-NAME™˜“˜“™˜Œ PROP-NAME˜Œ FRAMESPEC™‚ëB™ 2™ "™ ™‚;‚5™‚Sœ˜•ŒDEBUGGER-STACK-FRAME-FETCHFN˜– AA@ ™‚T™˜“˜“˜Œ FRAMESPEC˜Œ PROP-NAME˜•ŒAPPLY*œ˜•ŒDEBUGGER-STACK-FRAME-STOREFN˜–AA@B ™‚[™˜“˜“˜Œ FRAMESPEC˜Œ PROP-NAME˜ŒNEWVALUE™‚Yœ˜•Œ"DEBUGGER-STACK-FRAME-VALUE-COMMAND˜–A@ABC ™‚b™˜“˜“˜ŒDATUM˜Œ PROP-NAME˜Œ FRAMESPEC˜ŒWINDOW ™‚Yœ˜•ŒDEBUGGER-STACK-FRAME-TITLE˜–@ o ™‚j™˜“˜“˜Œ FRAMESPEC™˜ŒWINDOW ™‚™‚“˜Œ Frameœ˜•ŒDEBUGGER-STACK-FRAME-PROPERTY˜– @@A ™‚q™˜“˜“˜Œ PROP-NAME˜Œ FRAMESPEC™‚Y˜–5o ¿g X§oc¿ggo ˜’Œ*FUNCTION-TYPES*™A˜ŒDEFVAR XCL::*FUNCTION-TYPES*™˜“€/™f™‚™‚%˜ŒVARIABLE ™‚w ™‚w*˜Œ*Manager types that can appear on the stack˜“˜•ŒFNS˜•Œ FUNCTIONS˜“˜ŒSPECIAL™‚wœ˜’ŒATTACH-BACKTRACE-MENU˜‘˜ŒDEBUGGER˜– ‚@©W b¿h¸h¹@ ɺlliil 5 `_¿@A _¿O_¿OO¿O__¿Og¿O__¿Oj¿O__¿OW ¿O__¿Ok¿O_¿no_¿O_¿OO¿O__¿Og ¿O_¿jjnÿnÿh_¿O_¿OO ¿O¹@ _¿h_¿O’O‚h°._g XŸHÉgð€h’O‡O_¿°ÍX²,Hg hH ¿Hgh ¿H ¿°w@ ÉI _Wñ’WO Jg X²=H@H ÉJñ•g„ghg ¿Hg@ É. ¿IHjHg I Õ ¿Hgg ¿Hgh ¿Hgh ¿h ˜Œ*PRINT-PRETTY* ˜Œ*PRINT-CIRCLE*˜Œ *PRINT-ARRAY*˜Œ *PRINT-RADIX*˜Œ*PRINT-GENSYM*˜Œ*PRINT-ESCAPE*˜Œ*PRINT-LENGTH*˜Œ *PRINT-LEVEL*˜•ŒMaxBkMenuWidth˜•Œ \TERM.OFD˜•Œ BACKTRACEFONT™‚„™˜“˜“™˜Œ TTY-WINDOW˜ŒSKIP‚û˜•Œ PUTWINDOWPROP‚”‚ᙂ”‚И•ŒADDMENU‚ɘ•Œ BITMAPHEIGHT‚Ę•ŒCHECK/MENU/IMAGE‚¾˜•Œ GETWINDOWPROP‚¯™‚”‚¨˜•Œ \INSUREWINDOW‚›˜•Œ ATTACHWINDOW‚}™‚™‚r˜•ŒCREATEW‚m˜’ŒREGION-NEXT-TO™‚ƒ‚^˜•Œ WIDTHIFWINDOW‚N˜•Œ BITMAPWIDTH‚I™‚—‚A™‚™‚8˜•ŒCLEARW‚1™‚”‚$˜•Œ DELETEMENU‚˜•ŒGETWINDOWUSERPROP‚¡‚Ò˜•ŒATTACHEDWINDOWS0˜’ŒCOLLECT-BACKTRACE-ITEMS™‚ƒ™‚™˜•ŒWFROMDS‚õ˜•Œ CURSORMOVEDFN‚蘕Œ CURSORINFN‚ܘ’ŒBACKTRACE-MENU-BUTTONEVENTFN™‚ƒ‚ט•Œ BUTTONEVENTFN‚¹˜•ŒHEIGHT‚¢˜•ŒPROCESS‚•˜•Œ LOCALCLOSE‚˜•ŒLEFT‚‰˜•ŒRIGHT‚h˜ŒLEFT‚+˜•ŒEXTENT‚™‚Š‚ÿ˜’ŒBACKTRACE-ITEM-SELECTED™‚ƒ‚ø™‚Š‚ꙂŠ‚¥™‚ŽM™‚°%™‚‘‚†˜–)Bgðšo Bgðšo h˜Œlambda in ATTACH-BACKTRACE-MENU™˜“˜“™˜ŒITEM˜ŒMENU˜ŒBUTTON™‚ë!˜•Œ PROMPTPRINT™‚·˜•ŒMIDDLE™‚¬˜ŒInspect/Edit this function ˜Œ*Open a frame inspector on this stack frame‚‚™ œ™‚£˜– ‚7h¸h¹A˜Aið’W*‹A‰g ºj@g [¼j½h¾h_¿h_¿h_¿L¢±õLkJ _¾O__¿O__¿O_¿O£L_¿N¢±ŠO¤O_¿O³O _oškO _¿LòLO ‘°"MkÔ_½mÿLL ¼ŒoO ¿°Ïlliil 5O MOhh_¿H•IO&¹…OhY¸Lò!LO _¿MkÔ_½mÿLL ¼OŽoO ¿°Ì±ÿ H™‚…™‚†™‚‡™‚ˆ™‚‰™‚Š™‚‹ ™‚Œ™‚¢™‚£™˜“˜“˜Œ TTY-WINDOW˜ŒSKIP ‚*™‚ª‚˜•ŒSTKNTH‚˜’Œ STACK-EQL™A‚ܘŒPRIN1-TO-STRING‚Ç™‚ª‚¹™‚Á‚§™‚‚”™‚‘‚ƒ™‚“G™#'™‚Á"™‚˜™1‚ý˜•ŒSTACKP‚™‚Ę’ŒSTACK-POSITION™‚ƒ˜’ŒTRUE™A‚#˜Œ"~%Last-frame-consumed ~S not found‚À˜Œ~%Use-frame ~S not found‚Š˜“™‚ ™‚™™‚—™‚ œ™‚§˜–‚Çh¸@g ¸l`åYjðZ‘J‹I–I €h‘h€H¢±”@ ¿`kåjð²H@ É YšHII hH@ É ¹@g Zg »I–I€h\’L°'K d3@ð›K €h–K „gKJ h™‚§™˜“˜“˜ŒWINDOW‚¿™‚‚²™‚“‚©˜•Œ \DEFINEDP‚¤™‚“‚™™‚“‚ƒ™‚¡x™‚¡l˜•Œ MENU.HANDLERe™‚™[˜•ŒDOSELECTEDITEMO™‚ÏH™‚™5˜•ŒTOTOPW%˜•Œ\FZEROP ™‚¡‚¸™‚#~˜’ŒLASTPOS™‚ƒs˜•Œ MAINWINDOW;˜•ŒLASTMOUSEBUTTONS™‚Õ™‚Šœ™‚°˜–‚2nX¿@¹A g dHý¿g ºjIÕJ Hý¿HÉg [šjHÉK ¿AÉ"[—KA ¿@A ¿HÉg gggHÉ hhi ¿HÉ É.oi L \ L noH [g ‘hKHÉK ÉHÉ Éó•g„ghg ¿Kgg ˜’Œ *PROFILE*™A™‚°™˜“˜“˜ŒITEM˜ŒMENU˜ŒBUTTON‚,˜•Œ WINDOWADDPROP‚™‚š‚þ™‚™‚ò™‚™‚噂¡‚Ù˜•Œ \DO.PROGV‚Ƙ’ŒPROFILE-VALUES™A‚À˜’ŒPROFILE-VARIABLES™A‚º˜’Œ PROFILIZE™A‚±˜•Œ PROCESS.EVAL‚¤™‚™‚›™‚â‚Ž˜•ŒFIND-LEXICAL-ENVIRONMENTw™‚¡i˜•Œ MENUSELECTa˜•Œ MENUDESELECTO™‚ÁC™‚¡1™‚Á'™‚¡™‚¡ ˜•Œ WFROMMENU‚'˜•Œ DETACHWINDOW‚"˜•ŒCLOSEFN‚™‚«‚˜•ŒBOTTOM‚ ˜•ŒTOP‚à™‚Ô‚†™‚‚˜•ŒBRKENV|™‚Ár˜’ŒPROCESS™‚ƒV™‚Š>™‚Ó"™‚Å™‚Ô‚Ϙ–HHÉnogghghhoHÉ hHÉ g ˜Œ!lambda in BACKTRACE-ITEM-SELECTED™˜“€B™‚}7˜’ŒMAKE-FRAME-INSPECT-WINDOW™‚ƒ.™ )™‚“<˜’ŒSTACK-FRAME-PROPERTY™‚ƒ˜’ŒSTACK-FRAME-VALUE-COMMAND™‚ƒ˜’ŒSTACK-FRAME-STOREFN™‚ƒ˜’ŒSTACK-FRAME-FETCHFN™‚ƒ!˜Œ ~S Frame˜– @i ˜Œ+lambda in lambda in BACKTRACE-ITEM-SELECTED™˜“˜“˜ŒPOS˜’ŒSTACK-FRAME-PROPERTIES™‚ƒ™ ‚«˜“˜ŒLET˜“˜“˜’ŒPROFILE™˜“˜’Œ COPY-PROFILE™A˜“˜’Œ FIND-PROFILE™A˜Œ READ-PRINT˜“™5˜“˜’ŒPROFILE-ENTRY-VALUE™A˜“™‚˜’Œ*EVAL-FUNCTION*™A™‚ý™‚˜“˜’Œ SAVE-PROFILE™A™‚ý‚Ë™ ™Jœ˜•ŒSELECT.FNS.EDITOR˜–n`¸@ –o°@Õo„o¹HºHI¿JY¸Ii ¿HY¸Ig ¿HY¸Ig¿H¹jjnÿnÿh¸IºIH ¿J ™‚™˜“˜“™˜ŒFUNCTIONh™‚Š ™‚H™‚<™‚Ž˜•ŒCLOSURE™‚‘#˜“˜“˜•Œ DisplayEdit˜“™‚˜ŒED˜ŒEdit it with the display editor˜“˜•ŒTtyEdit˜“™‚˜•ŒEF˜Œ Edit it with the standard editor˜“˜“˜•ŒInspect˜“™‚˜ŒINSPECT˜ŒInspect this object˜“˜“˜•Œ InspectCode˜“™‚˜•Œ INSPECTCODE˜ŒShows the compiled code.˜“™‚˜“™‚™‚˜ŒEdit it with the display editor˜“™‚˜“™‚™‚˜Œ Edit it with the standard editor˜–‚ÆQ¸gQ‘H†gHc¿g ªg ¿gghiiihohhhno ¿gghgiihohhhno ¿gghgiihohgono ™‚w˜Œ5 top-level forms™˜“€‚À™‚÷‚ˆ™‚÷X™‚÷,˜’ŒMAKE-SPECIALIZABLE™!™2™1 ‚ª˜’Œ isl-cache€‚™™‚ú‚“™‚‚Ž™‚úi˜’ŒSTANDARD-OBJECT™c™‚^™‚ú7™‚2™‚ú'™‚™‚ ™C™C‚¸˜–‚W"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°]H@AB ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþIk¶[žJK¶[gð‘h‚i€h‘KŒ@Ikg g ¿@ [ ¼¿Lgð›Ko Lgð²/Ij¶]žJM¶]gð‘h‚i€h‘MŒ@Ijg L”KkLh™‚4˜Œlambda in 5 top-level forms™˜“˜“˜ŒX˜ŒSTKP˜ŒWINDOW ‚™‚%‚ ˜’ŒPV-ACCESS-TRAP™‚Ø™‚‚Ę•ŒALLOW.BUTTON.EVENTS‚¾™‚‚¸™<‚±™‚^‚§™‚<‚.˜’ŒPRIMARY-PV-CACHE-MISS™‚™g‚ò˜’Œ..SLOT-UNBOUND..™‚ß™‚%‚Ë™‚‚¬™‚s‚¢˜’ŒGENERIC-FUNCTION™‚™‚?‚m™ ‚_™ ‚F™ ‚7™‚‚Š™ |™ b™ S™‚Â@˜’Œ*EMPTY-VECTOR*™8™‚A0™‚A™‚A‚Ó˜“˜ŒDISPLAY™C‚¯˜“˜ŒISL˜“˜“™g™‚@€€˜ŒISL-CACHE-SYMBOL™‚4‚¤˜“™‚˜’ŒSTKP™™‚‚€˜–Q`X¹Ho¿IX¹Hg ¿IX¹Hg¿I¸jjnÿnÿh¹HºHI ¿J –@ h˜Œlambda in 5 top-level forms™˜“˜“˜ŒNAME˜ŒSTKP˜ŒWINDOWI™‚B™‚Š"™‚™‚Ž™‚‘ ˜“˜“˜ŒInspect˜ŒInspect this objectt˜“™‚s™‚J™‚P˜–y@ X²oHgð²FA ¹A–I €h²*I º@ Jð‘@…J hhhI @ Hgð²@So @kHh™‚w˜Œlambda in 5 top-level forms™˜“˜“˜ŒNAME˜Œ STACK-POINTER˜ŒDEBUGGER-WINDOW l™‚g™oQ™‚%J™‚%D˜’ŒSTACK-FRAME-PC™A;˜•ŒMAKE-COMPILED-CLOSURE0˜•Œ\GET-COMPILED-CODE-BASE)˜’ŒSTACK-FRAME-FN-HEADER™A˜’ŒSTACK-FRAME-VALID-P™A˜’ŒSTACK-POINTER-FRAME™A™‚X™‚ ™‚%b˜“™‚BD˜“™‚s˜’Œ STACK-POINTER™˜’ŒDEBUGGER-WINDOW™‚´™ |™ L™ œ˜’ŒINTERESTING-FRAME-P™—˜–‚b@ ¸@koh-Y—i@@I$Hgð²ck@ ‘i€h²Sk@ ¹Igð²?k@ ¹Id3@ð²,k@ ¹I ²k@ ¹I ˆh†h„h‚h€h¢±Øk@ ¹IZ »J ¼ld½@¾mÿ@ _¿h_¿h_¿O‘h€i_’O†Mjó‘h€i’±‹KOkoh- žO™iNOO$°jO³FO gð²7L_¿h_¿O’O°'_ kO ðšO_¿O_¿‡O_¿°ÕMkÕ_¿O_¿mÿO _¿O¾O½±ÿdHd3@ð²~H ’h°uH l(ð²goH gjgl Y’I°GoH gjgl Z’J°$oH gjgl ‚h€h²wl¹mÿ@ ºh»J‘h€i\‘L†Ijó‘h€i‘°VJkoh-[²6K ¼h_¿L‘L°#_ @loh-˜i@@O$L¼°Û°IkÕ_¿mÿJ ºO¹°›@A ™‚j ™˜“˜“˜Œ STACK-POS™˜Œ INTERP-FLAG ‚\™‚Š‚O™‚Á‚&˜’ŒMETHOD-FUNCTION™‚™=‚뙂Á‚Ú˜Œ STRING-EQUAL‚ǘŒ SYMBOL-NAME‚·™‚p‚¤™‚q‚”™‚p‚™‚q‚q™‚‚g™3‚N™‚Á‚%™‚‘‚™‚o‚ý™‚“‚☌EQUALP‚°™‚Á‚¢™=‚™1‚–™1‚Œ™‚‘w™2r™1i™‚‘`™3W™‚‘F™‚‘4™‚‘&™‚‘™‚“ ‚Ò˜ŒEND2‚̘ŒSTART2‚¯™‚s‚©™‚t‚Œ™‚s‚†™‚t‚™‚ <˜ŒBLOCK™‚ ‚Á˜Œ(method ‚ž˜Œ(method ‚{˜Œ(method ™‚y‚.˜–TA XÃ’H°+H‘i€h²gA ð€h‘HŠA ¹@IðZ‘J@Ø@ Iðh˜ŒFUNCTION-MATCHES-FRAME-P™˜“˜“˜ŒFUNCTION˜ŒFRAMEJ˜’ŒCOMPILED-CLOSURE-FNHEADER™A5™‚a0˜•Œ \STACKARGPTR$˜’ŒSTACK-FRAME-NAME™A™‚€™‚“C™ ˜•Œ \INTERPRETER™‚™‚y‚˜–b@ ¸h¹hº@i Hó²GHkÔ@ Y²9IS ².I Z²#J ²J Ið›J@loh-Šhˆh†h„h‚h€h‘Jh˜’Œ*FIN-ENV-TYPE*™˜ŒGENERIC-FUNCTION-FROM-FRAME™˜“˜“˜ŒFRAME>˜’ŒCOMPILED-CLOSURE-ENV™A6™2-˜’Œ FIN-ENV-FIN™%˜ŒTYPEP™‚‘™‚’™‚’™‚y‚Û™‚Œ™‚y ™‚Œ™‚ŒJ™‚ƒ˜– gc™‚¢˜Œ1 top-level form™˜“€™‚jœ˜’ŒUNDOABLE-SETF-SLOT-VALUE™˜–?@A ²g@A@A h ¿°g@Ah ¿@AB ™‚™˜“˜“˜ŒOBJECT˜Œ SLOT-NAME˜Œ NEW-VALUE9™‚\0™‚]™‚]™‚^™‚h%˜’ŒSLOT-MAKUNBOUND™ ™‚˜–zggg ¿gogggg ¿ggo ¿ggo ¿ggo ˜Œ5 top-level forms™˜“€t™‚Ï_™‚ÏJ™‚Ï5˜’ŒADVISE-FUNCTION™A™‚Ïj™‚e™‚9U™‚ÑP™‚9@™‚Ñ;™‚/˜ŒLAST*˜ŒPRIORITY%˜ŒAROUND ˜ŒWHEN™‚ ™‚˜ŒUNDOABLE-SETF-INVERSE™‚^o˜“˜ŒNAME˜ŒARGLIST™‚]Z˜“€˜“Ž{™‚sŽ|˜“™5™‚sŽ}Ž{˜’ŒMETHOD-QUALIFIER™Ž}Ž*˜’ŒSPECIALIZED-LAMBDA-LIST™Ž{˜Œ DECLARATIONŽ|˜’Œ DOC-STRING™Ž}Ž*Ž{˜’ŒFORM™Ž}Ž*E˜“€˜“™Y˜“Ž{˜’ŒSUPERCLASS-NAME™Ž}Ž*˜“Ž{˜’ŒSLOT-SPECIFIER™Ž}Ž*Ž{˜’Œ SLOT-OPTION™Ž}Ž*˜“™‚¾˜“˜ŒAND˜•Œ EXPLAINFLG˜“™‚¿˜•ŒFN˜“™3™‚´˜“™2˜“™1™‚´˜“˜’ŒGENERIC-FUNCTION-PRETTY-ARGLIST™˜“™1™‚´˜“˜’ŒINNER™Aœ˜’ŒDEFCLASS-PRETTYPRINT™˜–‚¸lXW ¹@º@[¼K]¾M_¿M_¿o ¿J ¿o ¿L ¿o ¿NžNh ¿Šo ¿O²OhHlIÖÔ ¿°HlIÖÔW ¿o ¿OOHlIÖÔ ¿o ¿h ˜Œ*STANDARD-OUTPUT*™‚Á ™˜“˜“˜ŒFORM‚º˜ŒPRINC‚¯˜•ŒSEQUENTIAL.PRETTYPRINT‚ž™‚Æ‚“˜•Œ PRINENDLINE‚ƒ™‚Ço™‚Æc™‚Ç^˜•Œ DSPXPOSITIONS™‚ÆH˜ŒPRIN1A™‚Æ6™‚Ê/™‚Æ ˜•Œ CHARWIDTH™‚É‚µ˜Œ)‚™˜Œ()j˜Œ()N˜Œ <˜Œ *˜Œ(˜–#gQX˜HgggQc™‚˜Œ1 top-level form™˜“€™‚Á™‚ ™‚Á™‚œ˜’ŒBINDER-PRETTYPRINT™˜–‚‰@‘i€h˜@‘i‚h€h²ullXR ÖÔ¸llXR ÖÔ¹o ¿@ ¿o ¿@@hR ¿@hI ¿@H ¿o ¿hi™‚™‚Ö™˜“˜“˜ŒFORM ™‚Æt™‚Çi™‚Ç\˜•Œ SUPERPRINTP™‚ÆE™‚Ê=™‚Æ0™‚Ë&™‚É™‚Ë™‚Éz˜Œ)K˜Œ 8˜Œ(˜–‚o¸h¹H‘H°&YgZ˜Jg¿‹IgSc¿H¸°ØgoTc¿go ¿go ¿go ¿go ¿gg ¿gg ¿gg ¿go ¿gg ¿go ¿gg ¿go ¿gg ™‚˜’Œ*INDENT-ALIST*˜‘˜ŒSEDIT˜Œ15 top-level forms™˜“€ ‚ ˜’ŒSETF-OF-GET-FORMAT™‚à‚ý™‚ä‚홂ä‚Ý™‚ä‚Í™‚䂽™‚ä‚­™‚ä‚™‚ä‚™‚ä}™‚äm™‚ä]™‚äM™‚䂘’Œ MAKE-INSTANCE™‚˜’Œ*MAKE-INSTANCE™‚ó™‚å‚蘒ŒWITH-ACCESSORS™‚㘒Œ WITH-SLOTS™‚Ó™‚ç‚È™‚ü‚Ø’ŒSYMBOL-MACROLET™‚³˜’ŒCALL-NEXT-METHOD™‚¨˜ŒFLET‚£˜’ŒGENERIC-LABELS™‚˜™‚ë‚“˜’Œ GENERIC-FLET™‚ˆ˜ŒDEFUN‚ƒ™‚2s™‚9c™‚S˜ŒSLOT-SPEC-LISTC˜Œ SLOT-SPEC3™‚ð#™‚Ö™‚Ö™‚ ‚ø˜“˜ŒINDENT˜“˜“˜ŒARGS˜“˜ŒKEYWORD€™‚ï‚ؘ“™‚ñ˜“˜“™‚ô˜“™‚õ˜Œ BINDING-LIST€˜ŒSUBLISTS˜“˜ŒMISER˜ŒNEVER‚¸˜“™‚ñ˜“™‚ô˜“™‚õ€x˜“™‚ñ˜“˜“™‚ô˜“™‚õ€˜Œ LAMBDA-LIST€™‚ü˜“h˜“™‚ñ˜“˜“™‚ô˜“™‚õ€€™‚‚ü˜“X˜“™‚ñ™‚ú™‚ô˜“™‚ð˜ŒINLINE€H˜“™‚ñ™‚ð™‚8˜“˜“˜”˜’Œ PREV-KEYWORD?™‚à˜”˜’Œ NEXT-INLINE?™‚à˜ŒBREAK˜’Œ FROM-INDENT™‚à™‚™‚˜”˜’Œ SET-INDENT™‚à˜”™‚™‚™‚˜”™‚˜”™‚™‚™‚™‚™‚˜“˜”™‚˜”™‚™‚™‚™‚™‚˜”™‚˜”™‚™‚™‚˜”™‚˜”™‚™‚™‚™‚™‚˜“˜ŒMULTIPLE-VALUE-BIND™‚療蘖"o ¿g X‘Hoc˜’Œ*PFI-CLASS-TYPE*™˜ŒDEFVAR *PFI-CLASS-TYPE*™˜“€™‚™‚ ™‚*˜“˜’ŒCLASS™™‚˜’ŒPFI-CLASS-NAMER™˜“™‚™‚*˜–5o ¿g X§oc¿ggo ˜’Œ*PFI-METHOD-TYPE*™˜ŒDEFVAR *PFI-METHOD-TYPE*™˜“€/™f™‚™‚%™‚z ™‚2 ™‚2*˜Œ"Handles method for prettyfileindex˜“˜’ŒMETHOD™™‚9˜’ŒPFI-METHOD-NAMER™˜“™‚™‚2˜–1o ¿g X£hc¿ggo ˜’Œ*PFI-INDEX-ACCESSORS*™˜ŒDEFVAR *PFI-INDEX-ACCESSORS*™˜“€+™f™‚™‚!™‚z™‚; ™‚;&˜Œ4t -> each slot accessor gets a listing in the index.˜“™‚™‚;˜–5o ¿g X§gc¿ggo ˜’Œ*PFI-METHOD-INDEX*™˜ŒDEFVAR *PFI-METHOD-INDEX*™˜“€/™f™‚™‚%™‚z ™‚A˜ŒGROUP ™‚A*˜Œ :group, :separate, :both, or nil˜“™‚™‚Aœ˜’ŒPFI-ADD-CLASS-TYPE™˜–S¸R¹SR‘I‚HIc˜•Œ *PFI-TYPES*™‚*™‚H™˜“€œ˜’ŒPFI-ADD-METHOD-TYPE™˜–S¸R¹SR‘I‚HIc™‚I™‚2™‚L™˜“€œ™‚.—˜–‚§nX¿@Hý¿V¢±’@¹hHý¿Iºh»J‘J°i»K¼L½L¡°XMgðLkoH-¿°9MgðLkoH-¿°#Mgð²LkoH-¿LkoH-¿L¼L½°¨Jº°•gHÉhhHÉHÉ™‚;™‚.™˜“˜“˜Œ EXPRESSION˜ŒENTRY‚‘™‚-c™‚×M˜ŒWRITER7˜ŒREADER™J™‚U{˜–9gg@hiHÉhhhg@hiHÉhhloH-˜Œ ADD-WRITER™˜“˜“˜Œ WRITER-NAME™5™5™‚6™‚Uo˜–%g@HÉhhh@HÉhhloH-˜Œ ADD-READER™˜“˜“˜Œ READER-NAME™‚6™‚UX™‚Z™‚Z1˜–FRgð’@°1Rgð’A°&RiðY‘I†Rgð•@AhŽR›oR €hHÉdHý¿™‚A˜Œ ADD-ACCESSOR™˜“˜“˜Œ METHOD-INDEX˜Œ NAME-INDEX4™‚ª˜ŒBOTH ˜ŒSEPARATE™‚D.˜Œ(Illegal value for *pfi-method-index*: ~S™‚UB™‚_™‚_™‚hœ™‚7˜–‚Ö@¸h¹hºh»@¼L½M‘h€i^‘N…M‘i€h™M»J º‹MJºL¼L½°ÜK¼L½M`^‘N„L‘h€i˜I ¹°"M‘h€i^‘N…M‘i€h“M€iI¹L¼L½°ÈgHJIh h¼HJIh ½Wgð‘LWgð‘MWið^‘N‡Wgð•LMhWœoW h™‚A™‚7™˜“˜“˜Œ EXPRESSION˜ŒENTRY‚Ι‚ª‚™o‚™oO˜ŒREVERSE%™‚m‚·™‚e‚¤™‚f‚™™‚Dw™‚6>™a‚ǘŒ(Illegal value for *pfi-method-index*: ~Sœ˜’ŒPFI-INSTALL-CLOS™˜– ¿™‚p™˜“€™‚H™‚L˜–g •h˜Œ1 top-level form™˜“€ ™‚p™‚™‚Iš‚vÿÿ