(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "COMPILER" (USE "LISP" "XCL")))

(IL:FILECREATED "19-Jan-93 11:27:11" IL:|{DSK}<python>lde>lispcore>sources>XCLC-DATABASE.;2|
 45494  

      IL:|previous| IL:|date:| "23-May-90 12:57:24" 
IL:|{DSK}<python>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