(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "COMPILER" (USE "LISP" "XCL"))) (IL:FILECREATED "19-Jan-93 11:27:11" IL:|{DSK}lde>lispcore>sources>XCLC-DATABASE.;2| 45494 IL:|previous| IL:|date:| "23-May-90 12:57:24" IL:|{DSK}lde>lispcore>sources>XCLC-DATABASE.;1|) ; Copyright (c) 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporation. All rights reserved. (IL:PRETTYCOMPRINT IL:XCLC-DATABASECOMS) (IL:RPAQQ IL:XCLC-DATABASECOMS ( (IL:* IL:|;;;| "The XCL Compiler's database of information about the properties of functions and other constructs.") (IL:DEFINE-TYPES COMPILER-DATA) (IL:* IL:|;;| "Side Effects (The first keyword is the effects of the function itself and the second is those effects that can affect the running of the function.)") (IL:FUNCTIONS DECLARE-SIDE-EFFECTS SIDE-EFFECTS) (IL:SETFS SIDE-EFFECTS) (IL:PROP IL:PROPTYPE SIDE-EFFECTS-DATA) (COMPILER-DATA ( "Side-effects data for CLtL, Chapter 4: Type Specifiers" (:CONS) :NONE) ("Side-effects data for CLtL, Chapter 4: Type Specifiers" :NONE :NONE) ("Side-effects data for CLtL, Chapter 6: Predicates" :NONE :NONE) ( "Side-effects data for CLtL, Chapter 7: Control Structure" (:CONS) :ANY) ( "Side-effects data for CLtL, Chapter 7: Control Structure" :ANY :NONE) ( "Side-effects data for CLtL, Chapter 7: Control Structure" :NONE :ANY) ( "Side-effects data for CLtL, Chapter 7: Control Structure" :ANY :ANY) ("Side-effects data for CLtL, Chapter 8: Macros" :ANY :ANY ) ("Side-effects data for CLtL, Chapter 8: Macros" :NONE :ANY) ("Side-effects data for CLtL, Chapter 9: Declarations" :ANY :ANY) ("Side-effects data for CLtL, Chapter 10: Symbols" :NONE :ANY) ("Side-effects data for CLtL, Chapter 10: Symbols" :ANY :ANY) ("Side-effects data for CLtL, Chapter 10: Symbols" (:CONS CL::*GENSYM-PREFIX* CL::*GENSYM-COUNTER*) (CL::*GENSYM-PREFIX* CL::*GENSYM-COUNTER*)) ("Side-effects data for CLtL, Chapter 10: Symbols" (:CONS) :NONE) ("Side-effects data for CLtL, Chapter 10: Symbols" (:CONS) :ANY) ("Side-effects data for CLtL, Chapter 10: Symbols" :NONE :NONE) ("Side-effects data for CLtL, Chapter 11: Packages" :NONE :ANY) ("Side-effects data for CLtL, Chapter 11: Packages" :ANY :ANY) ("Side-effects data for CLtL, Chapter 12: Numbers" (:CONS) :NONE) ("Side-effects data for CLtL, Chapter 12: Numbers" :ANY :ANY) ("Side-effects data for CLtL, Chapter 12: Numbers" :NONE :NONE) ("Side-effects data for CLtL, Chapter 13: Characters" :NONE :NONE) ("Side-effects data for CLtL, Chapter 14: Sequences" :ANY :ANY) ("Side-effects data for CLtL, Chapter 14: Sequences" :NONE :ANY) ("Side-effects data for CLtL, Chapter 14: Sequences" (:CONS) :ANY) ("Side-effects data for CLtL, Chapter 15: Lists" :NONE :NONE) ("Side-effects data for CLtL, Chapter 15: Lists" (:CONS) :NONE) ("Side-effects data for CLtL, Chapter 15: Lists" :ANY :ANY ) ("Side-effects data for CLtL, Chapter 15: Lists" :ANY :NONE) ("Side-effects data for CLtL, Chapter 16: Hash Tables" :ANY :NONE) ("Side-effects data for CLtL, Chapter 16: Hash Tables" :ANY :ANY) ("Side-effects data for CLtL, Chapter 16: Hash Tables" :NONE :ANY) ("Side-effects data for CLtL, Chapter 16: Hash Tables" :NONE :NONE) ("Side-effects data for CLtL, Chapter 16: Hash Tables" (:CONS) :NONE) ("Side-effects data for CLtL, Chapter 17: Arrays" :NONE :NONE) ("Side-effects data for CLtL, Chapter 17: Arrays" :NONE :ANY) ("Side-effects data for CLtL, Chapter 17: Arrays" (:CONS) :NONE) ("Side-effects data for CLtL, Chapter 17: Arrays" :ANY :ANY) ("Side-effects data for CLtL, Chapter 18: Strings" :ANY :ANY) ("Side-effects data for CLtL, Chapter 18: Strings" (:CONS) :NONE) ("Side-effects data for CLtL, Chapter 18: Strings" (:CONS) :ANY) ("Side-effects data for CLtL, Chapter 18: Strings" :NONE :NONE) ("Side-effects data for CLtL, Chapter 18: Strings" :NONE :ANY) ("Side-effects data for CLtL, Chapter 20: The Evaluator" :NONE :ANY) ("Side-effects data for CLtL, Chapter 20: The Evaluator" :ANY :ANY) ("Side-effects data for CLtL, Chapter 21: Streams" (:CONS) :ANY) ("Side-effects data for CLtL, Chapter 21: Streams" (:CONS) :NONE) ("Side-effects data for CLtL, Chapter 21: Streams" :ANY :NONE) ("Side-effects data for CLtL, Chapter 21: Streams" :NONE :NONE) ("Side-effects data for CLtL, Chapter 21: Streams" :ANY :ANY) ("Side-effects data for CLtL, Chapter 22: Input/Output" :NONE :NONE) ("Side-effects data for CLtL, Chapter 22: Input/Output" :ANY :ANY) ("Side-effects data for CLtL, Chapter 22: Input/Output" :NONE :ANY) ("Side-effects data for CLtL, Chapter 22: Input/Output" (:CONS) :ANY) ( "Side-effects data for CLtL, Chapter 23: File System Interface" :NONE :ANY) ( "Side-effects data for CLtL, Chapter 23: File System Interface" (:CONS) :ANY) ( "Side-effects data for CLtL, Chapter 23: File System Interface" :ANY :ANY) ( "Side-effects data for CLtL, Chapter 23: File System Interface" :NONE :NONE) ("Side-effects data for CLtL, Chapter 24: Errors" :ANY :ANY) ( "Side-effects data for CLtL, Chapter 25: Miscellaneous Features" :NONE :ANY) ( "Side-effects data for CLtL, Chapter 25: Miscellaneous Features" :ANY :ANY) ( "Side-effects data for CLtL, Chapter 25: Miscellaneous Features" :ANY :NONE) ( "Side-effects data for CLtL, Chapter 25: Miscellaneous Features" :NONE :NONE) ("Side-effects data for IRM, Chapter 2: Litatoms" :ANY :NONE) ("Side-effects data for IRM, Chapter 2: Litatoms" :NONE :ANY) ("Side-effects data for IRM, Chapter 2: Litatoms" :NONE :NONE) ("Side-effects data for IRM, Chapter 2: Litatoms" :ANY :ANY) ("Side-effects data for IRM, Chapter 2: Litatoms" (:CONS) :ANY) ("Side-effects data for IRM, Chapter 3: Lists" :NONE :NONE ) ("Side-effects data for IRM, Chapter 3: Lists" :ANY :ANY) ("Side-effects data for IRM, Chapter 3: Lists" :ANY :NONE) ("Side-effects data for IRM, Chapter 3: Lists" (:CONS) :NONE) ("Side-effects data for IRM, Chapter 3: Lists" (:CONS) :ANY) ("Side-effects data for IRM, Chapter 3: Lists" :NONE :ANY) ("Side-effects data for IRM, Chapter 4: Strings" (:CONS) :ANY) ("Side-effects data for IRM, Chapter 4: Strings" :NONE :ANY) ("Side-effects data for IRM, Chapter 4: Strings" :NONE :NONE) ("Side-effects data for IRM, Chapter 4: Strings" :ANY :ANY ) ("Side-effects data for IRM, Chapter 5: Arrays" :ANY :NONE ) ("Side-effects data for IRM, Chapter 5: Arrays" :NONE :ANY ) ("Side-effects data for IRM, Chapter 5: Arrays" :NONE :NONE) ("Side-effects data for IRM, Chapter 5: Arrays" (:CONS) :ANY) ("Side-effects data for IRM, Chapter 6: Hash Arrays" :ANY :ANY) ("Side-effects data for IRM, Chapter 6: Hash Arrays" :NONE :NONE) ("Side-effects data for IRM, Chapter 6: Hash Arrays" (:CONS) :NONE) ("Side-effects data for IRM, Chapter 6: Hash Arrays" (:CONS) :ANY) ("Side-effects data for IRM, Chapter 6: Hash Arrays" :NONE :ANY) ("Side-effects data for IRM, Chapter 6: Hash Arrays" :ANY :NONE) ( "Side-effects data for IRM, Chapter 7: Numbers and Arithmetic Functions" :ANY :ANY) ( "Side-effects data for IRM, Chapter 7: Numbers and Arithmetic Functions" :NONE :NONE) ( "Side-effects data for IRM, Chapter 7: Numbers and Arithmetic Functions" :ANY :NONE) ("Side-effects data for IRM, Chapter 8: Record Package" :NONE :ANY) ("Side-effects data for IRM, Chapter 8: Record Package" :ANY :ANY) ( "Side-effects data for IRM, Chapter 9: Conditionals and Iterative Statements" :NONE :NONE) ( "Side-effects data for IRM, Chapter 9: Conditionals and Iterative Statements" :NONE :ANY) ( "Side-effects data for IRM, Chapter 9: Conditionals and Iterative Statements" :ANY :ANY) ( "Side-effects data for IRM, Chapter 10: Function Definition, Manipulation, and Evaluation" :ANY :NONE) ( "Side-effects data for IRM, Chapter 10: Function Definition, Manipulation, and Evaluation" :NONE :ANY) ( "Side-effects data for IRM, Chapter 10: Function Definition, Manipulation, and Evaluation" :ANY :ANY) ( "Side-effects data for IRM, Chapter 10: Function Definition, Manipulation, and Evaluation" :NONE :NONE) ( "Side-effects data for IRM, Chapter 11: Variable Bindings and the Interlisp Stack" :NONE :ANY) ( "Side-effects data for IRM, Chapter 11: Variable Bindings and the Interlisp Stack" :ANY :NONE) ( "Side-effects data for IRM, Chapter 11: Variable Bindings and the Interlisp Stack" :ANY :ANY) ( "Side-effects data for IRM, Chapter 11: Variable Bindings and the Interlisp Stack" :NONE :NONE) ("Side-effects data for IRM, Chapter 12: Miscellaneous" :NONE :NONE) ("Side-effects data for IRM, Chapter 12: Miscellaneous" :ANY :ANY) ("Side-effects data for IRM, Chapter 12: Miscellaneous" :NONE :ANY) ("Side-effects data for Pointer reads" :NONE :NONE) ("Side-effects data for Internal functions in CMLARITH" :NONE :NONE)) (IL:* IL:|;;| "Arrange for the correct compiler to be used.") (IL:PROP IL:FILETYPE IL:XCLC-DATABASE) (IL:* IL:|;;| "Set up the correct package environment.") (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:XCLC-DATABASE))) (IL:* IL:|;;;| "The XCL Compiler's database of information about the properties of functions and other constructs.") (DEF-DEFINE-TYPE COMPILER-DATA "XCL Compiler information") (IL:* IL:|;;| "Side Effects (The first keyword is the effects of the function itself and the second is those effects that can affect the running of the function.)" ) (DEFDEFINER (DECLARE-SIDE-EFFECTS (:NAME (LAMBDA (WHOLE) (LIST (FORMAT NIL "Side-effects data for ~A" (SECOND WHOLE)) (THIRD WHOLE) (FOURTH WHOLE))))) COMPILER-DATA (TITLE EFFECTS AFFECTED &REST FUNCTIONS ) (COND ((AND (OR (EQ EFFECTS :NONE) (EQ EFFECTS :ANY) (LISTP EFFECTS)) (OR (EQ AFFECTED :NONE) (EQ AFFECTED :ANY) (LISTP AFFECTED))) `(LET ((DATA ',(CONS EFFECTS AFFECTED))) ,@(MAPCAR #'(LAMBDA (F) `(SETF (SIDE-EFFECTS ',F) DATA)) FUNCTIONS))) (T (CERROR "Ignore the declaration" "Malformed side-effects descriptor in DECLARE-SIDE-EFFECTS: ~S" (CONS EFFECTS AFFECTED)) NIL))) (DEFUN SIDE-EFFECTS (NAME) (GET NAME 'SIDE-EFFECTS-DATA)) (DEFSETF SIDE-EFFECTS (NAME) (DATA) `(IL:PUTPROP ,NAME 'SIDE-EFFECTS-DATA ,DATA)) (IL:PUTPROPS SIDE-EFFECTS-DATA IL:PROPTYPE IGNORE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 4: Type Specifiers" (:CONS) :NONE COERCE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 4: Type Specifiers" :NONE :NONE TYPE-OF) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 6: Predicates" :NONE :NONE TYPEP SUBTYPEP NULL SYMBOLP ATOM CONSP LISTP NUMBERP INTEGERP RATIONALP FLOATP COMPLEXP CHARACTERP STRINGP BIT-VECTOR-P VECTORP SIMPLE-VECTOR-P SIMPLE-STRING-P SIMPLE-BIT-VECTOR-P ARRAYP PACKAGEP FUNCTIONP COMPILED-FUNCTION-P COMMONP EQ EQL EQUAL EQUALP NOT) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 7: Control Structure" (:CONS) :ANY GET-SETF-METHOD GET-SETF-METHOD-MULTIPLE-VALUE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 7: Control Structure" :ANY :NONE SET MAKUNBOUND FMAKUNBOUND) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 7: Control Structure" :NONE :ANY SYMBOL-VALUE SYMBOL-FUNCTION BOUNDP FBOUNDP SPECIAL-FORM-P VALUES VALUES-LIST) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 7: Control Structure" :ANY :ANY APPLY FUNCALL MAPCAR MAPLIST MAPC MAPL MAPCAN MAPCON) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 8: Macros" :ANY :ANY MACROEXPAND MACROEXPAND-1) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 8: Macros" :NONE :ANY MACRO-FUNCTION) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 9: Declarations" :ANY :ANY PROCLAIM) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 10: Symbols" :NONE :ANY SYMBOL-PLIST GETF GET GET-PROPERTIES SYMBOL-NAME SYMBOL-PACKAGE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 10: Symbols" :ANY :ANY REMF REMPROP) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 10: Symbols" (:CONS CL::*GENSYM-PREFIX* CL::*GENSYM-COUNTER* ) (CL::*GENSYM-PREFIX* CL::*GENSYM-COUNTER*) GENSYM) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 10: Symbols" (:CONS) :NONE MAKE-SYMBOL GENTEMP) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 10: Symbols" (:CONS) :ANY COPY-SYMBOL) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 10: Symbols" :NONE :NONE KEYWORDP) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 11: Packages" :NONE :ANY PACKAGE-NAME PACKAGE-NICKNAMES PACKAGE-USE-LIST PACKAGE-USED-BY-LIST PACKAGE-SHADOWING-SYMBOLS LIST-ALL-PACKAGES FIND-SYMBOL FIND-ALL-SYMBOLS FIND-PACKAGE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 11: Packages" :ANY :ANY MAKE-PACKAGE IN-PACKAGE RENAME-PACKAGE INTERN UNINTERN EXPORT UNEXPORT IMPORT SHADOWING-IMPORT SHADOW USE-PACKAGE UNUSE-PACKAGE PROVIDE REQUIRE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 12: Numbers" (:CONS) :NONE MAKE-RANDOM-STATE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 12: Numbers" :ANY :ANY RANDOM) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 12: Numbers" :NONE :NONE ZEROP PLUSP MINUSP ODDP EVENP = /= < > <= >= MIN MAX + - * / 1+ 1- CONJUGATE GCD LCM EXP EXPT LOG SQRT ISQRT ABS PHASE SIGNUM SIN COS TAN CIS ASIN ACOS ATAN SINH COSH TANH ASINH ACOSH ATANH FLOAT RATIONAL RATIONALIZE NUMERATOR DENOMINATOR FLOOR CEILING TRUNCATE ROUND MOD REM FFLOOR FCEILING FTRUNCATE FROUND DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN FLOAT-DIGITS FLOAT-PRECISION INTEGER-DECODE-FLOAT COMPLEX REALPART IMAGPART LOGIOR LOGXOR LOGAND LOGEQV LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2 BOOLE LOGNOT LOGTEST LOGBITP ASH LOGCOUNT INTEGER-LENGTH BYTE BYTE-SIZE BYTE-POSITION LDB LDB-TEST MASK-FIELD DPB DEPOSIT-FIELD RANDOM-STATE-P) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 13: Characters" :NONE :NONE STANDARD-CHAR-P GRAPHIC-CHAR-P STRING-CHAR-P ALPHA-CHAR-P UPPER-CASE-P LOWER-CASE-P BOTH-CASE-P DIGIT-CHAR-P ALPHANUMERICP CHAR= CHAR/= CHAR< CHAR> CHAR<= CHAR>= CHAR-EQUAL CHAR-NOT-EQUAL CHAR-LESSP CHAR-GREATERP CHAR-NOT-LESSP CHAR-NOT-GREATERP CHAR-CODE CHAR-BITS CHAR-FONT CODE-CHAR MAKE-CHAR CHARACTER CHAR-UPCASE CHAR-DOWNCASE DIGIT-CHAR CHAR-INT INT-CHAR CHAR-NAME NAME-CHAR CHAR-BIT SET-CHAR-BIT) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 14: Sequences" :ANY :ANY NREVERSE MAP SOME EVERY NOTANY NOTEVERY REDUCE FILL REPLACE REMOVE REMOVE-IF REMOVE-IF-NOT DELETE DELETE-IF DELETE-IF-NOT REMOVE-DUPLICATES DELETE-DUPLICATES SUBSTITUTE SUBSTITUTE-IF SUBSTITUTE-IF-NOT NSUBSTITUTE NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT FIND FIND-IF FIND-IF-NOT POSITION POSITION-IF POSITION-IF-NOT COUNT COUNT-IF COUNT-IF-NOT MISMATCH SEARCH SORT STABLE-SORT MERGE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 14: Sequences" :NONE :ANY ELT LENGTH) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 14: Sequences" (:CONS) :ANY SUBSEQ COPY-SEQ REVERSE MAKE-SEQUENCE CONCATENATE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 15: Lists" :NONE :NONE CAR CDR CAAR CADR CDAR CDDR CAAAR CAADR CADAR CADDR CDAAR CDADR CDDAR CDDDR CAAAAR CAAADR CAADAR CAADDR CADAAR CADADR CADDAR CADDDR CDAAAR CDAADR CDADAR CDADDR CDDAAR CDDADR CDDDAR CDDDDR ENDP LIST-LENGTH NTH FIRST SECOND THIRD FOURTH FIFTH SIXTH SEVENTH EIGHTH NINTH TENTH REST NTHCDR LAST TAILP) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 15: Lists" (:CONS) :NONE CONS LIST LIST* MAKE-LIST APPEND COPY-LIST COPY-ALIST COPY-TREE REVAPPEND BUTLAST LDIFF ACONS PAIRLIS) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 15: Lists" :ANY :ANY TREE-EQUAL SUBST SUBST-IF SUBST-IF-NOT NSUBST NSUBST-IF NSUBST-IF-NOT SUBLIS NSUBLIS MEMBER MEMBER-IF MEMBER-IF-NOT ADJOIN UNION NUNION INTERSECTION NINTERSECTION SET-DIFFERENCE NSET-DIFFERENCE SET-EXCLUSIVE-OR NSET-EXCLUSIVE-OR SUBSETP ASSOC ASSOC-IF ASSOC-IF-NOT RASSOC RASSOC-IF RASSOC-IF-NOT) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 15: Lists" :ANY :NONE NCONC NRECONC NBUTLAST RPLACA RPLACD) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 16: Hash Tables" :ANY :NONE CLRHASH) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 16: Hash Tables" :ANY :ANY REMHASH MAPHASH) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 16: Hash Tables" :NONE :ANY GETHASH HASH-TABLE-COUNT) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 16: Hash Tables" :NONE :NONE HASH-TABLE-P SXHASH) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 16: Hash Tables" (:CONS) :NONE MAKE-HASH-TABLE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 17: Arrays" :NONE :NONE ARRAY-ELEMENT-TYPE ARRAY-RANK ADJUSTABLE-ARRAY-P ARRAY-HAS-FILL-POINTER-P) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 17: Arrays" :NONE :ANY AREF SVREF ARRAY-DIMENSIONS ARRAY-TOTAL-SIZE ARRAY-IN-BOUNDS-P ARRAY-ROW-MAJOR-INDEX BIT SBIT FILL-POINTER) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 17: Arrays" (:CONS) :NONE MAKE-ARRAY VECTOR) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 17: Arrays" :ANY :ANY BIT-AND BIT-IOR BIT-XOR BIT-EQV BIT-NAND BIT-NOR BIT-ANDC1 BIT-ANDC2 BIT-ORC1 BIT-ORC2 BIT-NOT VECTOR-PUSH VECTOR-PUSH-EXTEND VECTOR-POP ADJUST-ARRAY) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 18: Strings" :ANY :ANY NSTRING-UPCASE NSTRING-DOWNCASE NSTRING-CAPITALIZE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 18: Strings" (:CONS) :NONE MAKE-STRING STRING) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 18: Strings" (:CONS) :ANY STRING-TRIM STRING-LEFT-TRIM STRING-RIGHT-TRIM STRING-UPCASE STRING-DOWNCASE STRING-CAPITALIZE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 18: Strings" :NONE :NONE STRING= STRING/= STRING< STRING> STRING<= STRING>= STRING-EQUAL STRING-NOT-EQUAL STRING-LESSP STRING-NOT-LESSP STRING-GREATERP STRING-NOT-GREATERP) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 18: Strings" :NONE :ANY CHAR SCHAR) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 20: The Evaluator" :NONE :ANY CONSTANTP) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 20: The Evaluator" :ANY :ANY EVAL EVALHOOK APPLYHOOK) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 21: Streams" (:CONS) :ANY MAKE-BROADCAST-STREAM MAKE-CONCATENATED-STREAM MAKE-TWO-WAY-STREAM MAKE-ECHO-STREAM MAKE-STRING-INPUT-STREAM) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 21: Streams" (:CONS) :NONE MAKE-SYNONYM-STREAM MAKE-STRING-OUTPUT-STREAM) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 21: Streams" :ANY :NONE CLOSE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 21: Streams" :NONE :NONE STREAMP INPUT-STREAM-P OUTPUT-STREAM-P STREAM-ELEMENT-TYPE) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 21: Streams" :ANY :ANY GET-OUTPUT-STREAM-STRING) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 22: Input/Output" :NONE :NONE READTABLEP) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 22: Input/Output" :ANY :ANY COPY-READTABLE SET-SYNTAX-FROM-CHAR SET-MACRO-CHARACTER MAKE-DISPATCH-MACRO-CHARACTER SET-DISPATCH-MACRO-CHARACTER READ READ-PRESERVING-WHITESPACE READ-DELIMITED-LIST READ-LINE READ-CHAR UNREAD-CHAR PEEK-CHAR READ-CHAR-NO-HANG CLEAR-INPUT READ-FROM-STRING READ-BYTE WRITE PRIN1 PRINT PPRINT PRINC WRITE-CHAR WRITE-STRING WRITE-LINE TERPRI FRESH-LINE FINISH-OUTPUT FORCE-OUTPUT CLEAR-OUTPUT WRITE-BYTE FORMAT Y-OR-N-P YES-OR-NO-P) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 22: Input/Output" :NONE :ANY GET-MACRO-CHARACTER GET-DISPATCH-MACRO-CHARACTER LISTEN PARSE-INTEGER) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 22: Input/Output" (:CONS) :ANY WRITE-TO-STRING PRIN1-TO-STRING PRINC-TO-STRING) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 23: File System Interface" :NONE :ANY TRUENAME PARSE-NAMESTRING PROBE-FILE FILE-WRITE-DATE FILE-AUTHOR FILE-LENGTH DIRECTORY) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 23: File System Interface" (:CONS) :ANY PATHNAME MERGE-PATHNAMES MAKE-PATHNAME PATHNAME-HOST PATHNAME-DEVICE PATHNAME-DIRECTORY PATHNAME-NAME PATHNAME-TYPE PATHNAME-VERSION NAMESTRING FILE-NAMESTRING DIRECTORY-NAMESTRING HOST-NAMESTRING ENOUGH-NAMESTRING USER-HOMEDIR-PATHNAME OPEN) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 23: File System Interface" :ANY :ANY RENAME-FILE DELETE-FILE FILE-POSITION LOAD) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 23: File System Interface" :NONE :NONE PATHNAMEP) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 24: Errors" :ANY :ANY ERROR CERROR WARN BREAK) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 25: Miscellaneous Features" :NONE :ANY DOCUMENTATION APROPOS-LIST GET-DECODED-TIME GET-UNIVERSAL-TIME GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION MACHINE-TYPE MACHINE-VERSION MACHINE-INSTANCE SOFTWARE-TYPE SOFTWARE-VERSION SHORT-SITE-NAME LONG-SITE-NAME) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 25: Miscellaneous Features" :ANY :ANY COMPILE COMPILE-FILE DISASSEMBLE DESCRIBE INSPECT ROOM ED DRIBBLE APROPOS) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 25: Miscellaneous Features" :ANY :NONE SLEEP) (DECLARE-SIDE-EFFECTS "CLtL, Chapter 25: Miscellaneous Features" :NONE :NONE DECODE-UNIVERSAL-TIME ENCODE-UNIVERSAL-TIME IDENTITY) (DECLARE-SIDE-EFFECTS "IRM, Chapter 2: Litatoms" :ANY :NONE IL:SETTOPVAL IL:SETATOMVAL IL:PUTPROP IL:DEFLIST IL:SETPROPLIST) (DECLARE-SIDE-EFFECTS "IRM, Chapter 2: Litatoms" :NONE :ANY IL:GETTOPVAL IL:GETATOMVAL IL:GETPROP IL:PROPNAMES IL:GETPROPLIST IL:GETLIS IL:NCHARS IL:NTHCHAR IL:U-CASEP IL:NTHCHARCODE IL:CHCON1) (DECLARE-SIDE-EFFECTS "IRM, Chapter 2: Litatoms" :NONE :NONE IL:LITATOM IL:ATOM IL:CHARACTER IL:FCHARACTER) (DECLARE-SIDE-EFFECTS "IRM, Chapter 2: Litatoms" :ANY :ANY REMPROP IL:ADDPROP IL:REMPROPLIST IL:CHANGEPROP IL:MKATOM IL:SUBATOM IL:PACK IL:PACK* IL:DUNPACK IL:L-CASE IL:U-CASE IL:GENSYM IL:MAPATOMS IL:APROPOS IL:PACKC IL:DCHCON) (DECLARE-SIDE-EFFECTS "IRM, Chapter 2: Litatoms" (:CONS) :ANY IL:UNPACK IL:CHCON) (DECLARE-SIDE-EFFECTS "IRM, Chapter 3: Lists" :NONE :NONE IL:LISTP IL:NLISTP) (DECLARE-SIDE-EFFECTS "IRM, Chapter 3: Lists" :ANY :ANY IL:RPLNODE2 IL:FRPLNODE2 IL:ATTACH IL:TCONC IL:LCONC IL:DOCOLLECT IL:ENDCOLLECT IL:LDIFF IL:DSUBST IL:DSUBLIS IL:PUTASSOC IL:LISTPUT IL:LISTPUT1 IL:SORT IL:MERGE IL:MERGEINSERT IL:DREMOVE IL:DREVERSE IL:COMPARELISTS) (DECLARE-SIDE-EFFECTS "IRM, Chapter 3: Lists" :ANY :NONE IL:RPLNODE IL:FRPLACD IL:FRPLACA IL:FRPLNODE IL:NCONC1) (DECLARE-SIDE-EFFECTS "IRM, Chapter 3: Lists" (:CONS) :NONE IL:MKLIST IL:APPEND) (DECLARE-SIDE-EFFECTS "IRM, Chapter 3: Lists" (:CONS) :ANY IL:COPY IL:COPYALL IL:HCOPYALL IL:LASTN IL:LDIFFERENCE IL:INTERSECTION IL:UNION IL:SUBST IL:LSUBST IL:SUBLIS IL:SUBPAIR IL:REMOVE IL:REVERSE IL:NEGATE) (DECLARE-SIDE-EFFECTS "IRM, Chapter 3: Lists" :NONE :ANY IL:NTH IL:FNTH IL:FLAST IL:NLEFT IL:LENGTH IL:FLENGTH IL:EQLENGTH IL:COUNT IL:COUNTDOWN IL:EQUALN IL:MEMB IL:FMEMB IL:MEMBER IL:EQMEMB IL:ASSOC IL:FASSOC IL:SASSOC IL:LISTGET IL:LISTGET1 IL:ALPHORDER IL:UALPHORDER) (DECLARE-SIDE-EFFECTS "IRM, Chapter 4: Strings" (:CONS) :ANY IL:ALLOCSTRING IL:MKSTRING IL:CONCAT IL:CONCATLIST) (DECLARE-SIDE-EFFECTS "IRM, Chapter 4: Strings" :NONE :ANY IL:STREQUAL IL:NCHARS IL:STRPOS IL:STRPOSL) (DECLARE-SIDE-EFFECTS "IRM, Chapter 4: Strings" :NONE :NONE IL:STRINGP) (DECLARE-SIDE-EFFECTS "IRM, Chapter 4: Strings" :ANY :ANY IL:GNC IL:GLC IL:RPLSTRING IL:RPLCHARCODE IL:MAKEBITTABLE IL:SUBSTRING) (DECLARE-SIDE-EFFECTS "IRM, Chapter 5: Arrays" :ANY :NONE IL:SETA) (DECLARE-SIDE-EFFECTS "IRM, Chapter 5: Arrays" :NONE :ANY IL:ELT) (DECLARE-SIDE-EFFECTS "IRM, Chapter 5: Arrays" :NONE :NONE IL:ARRAYP IL:ARRAYTYP IL:ARRAYSIZE IL:ARRAYORIG) (DECLARE-SIDE-EFFECTS "IRM, Chapter 5: Arrays" (:CONS) :ANY IL:ARRAY IL:COPYARRAY) (DECLARE-SIDE-EFFECTS "IRM, Chapter 6: Hash Arrays" :ANY :ANY IL:HARRAYPROP IL:PUTHASH IL:REHASH IL:MAPHASH IL:DMPHASH) (DECLARE-SIDE-EFFECTS "IRM, Chapter 6: Hash Arrays" :NONE :NONE IL:HARRAYP IL:HARRAYSIZE) (DECLARE-SIDE-EFFECTS "IRM, Chapter 6: Hash Arrays" (:CONS) :NONE IL:HARRAY) (DECLARE-SIDE-EFFECTS "IRM, Chapter 6: Hash Arrays" (:CONS) :ANY IL:HASHARRAY) (DECLARE-SIDE-EFFECTS "IRM, Chapter 6: Hash Arrays" :NONE :ANY IL:GETHASH IL:STRINGHASHBITS) (DECLARE-SIDE-EFFECTS "IRM, Chapter 6: Hash Arrays" :ANY :NONE CLRHASH) (DECLARE-SIDE-EFFECTS "IRM, Chapter 7: Numbers and Arithmetic Functions" :ANY :ANY IL:RAND IL:RANDSET) (DECLARE-SIDE-EFFECTS "IRM, Chapter 7: Numbers and Arithmetic Functions" :NONE :NONE IL:SMALLP IL:FIXP IL:FLOATP IL:NUMBERP IL:EQP IL:PLUS IL:MINUS IL:DIFFERENCE IL:TIMES IL:QUOTIENT IL:REMAINDER IL:GREATERP IL:LESSP IL:GEQ IL:LEQ IL:ZEROP MINUSP MIN MAX ABS IL:IPLUS IL:IMINUS IL:IDIFFERENCE IL:ADD1 IL:SUB1 IL:ITIMES IL:IQUOTIENT IL:IREMAINDER IL:IMOD IL:IGREATERP IL:ILESSP IL:IGEQ IL:ILEQ IL:IMIN IL:IMAX IL:IEQP IL:FIX IL:FIXR IL:GCD LOGAND IL:LOGOR LOGXOR IL:LSH IL:RSH IL:LLSH IL:LRSH IL:INTEGERLENGTH IL:POWEROFTWOP EVENP ODDP LOGNOT IL:BITTEST IL:BITCLEAR IL:BITSET IL:MASK.1\'S IL:MASK.0\'S IL:LOADBYTE IL:DEPOSITBYTE IL:ROT BYTE IL:BYTESIZE IL:BYTEPOSITION LDB DPB IL:FPLUS IL:FMINUS IL:FDIFFERENCE IL:FTIMES IL:FQUOTIENT IL:FREMAINDER IL:FGREATERP IL:FLESSP IL:FEQP IL:FMIN IL:FMAX FLOAT IL:EXPT IL:SQRT IL:LOG IL:ANTILOG IL:SIN IL:COS IL:TAN IL:ARCSIN IL:ARCCOS IL:ARCTAN IL:ARCTAN2) (DECLARE-SIDE-EFFECTS "IRM, Chapter 7: Numbers and Arithmetic Functions" :ANY :NONE IL:OVERFLOW) (DECLARE-SIDE-EFFECTS "IRM, Chapter 8: Record Package" :NONE :ANY IL:RECLOOK IL:FIELDLOOK IL:RECORDFIELDNAMES IL:RECORDACCESSFORM IL:DATATYPES IL:USERDATATYPES IL:TYPENAME IL:TYPENAMEP IL:FETCHFIELD IL:GETFIELDSPECS IL:GETDESCRIPTORS) (DECLARE-SIDE-EFFECTS "IRM, Chapter 8: Record Package" :ANY :ANY IL:EDITREC IL:RECORDACCESS IL:DECLAREDATATYPE IL:REPLACEFIELD) (DECLARE-SIDE-EFFECTS "IRM, Chapter 9: Conditionals and Iterative Statements" :NONE :NONE IL:NEQ) (DECLARE-SIDE-EFFECTS "IRM, Chapter 9: Conditionals and Iterative Statements" :NONE :ANY IL:EQUAL IL:EQUALALL) (DECLARE-SIDE-EFFECTS "IRM, Chapter 9: Conditionals and Iterative Statements" :ANY :ANY IL:I.S.OPR) (DECLARE-SIDE-EFFECTS "IRM, Chapter 10: Function Definition, Manipulation, and Evaluation" :ANY :NONE IL:SETARG) (DECLARE-SIDE-EFFECTS "IRM, Chapter 10: Function Definition, Manipulation, and Evaluation" :NONE :ANY IL:ARG IL:CCODEP IL:EXPRP IL:FNTYP IL:ARGTYPE IL:NARGS IL:ARGLIST IL:SMARTARGLIST IL:GETD IL:NLAMBDA.ARGS IL:FUNCTION) (DECLARE-SIDE-EFFECTS "IRM, Chapter 10: Function Definition, Manipulation, and Evaluation" :ANY :ANY IL:DEFINEQ IL:DEFINE IL:PUTD IL:MOVD IL:MOVD? IL:APPLY IL:APPLY* IL:EVAL IL:EVALA IL:DEFEVAL IL:EVALHOOK IL:RPT IL:MAP IL:MAPC IL:MAPLIST IL:MAPCAR IL:MAPCON IL:MAPCONC IL:MAP2C IL:MAP2CAR IL:SUBSET IL:EVERY IL:SOME IL:NOTANY IL:NOTEVERY IL:MAPRINT IL:EXPANDMACRO) (DECLARE-SIDE-EFFECTS "IRM, Chapter 10: Function Definition, Manipulation, and Evaluation" :NONE :NONE IL:KWOTE IL:NILL TRUE IL:ZERO) (DECLARE-SIDE-EFFECTS "IRM, Chapter 11: Variable Bindings and the Interlisp Stack" :NONE :ANY IL:STKNAME IL:STKSCAN IL:FRAMESCAN IL:STKARG IL:STKARGNAME IL:STKARGS IL:VARIABLES IL:EVALV IL:REALFRAMEP) (DECLARE-SIDE-EFFECTS "IRM, Chapter 11: Variable Bindings and the Interlisp Stack" :ANY :NONE IL:STKPOS IL:STKNTH IL:SETSTKNAME IL:SETSTKARG IL:SETSTKARGNAME IL:RELSTK IL:REALSTKNTH) (DECLARE-SIDE-EFFECTS "IRM, Chapter 11: Variable Bindings and the Interlisp Stack" :ANY :ANY IL:ENVEVAL IL:ENVAPPLY IL:STKEVAL IL:STKAPPLY IL:RETFROM IL:RETTO IL:RETEVAL IL:RETAPPLY IL:CLEARSTK IL:BACKTRACE IL:BAKTRACE IL:MAPDL IL:SEARCHPDL) (DECLARE-SIDE-EFFECTS "IRM, Chapter 11: Variable Bindings and the Interlisp Stack" :NONE :NONE IL:STKNARGS IL:STACKP IL:RELSTKP) (DECLARE-SIDE-EFFECTS "IRM, Chapter 12: Miscellaneous" :NONE :NONE IL:DATEFORMAT IL:TIMEREXPIRED?) (DECLARE-SIDE-EFFECTS "IRM, Chapter 12: Miscellaneous" :ANY :ANY IL:SETTIME IL:SETUPTIMER IL:SETUPTIMER.DATE) (DECLARE-SIDE-EFFECTS "IRM, Chapter 12: Miscellaneous" :NONE :ANY IL:DATE IL:GDATE IL:IDATE IL:CLOCK IL:MACHINETYPE) (DECLARE-SIDE-EFFECTS "Pointer reads" :NONE :NONE IL:\\GETBASEPTR IL:\\GETBASEBYTE IL:\\GETBASE IL:\\GETBASEFIXP IL:\\GETBASESTRING IL:\\VAG2 IL:\\ADDBASE) (DECLARE-SIDE-EFFECTS "Internal functions in CMLARITH" :NONE :NONE CL::%+ CL::%- CL::%* CL::%/ CL::%= CL::%> CL::%< XCL::STRUNCATE XCL::SFLOOR XCL::SCEILING XCL::SROUND CL::%LOGIOR CL::%LLSH8 CL::%LLSH1 CL::%LRSH8 CL::%LRSH1) (IL:* IL:|;;| "Arrange for the correct compiler to be used.") (IL:PUTPROPS IL:XCLC-DATABASE IL:FILETYPE :COMPILE-FILE) (IL:* IL:|;;| "Set up the correct package environment.") (IL:PUTPROPS IL:XCLC-DATABASE IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (DEFPACKAGE "COMPILER" (:USE "LISP" "XCL")))) (IL:PUTPROPS IL:XCLC-DATABASE IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1993)) (IL:DECLARE\: IL:DONTCOPY (IL:FILEMAP (NIL))) IL:STOP