‘XCL Compiler output for source file {DSK}disk2>jdstools>lc3>lispcore3.0>sources>CMLSMARTARGS.;2 Source file created Tuesday, 27 January 1998, 10:56:02. FASL file created Tuesday, 27 January 1998, 10:58:59. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜Œ INTERLISP˜ŒPACKAGE˜Œ INTERLISP˜Œ{Null}˜–7ggo ¿o¿o¿o˜Œ4 top-level forms™˜“€˜•ŒPUTPROP1˜•Œ*XCL-ARGINFO-LIST*&˜•Œ*CL-ARGINFO-LIST*˜•ŒCMLSMARTARGSCOMS˜•Œ FILEDATES˜•Œ CMLSMARTARGS,˜“'˜“˜’ŒADD-EXEC˜‘˜ŒXEROX-COMMON-LISP˜Œ&KEY˜ŒPROFILE˜ŒREGION˜ŒTTY˜ŒEXEC˜ŒID˜“˜’ŒASET™˜•ŒNEWVALUE˜•ŒARRAY˜Œ&REST˜•ŒINDICES˜“˜’Œ CATCH-ABORT™˜•Œ PRINT-FORM˜Œ&BODY˜•ŒFORMS˜“˜’ŒCONDITION-CASE™˜•ŒFORM˜“˜•Œ CURLYLIST˜“˜ŒTYPE˜“˜“˜•Œ SQUARELIST˜•ŒVAR˜“™/™.Ž*Ž*˜“˜“˜’ŒCONDITION-HANDLER™˜’ŒCONDITION-REPORTER™™0˜“˜’ŒCOPY-ENV-WITH-FUNCTION˜‘˜ŒCOMPILER˜•Œ ENVIRONMENT˜•ŒFUNCTION˜Œ &OPTIONAL˜•ŒKIND˜•ŒEXP-FN˜“˜’ŒCOPY-ENV-WITH-VARIABLE™>™@˜•ŒVARIABLE™B™C˜“˜’ŒDEBUG™™B˜•ŒDATUM™%˜•Œ ARGUMENTS˜“˜’ŒDEF-DEFINE-TYPE™˜•ŒNAME˜•ŒDESCRIPTION-STRING™˜Œ UNDEFINER˜“˜’ŒDEFAULT-PROCEED-TEST™˜’ŒPROCEED-CASE-NAME™˜“˜’Œ DEFCOMMAND™™N˜•Œ ARGUMENT-LIST™%˜•ŒBODY˜“˜’Œ DEFDEFINER™˜“™/™NŽ|˜“™N˜“™/˜•Œ OPTION-CLAUSEŽ*™0˜•ŒARGLIST™*™W˜“˜’ŒDEFGLOBALPARAMETER™™N˜•Œ INITIAL-VALUE™B˜•Œ DOC-STRING˜“˜’Œ DEFGLOBALVAR™™N™B™a™b˜“˜’ŒDEFINE-CONDITION™™N˜•Œ PARENT-TYPE˜•Œ SLOT-LIST˜“™1˜•ŒKEYWORD˜•ŒVALUEŽ*˜“˜’ŒDEFINE-PROCEED-FUNCTION™™N˜“™1™i™jŽ*™%˜•Œ VARIABLES˜“˜’Œ DEFINLINE™™N˜•ŒARG-LIST™*™W˜“˜’Œ DEFOPTIMIZER™˜•Œ FORM-NAME˜“™1˜•ŒOPT-NAME˜“™1™r˜“™1˜•ŒDECLŽ|™bŽ*™W˜“˜’Œ DEFPACKAGE™™N™%˜•ŒOPTION-CLAUSES˜“˜’ŒDESTRUCTURING-BIND™˜•Œ BIND-PATTERN™j™*™W˜“˜“˜’ŒDO-INTERNAL-SYMBOLS™˜’ŒDO-LOCAL-SYMBOLS™˜“™2˜“™1˜ŒPACKAGE˜“™1˜•Œ RESULT-FORM˜“™/˜Œ DECLARATIONŽ*˜“™/˜•ŒTAGŽ|˜•Œ STATEMENTŽ*˜“ ˜’ŒEXEC™™˜Œ TOP-LEVEL-P˜ŒWINDOW˜ŒTITLE˜ŒCOMMAND-TABLES˜Œ ENVIRONMENT˜ŒPROMPT™™™ ˜“˜’Œ EXEC-EVAL™™.™B™@™™‚–™ ˜ŒTYPE˜“˜’Œ EXEC-FORMAT™˜•ŒCONTROL-STRING™%™K˜“˜“˜’ŒEXTENDABLE-ARRAY-P™˜’ŒREAD-ONLY-ARRAY-P™™$˜“˜’Œ FILL-VECTOR™˜•ŒVECTOR™j™˜ŒSTART˜ŒEND˜“˜’Œ GLOBALIZE™˜•Œ NAMESTRINGS™B™‚…˜“˜’Œ HANDLER-BIND™˜“˜“™/˜“™0˜•ŒHANDLERŽ*˜“™/™.Ž*˜“˜’Œ IGNORE-ERRORS™™*™+˜“˜’ŒINVOKE-PROCEED-CASE™˜’Œ PROCEED-CASE™™%˜•ŒVALUES˜“˜’ŒMAKE-CONDITION™™0™%˜•ŒSLOT-INITIALIZATIONS˜“˜’Œ MAKE-CONTEXT™>™™‚‘˜Œ VALUES-USED˜Œ PREDICATE-P˜“˜’Œ PARSE-BODY™™W™@™B˜•ŒDOC-STRING-ALLOWED?˜“™‚´™.˜“™/˜“˜•ŒPROCEED-FUNCTION-NAME™^˜“™1™i™jŽ*˜“™/˜•Œ BODY-FORMŽ*Ž*˜“˜“˜’ŒSET-DEFAULT-EXEC-TYPE™˜’Œ SET-EXEC-TYPE™™N˜“˜’ŒSIGNAL™™J™%™K˜“˜“˜’Œ STORE-VALUE™˜’Œ USE-VALUE™™B˜•Œ NEW-VALUE˜“˜’ŒUNDOABLY™˜“™/™+˜“˜’Œ UNDOABLY-SETF™˜“™/˜•ŒPLACE™jŽ*!˜“‚ ˜“˜“˜Œ*˜Œ+™%˜•ŒNUMBERS˜“˜“ ˜Œ-˜Œ/˜Œ/=˜Œ<˜Œ<=˜Œ=˜Œ>˜Œ>=˜ŒMAX˜ŒMIN˜ŒNUMBER™%˜•Œ MORE-NUMBERS˜“˜“˜Œ1+˜Œ1-˜ŒABS˜ŒACOS˜ŒACOSH˜ŒASIN˜ŒASINH˜ŒATANH˜Œ CONJUGATE˜ŒCOSH˜ŒEXP˜ŒIMAGPART˜ŒMINUSP˜ŒPHASE˜ŒPLUSP˜ŒRATIONAL˜Œ RATIONALIZE˜ŒREALPART˜ŒSIGNUM˜ŒSINH˜ŒSQRT˜ŒTANH˜ŒZEROP™‚똓˜ŒACONS˜•ŒKEY™J˜•ŒA-LIST˜“˜“˜ŒADJOIN˜ŒMEMBER˜•ŒITEM˜ŒLIST™˜ŒTEST˜ŒTEST-NOT˜ŒKEY˜“ ˜Œ ADJUST-ARRAY˜ŒARRAY˜•ŒNEW-DIMENSIONS™˜Œ ELEMENT-TYPE˜ŒINITIAL-ELEMENT˜ŒINITIAL-CONTENTS˜Œ FILL-POINTER˜Œ DISPLACED-TO˜ŒDISPLACED-INDEX-OFFSET˜ŒFATP˜ŒDISPLACED-TO-BASE˜“˜“˜ŒADJUSTABLE-ARRAY-P˜ŒARRAY-DIMENSIONS˜ŒARRAY-ELEMENT-TYPE˜ŒARRAY-HAS-FILL-POINTER-P˜Œ ARRAY-RANK˜ŒARRAY-TOTAL-SIZE™‚˜“˜“˜Œ ALPHA-CHAR-P˜Œ ALPHANUMERICP˜Œ BOTH-CASE-P˜Œ CHAR-BITS˜Œ CHAR-CODE˜Œ CHAR-DOWNCASE˜Œ CHAR-FONT˜ŒCHAR-INT˜Œ CHAR-NAME˜Œ CHAR-UPCASE˜ŒGRAPHIC-CHAR-P˜Œ LOWER-CASE-P˜ŒSTANDARD-CHAR-P˜Œ STRING-CHAR-P˜Œ UPPER-CASE-P˜ŒCHAR˜“˜“˜ŒAND˜ŒOR˜ŒPROGN˜“™/™.Ž*˜“˜“˜ŒAPPEND˜ŒNCONC™%˜•ŒLISTS˜“˜ŒAPPLY˜ŒFUNCTION˜•ŒARG™%˜•Œ MORE-ARGS˜“˜Œ APPLYHOOK™‚F˜•ŒARGS˜•Œ EVALHOOKFN˜•Œ APPLYHOOKFN™B˜•ŒENV˜“˜“˜ŒAPROPOS˜Œ APROPOS-LIST˜ŒSTRING™B™‚…˜“˜“˜ŒAREF˜ŒARRAY-IN-BOUNDS-P˜ŒARRAY-ROW-MAJOR-INDEX™‚™%˜•Œ SUBSCRIPTS˜“˜ŒARRAY-DIMENSION™‚˜•Œ AXIS-NUMBER˜“˜“'˜ŒARRAYP˜ŒATOM˜Œ BIT-VECTOR-P˜Œ CHARACTER˜Œ CHARACTERP˜ŒCOMMONP˜ŒCOMPILED-FUNCTION-P˜ŒCOMPLEXP˜ŒCONSP˜Œ CONSTANTP˜Œ COPY-TREE˜ŒDESCRIBE˜ŒENDP˜ŒFLOATP˜Œ FUNCTIONP˜Œ HASH-TABLE-P˜ŒIDENTITY˜ŒINSPECT˜ŒINTEGERP˜ŒKEYWORDP˜ŒLISTP˜ŒNULL˜ŒNUMBERP˜ŒPACKAGEP˜Œ PATHNAMEP˜ŒPRIN1-TO-STRING˜ŒPRINC-TO-STRING˜ŒRANDOM-STATE-P˜Œ RATIONALP˜Œ READTABLEP˜ŒSIMPLE-BIT-VECTOR-P˜ŒSIMPLE-STRING-P˜ŒSIMPLE-VECTOR-P˜ŒSTREAMP˜ŒSTRINGP˜ŒSXHASH˜ŒSYMBOLP˜ŒTYPE-OF˜ŒVECTORP˜•ŒOBJECT˜“˜ŒASH˜ŒINTEGER˜ŒCOUNT˜“˜ŒASSERT˜•Œ TEST-FORM˜“™1˜“˜“˜•Œ CURLYLIST*™‚ט“™1™‚S˜“™‚Ž™‚G˜“˜“˜ŒASSOC˜ŒRASSOC™‚™‚ ™™‚™‚™‚˜“˜“˜ŒASSOC-IF˜Œ ASSOC-IF-NOT˜Œ RASSOC-IF˜Œ RASSOC-IF-NOT˜•Œ PREDICATE™‚ ˜“˜ŒATAN˜•ŒY™B˜•ŒX˜“˜ŒBIT˜•Œ BIT-ARRAY™%™‚Y˜“˜“˜ŒBIT-AND˜ŒBIT-EQV˜ŒBIT-IOR˜ŒBIT-XOR˜•Œ BIT-ARRAY1˜•Œ BIT-ARRAY-2™B˜•ŒRESULT-BIT-ARRAY˜“˜“˜Œ BIT-ANDC1˜Œ BIT-ANDC2˜ŒBIT-NAND˜ŒBIT-NOR˜ŒBIT-ORC1˜ŒBIT-ORC2™‚¬˜•Œ BIT-ARRAY2™B™‚®˜“˜ŒBIT-NOT™‚¥™B™‚®˜“˜ŒBLOCK™N˜“™/™.Ž*˜“˜ŒBOOLE˜•ŒOP˜•ŒINTEGER1˜•ŒINTEGER2˜“˜“ ˜ŒBOUNDP˜ŒFBOUNDP˜Œ FMAKUNBOUND˜ŒMACRO-FUNCTION˜ŒMAKE-SYNONYM-STREAM˜Œ MAKUNBOUND˜ŒSPECIAL-FORM-P˜ŒSYMBOL-FUNCTION˜Œ SYMBOL-PLIST˜Œ SYMBOL-VALUE˜ŒSYMBOL˜“˜ŒBREAK™B˜•Œ FORMAT-STRING™%™‚K˜“˜“˜ŒBUTLAST˜ŒNBUTLAST™‚™B˜•ŒN˜“˜ŒBYTE˜•ŒSIZE˜ŒPOSITION˜“˜“˜Œ BYTE-POSITION˜Œ BYTE-SIZE˜•ŒBYTESPEC˜“˜“+˜ŒCAAAAR˜ŒCAAADR˜ŒCAAAR˜ŒCAADAR˜ŒCAADDR˜ŒCAADR˜ŒCAAR˜ŒCADAAR˜ŒCADADR˜ŒCADAR˜ŒCADDAR˜ŒCADDDR˜ŒCADDR˜ŒCADR˜ŒCAR˜ŒCDAAAR˜ŒCDAADR˜ŒCDAAR˜ŒCDADAR˜ŒCDADDR˜ŒCDADR˜ŒCDAR˜ŒCDDAAR˜ŒCDDADR˜ŒCDDAR˜ŒCDDDAR˜ŒCDDDDR˜ŒCDDDR˜ŒCDDR˜ŒCDR˜ŒEIGHTH˜ŒFIFTH˜ŒFIRST˜ŒFOURTH˜ŒLAST˜Œ LIST-LENGTH˜ŒNINTH˜ŒREST˜ŒSECOND˜ŒSEVENTH˜ŒSIXTH˜ŒTENTH˜ŒTHIRD™‚˜“˜“˜ŒCASE˜ŒECASE˜•ŒKEYFORM˜“™‚Ž˜“˜“™/˜“˜“™‚Ž™‚Ž|™‚˜“™‚Ž™.˜“˜ŒCATCH™‚Œ˜“™/™.Ž*˜“˜ŒCCASE˜•ŒKEYPLACE˜“™‚Ž˜“˜“™/˜“˜“™‚Ž™‚Ž|™‚˜“™‚Ž™.˜“˜“˜ŒCEILING˜ŒFCEILING˜ŒFFLOOR˜ŒFLOOR˜ŒFROUND˜Œ FTRUNCATE˜ŒROUND˜ŒTRUNCATE™‚ë™B˜•ŒDIVISOR˜“˜ŒCERROR˜•ŒCONTINUE-FORMAT-STRING˜•ŒERROR-FORMAT-STRING™%™‚K˜“™‚8™‚S˜•ŒINDEX˜“˜ŒCHAR-BIT™‚8™N˜“˜“ ˜Œ CHAR-EQUAL˜Œ CHAR-GREATERP˜Œ CHAR-LESSP˜ŒCHAR-NOT-EQUAL˜ŒCHAR-NOT-GREATERP˜ŒCHAR-NOT-LESSP˜ŒCHAR/=˜ŒCHAR<˜ŒCHAR<=˜ŒCHAR=˜ŒCHAR>˜ŒCHAR>=™‚a™%˜•ŒMORE-CHARACTERS˜“˜Œ CHECK-TYPE™‚ט•ŒTYPESPEC™B™‚S˜“˜“˜ŒCIS˜ŒCOS˜ŒSIN˜ŒTAN˜•ŒRADIANS˜“˜“˜Œ CLEAR-INPUT˜ŒLISTEN™B˜•Œ INPUT-STREAM˜“˜“˜Œ CLEAR-OUTPUT˜Œ FINISH-OUTPUT˜Œ FORCE-OUTPUT˜Œ FRESH-LINE˜ŒTERPRI™B˜•Œ OUTPUT-STREAM˜“˜ŒCLOSE˜ŒSTREAM™˜ŒABORT˜“˜“˜ŒCLRHASH˜ŒHASH-TABLE-COUNT˜Œ HASH-TABLE˜“˜Œ CODE-CHAR˜•ŒCODE™B˜•ŒBITS˜•ŒFONT˜“˜ŒCOERCE™‚†˜•Œ RESULT-TYPE˜“˜ŒCOMPILE™N™B˜•Œ DEFINITION™˜ŒLAP˜“ ˜Œ COMPILE-FILE˜•ŒINPUT-PATHNAME™˜Œ OUTPUT-FILE˜Œ ERROR-FILE˜ŒERRORS-TO-TERMINAL˜ŒLAP-FILE˜ŒLOAD˜ŒFILE-MANAGER-FORMAT˜ŒPROCESS-ENTIRE-FILE˜“˜Œ COMPILER-LET˜“˜“™/™2Ž|˜“™2™jŽ*˜“™/™.Ž*˜“˜ŒCOMPLEX™‚ÿ™B™‚ù˜“˜Œ CONCATENATE™‚m™%˜•Œ SEQUENCES˜“˜ŒCOND˜“™/˜“˜•ŒTEST˜“™/™.Ž*Ž*˜“˜“˜ŒCONS˜ŒNRECONC˜Œ REVAPPEND˜ŒRPLACA˜ŒRPLACD™‚¢™‚¡˜“˜“˜Œ COPY-ALIST˜Œ COPY-LIST˜Œ VALUES-LIST™‚˜“˜ŒCOPY-READTABLE™B˜•ŒFROM-READTABLE˜•Œ TO-READTABLE˜“˜“˜ŒCOPY-SEQ˜ŒLENGTH˜ŒNREVERSE˜ŒREVERSE˜ŒSEQUENCE˜“˜Œ COPY-SYMBOL˜•ŒSYM™B˜•Œ COPY-PROPS˜“ ˜“™‚Š˜ŒFIND™‚Ú™‚™‚£™˜ŒFROM-END™‚™‚™‚¤™‚¥™‚˜“˜“˜ŒCOUNT-IF˜Œ COUNT-IF-NOT˜ŒFIND-IF˜Œ FIND-IF-NOT˜Œ POSITION-IF˜ŒPOSITION-IF-NOT™‚‰™‚£™™‚«™‚¤™‚¥™‚˜“˜Œ CTYPECASE™‚˜“™‚Ž˜“™0˜“™‚Ž™.˜“˜“˜ŒDECF˜ŒINCF™‚ט“™1˜•ŒDELTA˜“˜ŒDECLARE˜“™/˜•Œ DECL-SPECŽ*˜“˜“˜Œ DECODE-FLOAT˜Œ FLOAT-DIGITS˜ŒFLOAT-PRECISION˜Œ FLOAT-RADIX˜ŒINTEGER-DECODE-FLOAT˜ŒFLOAT˜“˜ŒDECODE-UNIVERSAL-TIME˜•ŒUNIVERSAL-TIME™B˜•Œ TIME-ZONE˜“˜“˜Œ DEFCONSTANT˜Œ DEFPARAMETER™N™a˜“™1˜Œ DOCUMENTATION˜“˜ŒDEFINE-MODIFY-MACRO™N˜•Œ LAMBDA-LIST™‚F˜“™1™b˜“˜ŒDEFINE-SETF-METHOD˜•Œ ACCESS-FN™‚ט“™/™‚ŠŽ|™bŽ*˜“™/™.Ž*˜“˜“˜ŒDEFMACRO˜ŒDEFTYPE˜ŒDEFUN™N™‚ט“™‚Ž™‚ŠŽ|™b˜“™‚Ž™.˜“˜ŒDEFSETF™‚Û˜“ ™/˜•Œ UPDATE-FN˜“™1™bŽ|™‚ט“˜•ŒSTORE-VARIABLE˜“™/™‚ŠŽ|™bŽ*˜“™/™.Ž*˜“˜Œ DEFSTRUCT˜•ŒNAME-AND-OPTIONS˜“™1™b˜“™/˜•ŒSLOT-DESCRIPTIONŽ+˜“˜ŒDEFVAR™N˜“™1™a˜“™1™‚Ó˜“ ˜“˜ŒDELETE˜ŒREMOVE™‚™‚£™™‚«™‚™‚™‚¤™‚¥˜ŒCOUNT™‚˜“ ˜“˜ŒDELETE-DUPLICATES˜ŒREMOVE-DUPLICATES™‚£™™‚«™‚™‚™‚¤™‚¥™‚˜“˜“˜Œ DELETE-FILE˜Œ FILE-AUTHOR˜ŒFILE-WRITE-DATE˜Œ PROBE-FILE˜•ŒFILE˜“ ˜“˜Œ DELETE-IF˜Œ DELETE-IF-NOT˜Œ REMOVE-IF˜Œ REMOVE-IF-NOT™‚‰™‚£™™‚«™‚¤™‚¥™‚ü™‚˜“˜“˜Œ DENOMINATOR˜Œ NUMERATOR™‚ý˜“˜“˜Œ DEPOSIT-FIELD˜ŒDPB˜•ŒNEWBYTE™‚ß™‚‰˜“˜Œ DIGIT-CHAR˜•ŒWEIGHT™B˜•ŒRADIX™‚j˜“˜Œ DIGIT-CHAR-P™‚8™B™‚˜“˜“ ˜Œ DIRECTORY˜ŒDIRECTORY-NAMESTRING˜ŒFILE-NAMESTRING˜ŒHOST-NAMESTRING˜Œ NAMESTRING˜ŒPATHNAME˜ŒPATHNAME-DEVICE˜ŒPATHNAME-DIRECTORY˜Œ PATHNAME-HOST˜Œ PATHNAME-NAME˜Œ PATHNAME-TYPE˜ŒPATHNAME-VERSION˜ŒTRUENAME™‚#˜“˜Œ DISASSEMBLE˜•ŒNAME-OR-COMPILED-FUNCTION˜“˜“˜ŒDO˜ŒDO*˜“˜“™‚Ž˜“™2˜“™1˜•ŒINIT˜“™1˜ŒSTEP˜“˜•ŒEND-TEST˜“™‚Ž˜•ŒRESULT˜“™‚Ž™‚Š˜“™‚Ž™‚ŒŽ|™‚˜“˜ŒDO-ALL-SYMBOLS˜“™2˜“™1™‚†˜“™/™‚ŠŽ*˜“™/™‚ŒŽ|™‚Ž*˜“˜“˜ŒDO-EXTERNAL-SYMBOLS˜Œ DO-SYMBOLS˜“™2˜“™1™‚…˜“™1™‚†˜“™/™‚ŠŽ*˜“™/™‚ŒŽ|™‚Ž*˜“™‚Ó™‚Θ•ŒDOC-TYPE˜“˜ŒDOLIST˜“™2˜•ŒLISTFORM˜“™1˜•Œ RESULTFORM˜“™/™‚ŠŽ*˜“™/™‚ŒŽ|™‚Ž*˜“˜ŒDOTIMES˜“™2˜•Œ COUNTFORM˜“™1™‚T˜“™/™‚ŠŽ*˜“™/™‚ŒŽ|™‚Ž*˜“˜ŒDRIBBLE™B™‚#˜“˜ŒED™B™N˜•ŒOPTIONSŽ=˜“˜“™/˜Œ FILEPKGTYPEŽ|˜ŒDISPLAYŽ|˜ŒNEWŽ*˜“˜ŒELT™‚£™‚4˜“ ˜ŒENCODE-UNIVERSAL-TIME™‚˜•ŒMINUTE˜•ŒHOUR˜•ŒDATE˜•ŒMONTH˜•ŒYEAR™B™‚Θ“˜ŒENOUGH-NAMESTRING™‚#™B˜•ŒDEFAULTS˜“˜“˜ŒEQ˜ŒEQL˜ŒEQUAL˜ŒEQUALP™‚¢™‚¡˜“˜“˜ŒERROR˜ŒWARN™‚Ñ™%™‚K˜“˜“˜Œ ETYPECASE˜ŒTYPECASE™‚˜“™/˜“™0˜“™/™.Ž*Ž*˜“˜“˜ŒEVAL˜ŒGET-SETF-METHOD˜ŒGET-SETF-METHOD-MULTIPLE-VALUE™.˜“˜Œ EVAL-WHEN˜“˜“™/˜•Œ SITUATIONŽ*˜“™/™.Ž*˜“˜ŒEVALHOOK™.™‚L™‚M™B™‚N˜“˜“˜ŒEVENP˜ŒINT-CHAR˜ŒINTEGER-LENGTH˜ŒISQRT˜ŒLOGCOUNT˜ŒLOGNOT˜ŒODDP™‚‰˜“˜“˜ŒEVERY˜ŒNOTANY˜ŒNOTEVERY˜ŒSOME™‚ž™‚£™%˜•ŒMORE-SEQUENCES˜“˜“˜ŒEXPORT˜ŒIMPORT˜ŒSHADOW˜ŒSHADOWING-IMPORT˜ŒUNEXPORT˜•ŒSYMBOLS™B™‚…˜“˜ŒEXPT˜•Œ BASE-NUMBER˜•Œ POWER-NUMBER˜“˜Œ FILE-LENGTH˜•Œ FILE-STREAM˜“˜Œ FILE-POSITION™‚²™B™‚Ú˜“˜ŒFILL™‚£™‚™™‚¤™‚¥˜“˜“˜Œ FILL-POINTER˜Œ VECTOR-POP˜ŒVECTOR˜“˜ŒFIND-ALL-SYMBOLS˜•ŒSTRING-OR-SYMBOL˜“˜“˜Œ FIND-PACKAGE˜Œ NAME-CHAR™N˜“˜“˜Œ FIND-SYMBOL˜ŒINTERN™‚S™B™‚…˜“˜“˜ŒFLET˜ŒLABELS˜“˜“™/˜“™N™‚ט“™/™‚ŠŽ|™bŽ*˜“™/™.Ž*Ž*˜“™/™.Ž*˜“™‚Ê™‚ë™B˜•ŒOTHER˜“˜Œ FLOAT-SIGN˜•ŒFLOAT1™B˜•ŒFLOAT2˜“˜ŒFORMAT˜•Œ DESTINATION™‚œ™%™K˜“˜ŒFUNCALL˜•ŒFN™%™K˜“™‚F™‚ܘ“˜“˜ŒGCD˜ŒLOGAND˜ŒLOGEQV˜ŒLOGIOR˜ŒLOGXOR™%˜•ŒINTEGERS˜“˜ŒGENSYM™B™‚¢˜“˜ŒGENTEMP™B˜•ŒPREFIX™‚…˜“˜ŒGET™‚Θ•Œ INDICATOR™B˜•ŒDEFAULT˜“˜“˜ŒGET-DECODED-TIME˜ŒGET-INTERNAL-REAL-TIME˜ŒGET-INTERNAL-RUN-TIME˜ŒGET-UNIVERSAL-TIME˜ŒLISP-IMPLEMENTATION-TYPE˜ŒLISP-IMPLEMENTATION-VERSION˜ŒLIST-ALL-PACKAGES˜ŒLONG-SITE-NAME˜ŒMACHINE-INSTANCE˜Œ MACHINE-TYPE˜ŒMACHINE-VERSION˜ŒMAKE-STRING-OUTPUT-STREAM˜ŒSHORT-SITE-NAME˜Œ SOFTWARE-TYPE˜ŒSOFTWARE-VERSION˜“˜ŒGET-DISPATCH-MACRO-CHARACTER˜•Œ DISP-CHAR˜•ŒSUB-CHAR™B˜Œ READTABLE˜“˜ŒGET-MACRO-CHARACTER™‚8™B™‚˜“˜ŒGET-OUTPUT-STREAM-STRING˜•ŒSTRING-OUTPUT-STREAM˜“˜ŒGET-PROPERTIES™‚ט•ŒINDICATOR-LIST˜“˜ŒGETF™‚×™‚í™B™‚˜ŒGETHASH™‚™‚e™B™‚˜ŒGO™‚Œ˜“˜ŒIF™‚‰˜•ŒTHEN˜“™1˜•ŒELSE˜“˜Œ IN-PACKAGE˜Œ PACKAGE-NAME™˜Œ NICKNAMES˜ŒUSE˜“˜“˜ŒINPUT-STREAM-P˜ŒOUTPUT-STREAM-P˜ŒSTREAM-ELEMENT-TYPE™‚_˜“˜“ ˜Œ INTERSECTION˜Œ NINTERSECTION˜ŒNSET-DIFFERENCE˜ŒNSET-EXCLUSIVE-OR˜ŒNUNION˜ŒSET-DIFFERENCE˜ŒSET-EXCLUSIVE-OR˜ŒSUBSETP˜ŒUNION˜•ŒLIST1˜•ŒLIST2™™‚™‚™‚˜“˜ŒLCM™‚‰™%˜•Œ MORE-INTEGERS˜“˜“˜ŒLDB˜ŒLDB-TEST˜Œ MASK-FIELD™‚ß™‚‰˜“˜ŒLDIFF™‚˜•ŒSUBLIST˜“˜“˜ŒLET˜ŒLET*˜“˜“™/™2Ž|˜“™2™jŽ*˜“™/™‚ŠŽ*˜“™/™.Ž*˜“˜“™‚˜ŒVALUES™%™‚K˜“˜ŒLIST*™‚G™%˜•ŒOTHERS˜“˜ŒLOAD˜•ŒFILENAME™˜ŒVERBOSE˜ŒPRINT˜ŒIF-DOES-NOT-EXIST™ ˜ŒLOADFLG˜“˜ŒLOCALLY˜“™/™‚ŠŽ*˜“™/™.Ž*˜“˜ŒLOG™‚ë™B˜•ŒBASE˜“˜“˜ŒLOGANDC1˜ŒLOGANDC2˜ŒLOGNAND˜ŒLOGNOR˜ŒLOGORC1˜ŒLOGORC2˜ŒLOGTEST™‚À™‚Á˜“˜ŒLOGBITP™‚4™‚‰˜“˜ŒLOOP˜“™/™.Ž*˜“˜“˜Œ MACROEXPAND˜Œ MACROEXPAND-1™.™B™‚N˜“˜ŒMACROLET˜“˜“™/˜“™N˜•ŒVARLIST˜“™/™‚ŠŽ|™bŽ*˜“™/™.Ž*Ž*˜“™/™.Ž*˜“˜Œ MAKE-ARRAY˜•Œ DIMENSIONS™™‚™‚™‚˜Œ ADJUSTABLE™‚™‚™‚™‚˜Œ EXTENDABLE˜Œ READ-ONLY-P™‚˜“˜“˜ŒMAKE-BROADCAST-STREAM˜ŒMAKE-CONCATENATED-STREAM™%˜•ŒSTREAMS˜“˜Œ MAKE-CHAR™‚8™B™‚i™‚j˜“˜ŒMAKE-DISPATCH-MACRO-CHARACTER™‚8™B˜•ŒNON-TERMINATING-P™‚˜“˜“˜ŒMAKE-ECHO-STREAM˜ŒMAKE-TWO-WAY-STREAM™‚T™‚\˜“˜ŒMAKE-HASH-TABLE™™‚˜ŒSIZE˜Œ REHASH-SIZE˜ŒREHASH-THRESHOLD˜“˜“˜Œ MAKE-LIST˜Œ MAKE-STRING™‚Ù™™‚˜“ ˜Œ MAKE-PACKAGE™‚™™‚™‚˜Œ PREFIX-NAME˜ŒINTERNAL-SYMBOLS˜ŒEXTERNAL-SYMBOLS˜Œ EXTERNAL-ONLY˜“ ˜Œ MAKE-PATHNAME™˜ŒHOST˜ŒDEVICE˜Œ DIRECTORY˜ŒNAME™‚™˜ŒVERSION˜ŒDEFAULTS˜“˜ŒMAKE-RANDOM-STATE™B˜•ŒSTATE˜“˜Œ MAKE-SEQUENCE™0™‚Ù™™‚˜“˜ŒMAKE-STRING-INPUT-STREAM™‚S™B˜•ŒSTART˜•ŒEND˜“˜Œ MAKE-SYMBOL˜•Œ PRINT-NAME˜“˜’Œ MAKE-VECTOR™™‚Ÿ™B™0™a˜“˜ŒMAP™‚m™‚F™‚£™%™‚£˜“˜“˜ŒMAPC˜ŒMAPCAN˜ŒMAPCAR˜ŒMAPCON˜ŒMAPL˜ŒMAPLIST™‚F™‚™%˜•Œ MORE-LISTS˜“˜ŒMAPHASH™‚F™‚e˜“˜“˜Œ MEMBER-IF˜Œ MEMBER-IF-NOT™‚ž™‚™™‚˜“˜ŒMERGE™‚m˜•Œ SEQUENCE1˜•Œ SEQUENCE2™‚ž™™‚˜“˜ŒMERGE-PATHNAMES™‚#™B™‚u˜•ŒDEFAULT-VERSION˜“ ˜“˜ŒMISMATCH˜ŒSEARCH™‚¾™‚¿™™‚«™‚™‚™‚˜ŒSTART1˜ŒSTART2˜ŒEND1˜ŒEND2˜“˜“˜ŒMOD˜ŒREM™‚뙂.˜“˜ŒMULTIPLE-VALUE-BIND˜“˜“™/™2Ž*˜•Œ VALUES-FORM˜“™/™‚ŠŽ*˜“™/™.Ž*˜“˜ŒMULTIPLE-VALUE-CALL™‚F˜“™/™.Ž*˜“˜“˜ŒMULTIPLE-VALUE-LIST™‚4™.˜“˜ŒMULTIPLE-VALUE-PROG1™.˜“™/™.Ž*˜“˜ŒMULTIPLE-VALUE-SETQ™o™.˜“˜“˜ŒNOT™‚S™‚¢˜“˜“˜ŒNSTRING-CAPITALIZE˜ŒNSTRING-DOWNCASE˜ŒNSTRING-UPCASE˜ŒSTRING-CAPITALIZE˜ŒSTRING-DOWNCASE˜Œ STRING-UPCASE™‚S™™‚¤™‚¥˜“˜“˜ŒNSUBLIS˜ŒSUBLIS˜•ŒALIST˜•ŒTREE™™‚™‚™‚˜“˜“˜ŒNSUBST˜ŒSUBST˜•ŒNEW˜•ŒOLD™‚ñ™™‚™‚™‚˜“˜“˜Œ NSUBST-IF˜Œ NSUBST-IF-NOT˜ŒSUBST-IF˜Œ SUBST-IF-NOT™‚ö™‚‰™‚ñ™™‚˜“ ˜“˜Œ NSUBSTITUTE˜Œ SUBSTITUTE˜•ŒNEWITEM˜•ŒOLDITEM™‚£™™‚«™‚™‚™‚¤™‚¥™‚ü™‚˜“ ˜“˜ŒNSUBSTITUTE-IF˜ŒNSUBSTITUTE-IF-NOT˜Œ SUBSTITUTE-IF˜ŒSUBSTITUTE-IF-NOT™‚™‚‰™‚£™™‚«™‚¤™‚¥™‚ü™‚˜“˜“˜ŒNTH˜ŒNTHCDR™‚Ö™‚˜“™™‚K™™™‚˜Œ IF-EXISTS™‚N˜ŒEXTERNAL-FORMAT˜“˜“™‚˜ŒPACKAGE-NICKNAMES˜ŒPACKAGE-SHADOWING-SYMBOLS˜ŒPACKAGE-USE-LIST˜ŒPACKAGE-USED-BY-LIST™‚…˜“˜ŒPAIRLIS˜•ŒKEYS˜•ŒDATA™B™‚ ˜“˜Œ PARSE-INTEGER™‚S™™‚¤™‚¥˜ŒRADIX˜Œ JUNK-ALLOWED˜“ ˜ŒPARSE-NAMESTRING˜•ŒTHING™B˜•ŒHOST™‚u™™‚¤™‚¥™‚˜“˜Œ PEEK-CHAR™B˜•Œ PEEK-TYPE™‚T˜•Œ EOF-ERROR-P˜•Œ EOF-VALUE˜•Œ RECURSIVE-P˜“˜ŒPOP™‚ט“˜“˜ŒPPRINT˜ŒPRIN1˜ŒPRINC˜ŒPRINT™‚†™B™‚\˜“˜ŒPROCLAIM™‚Á˜“˜“˜ŒPROG˜ŒPROG*˜“˜“™/™2Ž|˜“™2˜“™1™‚3Ž*˜“™/™‚ŠŽ*˜“™/™‚ŒŽ|™‚Ž*˜“˜ŒPROG1™‚˜“™/™.Ž*˜“˜ŒPROG2™‚™‚˜“™/™.Ž*˜“˜ŒPROGV™‚«™‚D˜“™/™.Ž*˜“˜ŒPROVIDE˜•Œ MODULE-NAME˜“˜“˜ŒPSETF˜ŒSETF˜“™/™‚×™#Ž*˜“˜“˜ŒPSETQ˜ŒSETQ˜“™/™2™.Ž*˜“˜ŒPUSH™‚™‚ט“˜ŒPUSHNEW™‚™‚™™‚™‚™‚˜“˜ŒQUOTE™‚†˜“˜ŒRANDOM™‚ë™B™‚Ÿ˜“˜“˜ŒREAD˜Œ READ-CHAR˜ŒREAD-CHAR-NO-HANG˜Œ READ-LINE™B™‚T™‚&™‚'™‚(˜“˜Œ READ-BYTE˜•ŒBINARY-INPUT-STREAM™B™‚&™‚'˜“˜ŒREAD-DELIMITED-LIST™‚8™B™‚T™‚(˜“ ˜ŒREAD-FROM-STRING™‚S™B™‚&™‚'™™‚¤™‚¥˜ŒPRESERVE-WHITESPACE˜“˜ŒREAD-PRESERVING-WHITESPACE™B˜•Œ IN-STREAM™‚&™‚'™‚(˜“˜ŒREDUCE™‚F™‚£™™‚«™‚¤™‚¥˜Œ INITIAL-VALUE˜“˜ŒREMF™‚×™‚혓˜ŒREMHASH™‚™‚e˜“˜ŒREMPROP™‚Ι‚혓˜Œ RENAME-FILE™‚˜•ŒNEW-NAME˜“˜ŒRENAME-PACKAGE™‚…™‚w™B˜•Œ NEW-NICKNAMES˜“˜ŒREPLACE™‚¾™‚¿™™‚Ç™‚É™‚È™‚ʘ“˜ŒREQUIRE™‚H™B™‚#˜“˜ŒRETURN˜“™1™‚;˜“˜Œ RETURN-FROM™N˜“™1™‚;˜“˜ŒROTATEF˜“™/™‚׎*˜“˜ŒSBIT˜•ŒSIMPLE-BIT-ARRAY™%™‚Y˜“˜Œ SCALE-FLOAT™‚Ê™‚‰˜“˜ŒSCHAR˜Œ SIMPLE-STRING™‚4˜“˜ŒSET™‚Ιj˜“˜Œ SET-CHAR-BIT™‚8™N™#˜“˜ŒSET-DISPATCH-MACRO-CHARACTER™‚™‚™‚F™B™‚˜“˜ŒSET-MACRO-CHARACTER™‚8™‚F™B™‚™‚˜“˜ŒSET-SYNTAX-FROM-CHAR˜•ŒTO-CHAR˜•Œ FROM-CHAR™B™‚œ™‚›˜“˜ŒSHIFTF˜“™/™‚׎+™#˜“˜ŒSLEEP˜•ŒSECONDS˜“˜“˜ŒSORT˜Œ STABLE-SORT™‚£™‚ž™™‚˜“˜ŒSTREAM-EXTERNAL-FORMAT™‚_˜“˜“ ˜Œ STRING-EQUAL˜ŒSTRING-GREATERP˜Œ STRING-LESSP˜ŒSTRING-NOT-EQUAL˜ŒSTRING-NOT-GREATERP˜ŒSTRING-NOT-LESSP˜ŒSTRING/=˜ŒSTRING<˜ŒSTRING<=˜ŒSTRING=˜ŒSTRING>˜ŒSTRING>=˜•ŒSTRING1˜•ŒSTRING2™™‚Ç™‚É™‚È™‚ʘ“˜“˜ŒSTRING-LEFT-TRIM˜ŒSTRING-RIGHT-TRIM˜Œ STRING-TRIM˜•Œ CHARACTER-BAG™‚S˜“˜ŒSUBSEQ™‚£™‚¤™B™‚¥˜“˜ŒSUBTYPEP˜•ŒTYPE1˜•ŒTYPE2˜“˜ŒSVREF˜Œ SIMPLE-VECTOR™‚4˜“˜“˜Œ SYMBOL-NAME˜ŒSYMBOL-PACKAGE™‚¦˜“˜ŒTAGBODY˜“™/™‚ŒŽ|™‚Ž*˜“˜ŒTAILP™‚9™‚˜“˜ŒTHE˜•Œ VALUE-TYPE™.˜“˜ŒTHROW™‚Œ™‚;˜“˜ŒTIME™.™˜ŒREPEAT™˜Œ DATA-TYPES˜“˜“˜ŒTRACE˜ŒUNTRACE˜“™/˜•Œ FUNCTION-NAMEŽ*˜“˜Œ TREE-EQUAL™‚¢™‚¡™™‚™‚˜“˜ŒTYPEP™‚†™0˜“˜ŒUNINTERN™‚ΙB™‚…˜“˜“˜ŒUNLESS˜ŒWHEN™‚‰˜“™/™.Ž*˜“˜Œ UNREAD-CHAR™‚a™B™‚T˜“˜Œ UNUSE-PACKAGE˜•ŒPACKAGES-TO-UNUSE™B™‚…˜“˜ŒUNWIND-PROTECT˜•ŒPROTECTED-FORM˜“™/˜•Œ CLEANUP-FORMŽ*˜“˜Œ USE-PACKAGE˜•ŒPACKAGES-TO-USE™B™‚…˜“˜ŒUSER-HOMEDIR-PATHNAME™B™‚"˜“™‚»™%˜•ŒOBJECTS˜“˜Œ VECTOR-PUSH˜•Œ NEW-ELEMENT™‚»˜“˜ŒVECTOR-PUSH-EXTEND™‚ý™‚»™B˜•Œ EXTENSION˜“˜ŒWITH-INPUT-FROM-STRING˜“™2™‚S˜“™/˜ŒKEYWORD™jŽ*˜“™/™‚ŠŽ*˜“™/™.Ž*˜“˜ŒWITH-OPEN-FILE˜“™‚_™‚K˜“™/™‚dŽ*˜“™/™‚ŠŽ*˜“™/™.Ž*˜“˜ŒWITH-OPEN-STREAM˜“™2™‚_˜“™/™‚ŠŽ*˜“™/™.Ž*˜“˜ŒWITH-OUTPUT-TO-STRING˜“™2˜“™1™‚S˜“™/™‚ŠŽ*˜“™/™.Ž*˜“˜ŒWRITE™‚†™˜ŒSTREAM˜ŒESCAPE™‚˜ŒBASE˜ŒCIRCLE˜ŒPRETTY˜ŒLEVEL˜ŒLENGTH˜ŒCASE˜ŒGENSYM˜ŒARRAY˜“˜Œ WRITE-BYTE™‚‰˜•ŒBINARY-OUTPUT-STREAM˜“˜Œ WRITE-CHAR™‚a™B™‚\˜“˜“˜Œ WRITE-LINE˜Œ WRITE-STRING™‚S™B™‚\™™‚¤™‚¥˜“ ˜ŒWRITE-TO-STRING™‚†™™‚™‚™‚™‚™‚™‚ ™‚!™‚"™‚#™‚$˜“˜“˜ŒY-OR-N-P˜Œ YES-OR-NO-P™B™‚Ñ™%™K˜“˜“˜•ŒVARS™™˜“˜•Œ FUNCTIONS˜•Œ ARGINFO-MUNG˜•Œ CLSMARTEN˜“˜•ŒDECLARE:˜•Œ DONTEVAL@LOAD˜•ŒDOCOPY˜“˜•ŒP˜“™‚:™˜“™‚:™˜“˜•ŒSETQ™˜“™‚B™˜“™‚X˜•ŒNOBIND˜“˜•ŒPROP˜•ŒFILETYPE™ ˜“˜”˜Œ27-Feb-91 19:20:13•Œ6{DSK}project2>lispcore>sources>CMLSMARTARGS.;2œ™‚9˜–‚Ð@¸h¹hºh»H¡IH\‘i€h¢±™L]gð² oL o °rMgð² oL o °KMgð²#oL ooh °!oL o ‚Lh»J”JK¿K¹K‘i€h–K ºH¸±ÿ<™‚9™˜“˜“˜ŒLST ‚Ä™‚‚¨˜•Œ\NCONC2‚£™‚Ž‚™™‚9‚‹™‚Ty™‚9a™‚T\™‚ŽR™‚9:™‚T5™‚Ž+™‚9j™‚ŽC™/™1 ‚žŽ)‚“Ž(‚ƒŽ*~Ž}rŽ{WŽ}KŽ{0Ž]$Ž[œ™‚:˜–‚éi@»h¼K‘Kh¼h½h¾L_’OƒLh_¿h_¿O’O‚±´_¿h_¿`WioW  O¹nÝ_¿OO o h_¿g‚h¹gð’O€h^‘h€i_“O°&N^‘h€i_’O…N‘i€h‘h€i_’O†O ²OghM‘M‡L ]N ¿O_¿±ÿIK»±ÿ# ˜’Œ*CATCH-RETURN-PC*˜‘˜ŒSYSTEM ˜•Œ*CONDITION-HANDLER-BINDINGS* ˜’Œ *NLSETQFLAG*™‚W ˜•Œ*PROCEED-CASES*˜•Œ NOSPELLFLG˜’Œ*CATCH-RETURN-TO*™‚W™‚[™‚Y™‚:™˜“˜“˜ŒFNLIST‚Ô™‚Ë™‚9‚¶™‚Æj˜•Œ SMARTARGLISTe˜•ŒMEMB[˜•ŒARGTYPE‚¿˜•ŒARGNAMES‚€˜ŒNORMALt™‚e:˜’ŒNLSETQ-PROCEED-CASE™‚W`˜“C˜”™‚}’Œ NLSETQHANDLER™‚W˜–/P ¿Q ¿gcc¿o ¿o ™™˜Œ5 top-level forms™˜“€)˜•ŒPUTPROPS™‚l ™‚:™‚:™‚C$˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚ÂĂłƂǘ“™™‚J˜Œ COMPILE-FILEš‚tÿÿ