‘XCL Compiler output for source file {DSK}sources>DESCRIBE.;1 Source file created Wednesday, 16 May 1990, 15:27:33. FASL file created Sunday, 25 January 1998, 12:32:53. ÿ˜–#ogg o ˜•Œ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˜•Œ DESCRIBECOMS˜•Œ FILEDATES˜•ŒDESCRIBE˜“ ˜“˜•Œ*˜•Œ;;˜Œ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˜“™˜•ŒMAKEFILE-ENVIRONMENT˜•ŒFILETYPE ˜“˜”˜Œ16-May-90 15:39:16•Œ0{DSK}local>lde>lispcore>sources>DESCRIBE.;2œ™˜–RS@j ¿$˜Œ *PRINT-LEVEL*˜Œ*PRINT-LENGTH*™>™?™™˜“˜“˜ŒOBJECT™˜–ggo ˜ŒDEFUN DESCRIBE™˜“€˜•ŒSET-DOCUMENTATION˜ŒFUNCTION™ ˜Œ/Describe OBJECT, printing to *STANDARD-OUTPUT*.œ™˜–‚«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‚ž™[‚—™%‚‹˜•Œ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™@™^2™#˜•Œ\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™^™˜•ŒINSPECTABLEFIELDNAMES˜Œ~A: œ™'˜–I@¸@¹@×@ °I ’@°hgHoh j •oo™'™˜“˜“˜ŒWORD7™(2˜ŒELT,˜•ŒCHECK-TYPE-FAIL™n ˜Œ SYMBOL-NAME˜’ŒWORD™˜•ŒLITATOMC˜Œa=˜Œan%˜“˜ŒOR™4˜ŒSTRING˜–ggo ˜Œ DEFUN A-OR-AN™˜“€™S™T™' ˜Œ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™6 yŽulŽU^ŽoPŽODŽi8ŽI,Že ŽEŽaŽA˜–ggo ˜Œ DEFUN VOWEL-P™˜“€™S™T™( ˜Œ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™˜“€ ‚™‚™‚ò™‚Ý™‚È™‚˜ŒPUTHASH‚˜˜ŒMAKE-HASH-TABLEn˜•ŒGETHASHV˜ŒBOUNDPK˜ŒPROCLAIM>˜ŒADJOIN&™‚·™S!‚˜•Œ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™n ‚«™‚Ñ‚ ™T‚™‚Ñu™Tf™‚Ña˜ŒCONSP\˜ŒIFQ™‚ÑL˜ŒLIST#™‚䙂јŒGET ˜ŒSETF˜“˜“™‚Ñ™2˜–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™2˜– o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™2™1˜ŒIGNORE˜–nggoghnooghonohonohnoh ˜ŒCL::DEFDESCRIBER SYMBOL™˜“€h™(˜ŒSYMBOL-PACKAGE™‚˜™2™4Z˜–R@ÁÉX²IA ¿o ¿H¹I¡hAkÔ ¿I ¿o ¿IAlÔ ¿I¹°Ïh˜Œ!lambda in CL::DEFDESCRIBER SYMBOL˜ŒCLOSURE˜“˜“˜ŒSYMBOL˜ŒDEPTHD™7™‚‡,™[$™™‚‡ ™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) ™‚6˜–ggnoh ˜ŒCL::DEFDESCRIBER FIXNUM™˜“€™™2™7˜–io@@¸@Òlð”lHÑ€h ˜Œ!lambda in CL::DEFDESCRIBER FIXNUM™‚˜“˜“˜ŒNUMBER˜ŒDEPTH™^˜ŒE~D decimal, ~:*~O octal, ~:*~X hex, ~:*~B binary~@[, '~C' character~] ™‚6˜–jggonohoghoghonohonohh ˜ŒCL::DEFDESCRIBER SINGLE-FLOAT™˜“€d™0˜Œ FLOAT-DIGITS#˜Œ FLOAT-RADIX™2™8T˜–@ ¸H˜Œ'lambda in CL::DEFDESCRIBER SINGLE-FLOAT™‚˜“˜“˜ŒFLOAT™m˜Œ DECODE-FLOATK˜ŒexponentA˜– @ þ˜Œ'lambda in CL::DEFDESCRIBER SINGLE-FLOAT™‚˜“˜“˜ŒFLOAT™‚i8˜Œ significand+˜Œdigits˜Œradix˜–5@ Xo:•gHo:•ghoHo ˜Œ'lambda in CL::DEFDESCRIBER SINGLE-FLOAT™‚˜“˜“˜ŒFLOAT/˜•Œ ECASE-FAIL˜Œ FLOAT-SIGN˜ŒNEGATIVE˜ŒPOSITIVE*˜“„?€„¿€$˜“™‚y˜ŒFLOAT„¿€„?€ ˜ŒsignP™‚6=™‚6™‚6˜–Nggoghoghonohnoh ˜ŒCL::DEFDESCRIBER HASH-TABLE™˜“€H™˜•Œ HARRAYSIZE˜ŒHASH-TABLE-COUNT™2™9<˜–>nX¿A ¿o ¿AkÔdHý¿kÔHý¿noH@ ˜Œ%lambda in CL::DEFDESCRIBER HASH-TABLE™‚˜“˜“˜ŒTABLE˜ŒDEPTH8™‚,™‚‡™-˜–&HÉ ¿@ ¿o ¿AHÉ ˜Œ/lambda in lambda in CL::DEFDESCRIBER HASH-TABLE™‚˜“˜“˜ŒKEY˜ŒVALUE ™™‚‡ ™[™˜Œ : ˜Œ contents:)™‚6˜•Œ \PTRHUNK2.˜– @g ˜Œ%lambda in CL::DEFDESCRIBER HASH-TABLE™‚˜“˜“˜ŒTABLE˜•Œ HARRAYPROP˜•ŒEQUIVFN%˜Œtest˜Œsize ˜Œcount8™‚6*™‚6˜–%o ¿kc¿ggo ™<˜Œ!DEFPARAMETER CL::*DESCRIBE-DEPTH*™˜“€™S™‚¶˜ŒVARIABLE™<˜Œ/The recursive depth to which DESCRIBE describes˜“˜ŒSPECIAL™<˜–&o ¿lc¿ggo ™=˜Œ"DEFPARAMETER CL::*DESCRIBE-INDENT*™˜“€ ™S™‚¶™‚¢™=˜Œ1Number of spaces to indent recursive descriptions˜“™‚¤™=˜–&o ¿lc¿ggo ™>˜Œ(DEFPARAMETER CL::*DESCRIBE-PRINT-LENGTH*™˜“€ ™S™‚¶™‚¢™>˜Œ'The value of *PRINT-LENGTH* in DESCRIBE˜“™‚¤™>˜–&o ¿lc¿ggo ™?˜Œ'DEFPARAMETER CL::*DESCRIBE-PRINT-LEVEL*™˜“€ ™S™‚¶™‚¢™?˜Œ&The value of *PRINT-LEVEL* in DESCRIBE˜“™‚¤™?˜–"o ¿o ¿o ˜Œ3 top-level forms™˜“€™‚™‚™‚˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚ÂÄ‚Æ ˜“™™C˜ŒXCL-COMPILE-FILE˜“™™B˜“™ ˜ŒXCL™ ˜ŒSYSTEMš‚Ãÿÿ