‘XCL Compiler output for source file {DSK}export>lispcore>sources>CLTL2>DESCRIBE.;1 Source file created Friday, 22 October 1993, 15:14:14. FASL file created Thursday, 4 November 1993, 11:58:49. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒSYSTEM˜Œ{Null}˜–o ¿o˜Œ2 top-level forms™˜“€˜•Œ FILECREATED˜•Œ DESCRIBECOMS ˜“ ˜“˜•Œ*˜•Œ;;˜ŒCommon LISP describe facility˜“ ˜•Œ FUNCTIONS˜ŒDESCRIBE˜’ŒDESCRIBE-INTERNAL˜‘˜ŒSYSTEM˜’ŒDESCRIBE-NEW-LINE™˜’ŒDESCRIBE-USING-DESCRIBERS™˜’ŒGET-SUPER-DESCRIBERS™˜’ŒGET-INSPECT-MACRO™˜’Œ!INSPECT-MACRO-USABLE-BY-DESCRIBE?™˜’ŒDESCRIBE-USING-INSPECT-MACRO™˜’ŒDESCRIBE-USING-RECORD-DECL™˜“™˜’ŒA-OR-AN™˜’ŒVOWEL-P™˜“˜•Œ DEFINE-TYPES˜Œ DESCRIBERS˜“™˜Œ DEFDESCRIBER˜’ŒGET-DESCRIBERS™˜“˜•ŒPROP˜•ŒPROPTYPE˜’Œ DESCRIBERS™˜“™)˜ŒSYMBOL˜ŒSTRUCTURE-OBJECT˜Œ CHARACTER˜ŒFIXNUM˜Œ SINGLE-FLOAT˜Œ HASH-TABLE˜“˜•Œ VARIABLES˜Œ*DESCRIBE-DEPTH*˜Œ*DESCRIBE-INDENT*˜Œ*DESCRIBE-PRINT-LENGTH*˜Œ*DESCRIBE-PRINT-LEVEL*˜“˜•ŒPROPS˜“˜•ŒDESCRIBE˜•ŒMAKEFILE-ENVIRONMENT˜•ŒFILETYPE˜“˜Œ18-Oct-93 15:29:00˜Œ2{Pele:mv:envos}Sources>CLTL2>DESCRIBE.;2‚9˜•Œprevious˜•Œdate:˜Œ 4-Feb-92 12:21:53˜Œ2{Pele:mv:envos}Sources>CLTL2>DESCRIBE.;1œ™˜–STA @j ¿$˜Œ*STANDARD-OUTPUT*˜Œ *PRINT-LEVEL*˜Œ*PRINT-LENGTH*™<™=™™˜“˜“˜ŒOBJECT˜Œ &OPTIONAL˜ŒSTREAM™˜•Œ \GETSTREAM˜–ggo ˜Œ1 top-level form™˜“€˜•ŒSET-DOCUMENTATION˜ŒFUNCTION™ ˜Œ$Describe OBJECT, printing to STREAM.œ™˜–‚«AWýó¢±@ X‘i€h’H€H¹hºh»h¼h½A ¿ioI I ¿I Zš@AkÔJ @ [–K €hš@AkÔK I \š@AkÔL @ ^‘N…@ ]š@MAkÔ @ @ ™:™™˜“˜“˜ŒOBJECT˜ŒDEPTH‚¥˜ŒPRIN1‚ž™b‚—™#‚‹˜•ŒFINDSYSRECDECL‚˜•Œ FINDRECDECLz™n™g™"Z™!R™ K™?™,8˜ŒFORMAT2™%%™ ˜ŒTYPE-OF,˜Œ~A ~A, œ™˜–%¿@RÖ¸j¹IHýó¡ho ¿IkÔ¹°ê™;™™˜“˜“˜ŒDEPTH˜Œ WRITE-CHAR˜Œ FRESH-LINEŽ œ™˜–]B¸B¹I¡HIZ‘i€h—J €h²6@kJ [¼K]³)A ¿ioJ ¿LAkÔ ¿†@AlJ¿I¹°ª™™˜“˜“˜ŒOBJECT˜ŒDEPTH˜Œ DESCRIBERSJ™@™e2™#˜•Œ\MVLIST˜ŒSTRINGP9˜Œ~A: œ™˜– @¸h¹I‘I„H‘h€i‘IH X ¹°ç™™˜“˜“˜ŒTYPE™,˜•Œ GETSUPERTYPEœ™ ˜–E`¸h¹hºh»K‘K„H‘h€i‘IH¸H¹IZòJgð–@kJˆh†@J »°Ê™ ™˜“˜“˜ŒOBJECT=˜ŒTYPEP+˜•ŒFUNCTION"˜•ŒLISTP˜•Œ INSPECTMACROSœ™!˜– @‘ih™!™˜“˜“˜ŒMACROœ™"˜–^B¸B¹I‘i€h‘Iƒ@kIºh»h¼h½J¡KJ¾A ¿N ¿o ¿@NlHAkÔ ½K”LM&¼„Mh\»Jº°Â™"™˜“˜“˜ŒOBJECT˜ŒDEPTH˜ŒMACROG™8˜ŒPRINC-™‚Ž&™3˜Œ: œ™#˜–:A X¹I¡HIºB ¿ioJ ¿J@A BkÔ ¿I¹°Ñ™#™˜“˜“˜ŒOBJECT˜ŒDECL˜ŒDEPTH/™'˜•Œ RECORDACCESS™e™˜•ŒINSPECTABLEFIELDNAMES˜Œ~A: œ™%˜–X@¸@¹@×@ °.I œI gð€h’@°hgHoh j •oo™%™˜“˜“˜ŒWORDF™&A˜ŒELT;˜•ŒCHECK-TYPE-FAIL˜ŒARRAY-ELEMENT-TYPE˜ŒVECTORP ˜Œ SYMBOL-NAME.˜’ŒWORD™!˜Œ STRING-CHAR˜•ŒLITATOMR˜ŒaL˜Œan4˜“˜ŒOR™2˜ŒSTRING˜–ggo ˜Œ1 top-level form™˜“€™Z™[™% ˜ŒMReturn 'a' or 'an' depending upon whether the first letter in WORD is a vowelœ™&˜–‚„@ Xo:Y’I°nHo:Z’J°bHo:[’K°VHo:\’L°JHo:]’M°>Ho:^’N°2Ho:_“O°$Ho:_“O°Ho:_’O†Ho:‘ih™& ™˜“˜“˜ŒCHAR™4 yŽulŽU^ŽoPŽODŽi8ŽI,Že ŽEŽaŽA˜–ggo ˜Œ1 top-level form™˜“€™Z™[™& ˜ŒET if char is an A, E, I, O or U. Not dependable with funky charsets.˜–‚"ggo ¿oRgg c¿oSgg c¿o ¿g X¦h¿g` ³0g`gggl2gl2  ¿Q¸gQ‘H†gHc¿ggg ¿ggg ¿ggg ¿ggg ¿ggg ˜•Œ FILEPKGTYPES˜•ŒPRETTYDEFMACROS˜•Œ PRETTYTYPELST˜Œ"XCL:DEF-DEFINE-TYPE CL::DESCRIBERS™˜“€ ‚˜•ŒPUTPROP‚™‚¼‚ò™‚¼‚Ý™‚¼‚È™‚¼‚˜ŒPUTHASH‚˜˜ŒMAKE-HASH-TABLEn˜•ŒGETHASHV˜ŒBOUNDPK˜ŒPROCLAIM>˜ŒADJOIN&™‚™Z!‚˜•ŒNILL‚˜•ŒFILEPKGCONTENTS‚ ™)‚˜’Œ%DEFINE-TYPE-FILEGETDEF˜‘˜ŒXEROX-COMMON-LISP‚ý˜•Œ FILEGETDEF‚ø™)‚혒Œ%DEFINE-TYPE-PUTDEF™‚Ƃ蘕ŒPUTDEF‚ã™)‚ؘ’Œ%DEFINE-TYPE-DELDEF™‚Æ‚Ó˜•ŒDELDEF‚Ι)‚Ø’Œ%DEFINE-TYPE-GETDEF™‚Æ‚¾˜•ŒGETDEF‚¹™)‚¯™)‚¥™)‚˜Œ REHASH-SIZE‚‰˜ŒSIZE‚„˜ŒEQUAL˜ŒTESTz˜’Œ*DEFINITION-HASH-TABLE*™‚Æu™)i™‚Ód™)^˜ŒCHANGEDDESCRIBERSLSTQ™‚Ô9™‚Ñ4™‚Ò!™‚Ñ™‚Ò™(™)F˜“˜’ŒGLOBAL™‚Æ™‚Ô.˜“™‚Ô™)˜ŒDescribers of objects˜“™)˜’ŒX™‚Ƙ“˜•ŒP™˜“˜’Œ%DEFINE-TYPE-FILE-DEFINITIONS™‚Ƙ“˜ŒQUOTE™)˜“™‚Ü™‚Ù ™‚ט–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒXCL:DEFDEFINER CL::DEFDESCRIBER™˜“€A™‚¼™‚¼ :™+0™+)˜Œ DEFINED-BY ™)™‚å™) ™)˜Œ DEFINER-FOR™+œ˜Œ definition-expander-DEFDESCRIBER˜–‚Î@X¹HºgggIhogJ»h¼h½h¾K£L±•K_‘i€h˜O €h²NggOhgggOhhgOhgOhhh°O‘i€hšgOh‰gOh¾L”MN&½„Nh]¼K»±ÿkh™‚虘“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTC™u ‚«™‚Ü‚ ™[‚™‚Üu™[f™‚Üa˜ŒCONSP\˜ŒIFQ™‚ÜL˜ŒLIST#™‚ܘŒGET ˜ŒSETF˜“˜“™‚Ü™0˜–Cggg ¿ggg ¿oPgg c˜•ŒPRETTYPRINTMACROS™‚㙘“€;™‚Â%™‚¼™‚¼6™‚Ñ1™‚Ò ˜ŒSECOND˜ŒDEFINITION-NAME™+ ™‚蘌DEFINITION-EXPANDER™++˜”™+’ŒPPRINT-DEFINER™‚Æœ˜Œexpand-DEFDESCRIBER˜–ggg@Ah™‚ü™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™+™)˜’ŒDEFINER™‚Ƙ–&gg ¿ggo ™‚㙘“€ ™‚¼ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™+™‚ü™+˜“˜Œ&WHOLE˜ŒXCL::DEFINITION˜Œ &ENVIRONMENT˜ŒXCL::ENVœ™,˜– @ÁÉg'™,™˜“˜“˜ŒTYPE™0˜– o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™0™/˜ŒIGNORE˜–nggoghnooghonohonohnoh ˜ŒCL::DEFDESCRIBER SYMBOL™˜“€h™‚¼(˜ŒSYMBOL-PACKAGE™‚¡™0™2Z˜–R@ÁÉX²IA ¿o ¿H¹I¡hAkÔ ¿I ¿o ¿IAlÔ ¿I¹°Ïh˜Œ!lambda in CL::DEFDESCRIBER SYMBOL˜ŒCLOSURE˜“˜“˜ŒSYMBOL˜ŒDEPTHD™7™‚Ž,™b$™™‚Ž ™2˜Œ : ˜Œproperty list:L˜–@ ‘h€iX‘h…@ H$˜Œ!lambda in CL::DEFDESCRIBER SYMBOL™‚˜“˜“˜ŒSYMBOL˜ŒSYMBOL-FUNCTION˜ŒFBOUNDPC˜Œ function cell9˜–@ ‘h€iX‘h…@ H$˜Œ!lambda in CL::DEFDESCRIBER SYMBOL™‚˜“˜“˜ŒSYMBOL˜Œ SYMBOL-VALUE™‚À0˜Œ value cell#˜Œ package cell˜–2nX@A¿iHý¿hHý¿noH` ˜Œ!lambda in CL::DEFDESCRIBER SYMBOL™‚˜“˜“˜ŒSYMBOL˜ŒDEPTH,˜ŒMAPHASH'˜•Œ*DOCUMENTATION-HASH-TABLE*˜–[AHÉ‘hAHÉHý¿HÉA Y²'~:@C', code #\~O-~3,'0O (~D decimal, ~:*~X hex, ~:*~B binary) ™‚A˜–ggnoh ˜ŒCL::DEFDESCRIBER FIXNUM™˜“€™‚¼™0™5˜–&io@@¸@ÒlðžHlÿålÿð‘h…lHÑ€h ˜Œ!lambda in CL::DEFDESCRIBER FIXNUM™‚˜“˜“˜ŒNUMBER˜ŒDEPTH ™e˜ŒE~D decimal, ~:*~O octal, ~:*~X hex, ~:*~B binary~@[, '~C' character~] ™‚A˜–jggonohoghoghonohonohh ˜ŒCL::DEFDESCRIBER SINGLE-FLOAT™˜“€d™‚¼0˜Œ FLOAT-DIGITS#˜Œ FLOAT-RADIX™0™6T˜–@ ¸H˜Œ'lambda in CL::DEFDESCRIBER SINGLE-FLOAT™‚˜“˜“˜ŒFLOAT™t˜Œ DECODE-FLOATK˜ŒexponentA˜– @ þ˜Œ'lambda in CL::DEFDESCRIBER SINGLE-FLOAT™‚˜“˜“˜ŒFLOAT™‚t8˜Œ significand+˜Œdigits˜Œradix˜–5@ Xo:•gHo:•ghoHo ˜Œ'lambda in CL::DEFDESCRIBER SINGLE-FLOAT™‚˜“˜“˜ŒFLOAT/˜•Œ ECASE-FAIL˜Œ FLOAT-SIGN˜ŒNEGATIVE˜ŒPOSITIVE*˜“„?€„¿€$˜“™‚„˜ŒFLOAT„¿€„?€ ˜ŒsignP™‚A=™‚A™‚A˜–Nggoghoghonohnoh ˜ŒCL::DEFDESCRIBER HASH-TABLE™˜“€H™‚¼˜•Œ HARRAYSIZE˜ŒHASH-TABLE-COUNT™0™7<˜–>nX¿A ¿o ¿AkÔdHý¿kÔHý¿noH@ ˜Œ%lambda in CL::DEFDESCRIBER HASH-TABLE™‚˜“˜“˜ŒTABLE˜ŒDEPTH8™‚7™‚Ž™-˜–&HÉ ¿@ ¿o ¿AHÉ ˜Œ/lambda in lambda in CL::DEFDESCRIBER HASH-TABLE™‚˜“˜“˜ŒKEY˜ŒVALUE ™™‚Ž ™b™˜Œ : ˜Œ contents:)™‚A˜•Œ \PTRHUNK2.˜– @g ˜Œ%lambda in CL::DEFDESCRIBER HASH-TABLE™‚˜“˜“˜ŒTABLE˜•Œ HARRAYPROP˜•ŒEQUIVFN%˜Œtest˜Œsize ˜Œcount8™‚A*™‚A˜–%o ¿kc¿ggo ™:˜Œ!DEFPARAMETER CL::*DESCRIBE-DEPTH*™˜“€™Z™‚Á˜ŒVARIABLE™:˜Œ/The recursive depth to which DESCRIBE describes˜“˜ŒSPECIAL™:˜–&o ¿lc¿ggo ™;˜Œ"DEFPARAMETER CL::*DESCRIBE-INDENT*™˜“€ ™Z™‚Á™‚­™;˜Œ1Number of spaces to indent recursive descriptions˜“™‚¯™;˜–&o ¿lc¿ggo ™<˜Œ(DEFPARAMETER CL::*DESCRIBE-PRINT-LENGTH*™˜“€ ™Z™‚Á™‚­™<˜Œ'The value of *PRINT-LENGTH* in DESCRIBE˜“™‚¯™<˜–&o ¿lc¿ggo ™=˜Œ'DEFPARAMETER CL::*DESCRIBE-PRINT-LEVEL*™˜“€ ™Z™‚Á™‚­™=˜Œ&The value of *PRINT-LEVEL* in DESCRIBE˜“™‚¯™=˜–"o ¿o ¿o ˜Œ3 top-level forms™˜“€™‚™‚™‚˜“™@˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚ÂÄ‚Æ‚Ç‚È‚É ˜“™@™B˜Œ COMPILE-FILE˜“™@™A˜“™ ˜ŒXCL™ ˜ŒSYSTEMš‚Îÿÿ