XCL Compiler output for source file {DSK}export>lispcore>sources>CLTL2>COMMON-LISP-PACKAGE.;1 Source file created Friday, 22 October 1993, 15:13:22. FASL file created Thursday, 4 November 1993, 10:58:38. #ogg o FILECREATEDLOC*STANDARD-INPUT*1 top-level formFUNCTIONDEFINE-FILE-INFOOPEN OUTPUT DIRECTION READTABLEXCLPACKAGE INTERLISP{Null}!ggo o2 top-level formsPUTPROPCOMMON-LISP-PACKAGECOMS FILEDATESCOMMON-LISP-PACKAGE VARIABLES*COMMON-LISP-PACKAGE* NEWCLSYMS OLDCLSYMS XCLCLSYMS SPLITCLSYMS STRANGECLSYMS FUNCTIONS CRUNCH-FILESCREATE-CL-PACKAGEFLIP-CLPROPFILETYPE  8-Apr-92 23:35:08;{DSK}local>lde>lispcore>sources>COMMON-LISP-PACKAGE.;44o g Xhggo "DEFGLOBALVAR *COMMON-LISP-PACKAGE*.SET-DOCUMENTATIONBOUNDPPROCLAIM$VARIABLE )1Place holder for the COMMON-LISP package variableGLOBALXEROX-COMMON-LISPo ocCL:DEFPARAMETER NEWCLSYMS/ *BREAK-ON-SIGNALS**COMPILE-FILE-PATHNAME**COMPILE-FILE-TRUENAME**COMPILE-PRINT**COMPILE-VERBOSE**DEBUGGER-HOOK**LOAD-PATHNAME* *LOAD-PRINT**LOAD-TRUENAME* *PRINT-LINES**PRINT-MISER-WIDTH**PRINT-PPRINT-DISPATCH**PRINT-READABLY**PRINT-RIGHT-MARGIN* *READ-EVAL*ABORTAUGMENT-ENVIRONMENTBASE-CHARACTER BASE-STRINGBROADCAST-STREAMBROADCAST-STREAM-STREAMSCELL-ERROR-NAMECOMPILE-FILE-PATHNAMECOMPILER-MACRO-FUNCTIONCOMPILER-MACROEXPANDCOMPILER-MACROEXPAND-1 COMPLEMENTCOMPUTE-RESTARTSCONCATENATED-STREAMCONCATENATED-STREAM-STREAMS CONDITIONCONTINUECOPY-PPRINT-DISPATCHDECLAIMDECLARATION-INFORMATIONDEFINE-COMPILER-MACRODEFINE-CONDITIONDEFINE-DECLARATIONDESTRUCTURING-BINDDIVISION-BY-ZERODYNAMIC-EXTENT ECHO-STREAMECHO-STREAM-INPUT-STREAMECHO-STREAM-OUTPUT-STREAMENCLOSE END-OF-FILEEXTENDED-CHARACTER FDEFINITION FILE-ERRORFILE-ERROR-PATHNAME FILE-STREAMFILE-STRING-LENGTH FIND-RESTARTFLOATING-POINT-INEXACT FLOATING-POINT-INVALID-OPERATIONFLOATING-POINT-OVERFLOWFLOATING-POINT-UNDERFLOW FORMATTERFUNCTION-INFORMATIONFUNCTION-LAMBDA-EXPRESSION HANDLER-CASE HANDLER-BINDHASH-TABLE-REHASH-SIZEHASH-TABLE-REHASH-THRESHOLDHASH-TABLE-SIZEHASH-TABLE-TEST IGNORE-ERRORSINTERACTIVE-STREAM-PINVOKE-DEBUGGERINVOKE-RESTARTINVOKE-RESTART-INTERACTIVELY&LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT$LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT%LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT&LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT&LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT$LEAST-POSITIVE-NORMALIZED-LONG-FLOAT%LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT&LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT"LOAD-LOGICAL-PATHNAME-TRANSLATIONSLOAD-TIME-EVALLOAD-TIME-VALUELOGICAL-PATHNAMELOGICAL-PATHNAME-TRANSLATIONSMAKE-CONDITIONMAKE-LOAD-FORMMAKE-LOAD-FORM-SAVING-SLOTSMAP-INTOMUFFLE-WARNING NTH-VALUE OPEN-STREAM-P PACKAGE-ERROR PARSE-ERROR PARSE-MACROPATHNAME-MATCH-PPPRINT-DISPATCHPPRINT-EXIT-IF-LIST-EXHAUSTED PPRINT-FILL PPRINT-INDENT PPRINT-LINEARPPRINT-LOGICAL-BLOCKPPRINT-NEWLINE PPRINT-POP PPRINT-TABPPRINT-TABULARPRINT-NOT-READABLEPRINT-UNREADABLE-OBJECT PROGRAM-ERROR READER-ERRORREADTABLE-CASEREADTABLE-CASEREALREALPRESTART RESTART-BIND RESTART-CASESET-PPRINT-DISPATCHSIMPLE-BASE-STRING!SIMPLE-CONDITION-FORMAT-ARGUMENTSSIMPLE-CONDITION-FORMAT-STRING STORE-VALUESTREAM-ERROR-STREAMSTREAM-EXTERNAL-FORMAT STRING-STREAM STYLE-WARNINGSYNONYM-STREAMSYNONYM-STREAM-SYMBOLTRANSLATE-LOGICAL-PATHNAMETRANSLATE-PATHNAMETWO-WAY-STREAMTWO-WAY-STREAM-INPUT-STREAMTWO-WAY-STREAM-OUTPUT-STREAMTYPE-ERROR-DATUM UNBOUND-SLOTUNBOUND-VARIABLEUPGRADED-ARRAY-ELEMENT-TYPEUPGRADED-COMPLEX-PART-TYPE USE-VALUEVARIABLE-INFORMATIONWILD-PATHNAME-PWITH-COMPILATION-UNITWITH-CONDITION-RESTARTSWITH-HASH-TABLE-ITERATORWITH-PACKAGE-ITERATORWITH-SIMPLE-RESTARTWITH-STANDARD-IO-SYNTAXSPECIAL)o ocggo CL:DEFPARAMETER OLDCLSYMS#-/0&Symbols in LISP and not in COMMON-LISP COMMONCOMMONP STRING-CHAR STRING-CHAR-PINT-CHAR COMPILER-LETCHAR-BIT SET-CHAR-BIT *MODULES*PROVIDEREQUIRECHAR-FONT-LIMITCHAR-BITS-LIMIT CHAR-BITS CHAR-FONT MAKE-CHARCHAR-CONTROL-BIT CHAR-META-BITCHAR-SUPER-BITCHAR-HYPER-BIT*BREAK-ON-WARNINGS*̙o ocCL:DEFPARAMETER XCLCLSYMS/ ,ABORTARITHMETIC-ERRORARITHMETIC-ERROR-OPERANDSARITHMETIC-ERROR-OPERATIONBROADCAST-STREAM-STREAMS CELL-ERRORCELL-ERROR-NAMECONCATENATED-STREAM-STREAMS CONDITION CONTROL-ERRORDEFINE-CONDITION DEFPACKAGEDESTRUCTURING-BINDDELETE-PACKAGEECHO-STREAM-INPUT-STREAMECHO-STREAM-OUTPUT-STREAM END-OF-FILE HANDLER-BIND IGNORE-ERRORSMAKE-CONDITION OPEN-STREAM-P PACKAGE-ERRORPACKAGE-ERROR-PACKAGESERIOUS-CONDITIONSIGNALSIMPLE-CONDITION!SIMPLE-CONDITION-FORMAT-ARGUMENTSSIMPLE-CONDITION-FORMAT-STRING SIMPLE-ERRORSIMPLE-TYPE-ERRORSIMPLE-WARNINGSTORAGE-CONDITION STORE-VALUE STREAM-ERRORSTREAM-ERROR-STREAMSYNONYM-STREAM-SYMBOLTWO-WAY-STREAM-INPUT-STREAMTWO-WAY-STREAM-OUTPUT-STREAM TYPE-ERRORTYPE-ERROR-EXPECTED-TYPEUNBOUND-VARIABLEUNDEFINED-FUNCTION USE-VALUEWARNING̙o ocCL:DEFPARAMETER SPLITCLSYMS/ LOCALLY IN-PACKAGE̙)o ocggo CL:DEFPARAMETER STRANGECLSYMS#-/0BSymbols in CL that are predefined in the loadup in another package LISP SIMPLE-STRING*GENSYM-COUNTER*XCLROW-MAJOR-AREF̙@@d3@h@hb@hHHhioI g Ig g Ig Io I I ioI HFL FORMATrFAKE-COMPILE-FILEj COMPILE-FILEc PROBE-FILE^CONCATRMAKEFILEF!;LOAD/!$2MNEWANOWHERE6ALLPROP*LISPyDone crunching ~a~%Y.DFASLCrunching ~a~% o ohh o -ogh ogo hhhhhhWhKK\` HI KWhLL[` HJ Lhhhhh_h_h_`_`_jO_O_OO_O_OM _LO:OhNLkML [H'_h_OIKH OJ'K ` ` KH VOoKO AK ` _OKK` K` K` Lk_=W_h_OOM_ _hOhMM+\O ^N` N` MO_o _W _hOO4^O ` N` ` O_h_ho _@o_h_OO,_O ^` N` O_o _`O `O h_h_hhhh_h_O_O_j_O_O_OO_O_OL OK:Oh_ZMOkGLO _ ` _O` O` O` Ok__W"_h_OO"_` ` O_g   0!蘏EXPORTޘINTERNBIMPORTSHADOWING-IMPORT FIND-SYMBOL SYMBOL-NAMEy\INDEXATOMPNAMEWARRAY-TOTAL-SIZE򘏌 USE-PACKAGE嘏 UNUSE-PACKAGEӘ FIND-PACKAGEBDFLnBdFXDNF3LBDF療LÙBDEFGERRORmREMPROPeB[CQGAN'HIPUTFtOmFI MAKE-PACKAGE/PLRENAME-PACKAGEL% COMMON-LISPٙ*PACKAGE-HASHTABLE#PACKAGESTޘ*LISP-PACKAGE*i_S `VٙSҙT͙UÙSTUUhU?USE4)V Θ CONDITIONS*PRINT-PPRINT-DISPATCH**PPRINT-RIGHT-MARGIN**PPRINT-MISER-WIDTH*PPRINT-NEWLINEPPRINT-LOGICAL-BLOCKPPRINT-EXIT-IF-LIST-EXHAUSTED PPRINT-POP PPRINT-INDENT PPRINT-TAB PPRINT-FILL PPRINT-LINEARPPRINT-TABULAR FORMATTERCOPY-PPRINT-DISPATCHPPRINT-DISPATCHSET-PPRINT-DISPATCHXP.XCLy8Garbage on property list during LISP->COMMON-LISP importD COMMON-LISPXCL:COMMON-LISP-USER$ COMMON-LISP COMMON-LISP LISPLISP!o X`g$H`gHoH g@g0`ohh `ooo z@g0`ohh `ooo C@g(`ohh `ohh hg@o H!WHERE 昕 ECASE-FAILҙQQQQlQRQ1MLۘWHEREƙU:}UuRXUF><7:"<UR  ᘓ<R:˘ COMMON-LISPLISPCLCL COMMON-LISPLISPgCLbCL]LISPK COMMON-LISP+CL nickname in odd packageCLo o 2 top-level formsPUTPROPS  COPYRIGHTVenue Corporationǂ$ COMPILE-FILE