/[gcl]/gcl/mod/sys-proclaim.lisp
ViewVC logotype

Diff of /gcl/mod/sys-proclaim.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Tue Sep 23 20:30:25 2003 UTC revision 1.2 by camm, Tue Sep 23 21:48:34 2003 UTC
# Line 1  Line 1 
1    
2  (IN-PACKAGE "SYSTEM")  (IN-PACKAGE "SYSTEM")
3    (PROCLAIM '(FTYPE (FUNCTION (T) (VALUES T T)) LISP::MAKE-KEYWORD))
4  (PROCLAIM  (PROCLAIM
5      '(FTYPE (FUNCTION (T) FIXNUM) S-DATA-SIZE THE-START S-DATA-LENGTH))      '(FTYPE (FUNCTION (T T) FIXNUM) ANSI-LOOP::DUPLICATABLE-CODE-P))
6  (PROCLAIM '(FTYPE (FUNCTION (T T) FIXNUM) THE-END))  (PROCLAIM
7  (PROCLAIM '(FTYPE (FUNCTION (T T T T T T T) *) TRACE-CALL))      '(FTYPE (FUNCTION (T T T) *) LISP::VERIFY-KEYWORDS
8  (PROCLAIM              LISP::DEFMACRO-ERROR ANSI-LOOP::LOOP-GET-COLLECTION-INFO))
9      '(FTYPE (FUNCTION (T T T) *) READ-INSPECT-COMMAND LIST-MERGE-SORT  (PROCLAIM
10              SHARP-S-READER))      '(FTYPE (FUNCTION (T T T T T *) *) LISP::PARSE-DEFMACRO-LAMBDA-LIST
11  (PROCLAIM              LISP::PARSE-DEFMACRO))
12      '(FTYPE (FUNCTION (T T *) *) SORT STABLE-SORT SET-UP-FOR-DUMP-INPUT  (PROCLAIM
13              SLOOP::FIND-IN-ORDERED-LIST REDUCE))      '(FTYPE (FUNCTION (T T T T T T T T) *) LISP::PUSH-OPTIONAL-BINDING))
14  (PROCLAIM  (PROCLAIM '(FTYPE (FUNCTION (T T *) *) LISP::PARSE-BODY))
15      '(FTYPE (FUNCTION (T T *) T) SLOOP::PARSE-LOOP-MACRO SOME SUBSETP  (PROCLAIM
16              SLOOP::IN-ARRAY-SLOOP-FOR MAKE-SEQUENCE UNION      '(FTYPE (FUNCTION (T T T) T) ANSI-LOOP::LOOP-SUM-COLLECTION
17              WRITE-DEBUG-SYMBOLS MISMATCH NINTERSECTION NOTANY NOTEVERY              ANSI-LOOP::LOOP-TRANSLATE
18              NSET-DIFFERENCE NSET-EXCLUSIVE-OR NUNION POSITION              ANSI-LOOP::LOOP-STANDARD-EXPANSION
19              POSITION-IF POSITION-IF-NOT REMOVE REMOVE-IF REMOVE-IF-NOT              ANSI-LOOP::PRINT-LOOP-UNIVERSE
20              REPLACE SEARCH SLOOP::LOOP-ADD-BINDING SET-DIFFERENCE              ANSI-LOOP::LOOP-ANSI-FOR-EQUALS ANSI-LOOP::LOOP-FOR-ACROSS
21              SET-EXCLUSIVE-OR DELETE DELETE-IF DELETE-IF-NOT EVERY FILL              ANSI-LOOP::LOOP-FOR-IN ANSI-LOOP::LOOP-FOR-ON
22              FIND BIT-AND BIT-ANDC1 FIND-IF BIT-ANDC2 FIND-IF-NOT              ANSI-LOOP::LOOP-FOR-BEING
23              BIT-EQV BIT-IOR BIT-NAND BIT-NOR BIT-ORC1 BIT-ORC2 BIT-XOR              ANSI-LOOP::HIDE-VARIABLE-REFERENCE
24              INTERSECTION))              ANSI-LOOP::LOOP-MAKE-ITERATION-VARIABLE))
25  (PROCLAIM '(FTYPE (FUNCTION (T T *) *) BREAK-CALL))  (PROCLAIM
26  (PROCLAIM      '(FTYPE (FUNCTION (T T *) T) ANSI-LOOP::LOOP-CHECK-DATA-TYPE))
27      '(FTYPE (FUNCTION (T T T) T) DM-VL SETF-EXPAND-1  (PROCLAIM
28              TYPECASE-ERROR-STRING      '(FTYPE (FUNCTION (T T T *) T) ANSI-LOOP::ADD-LOOP-PATH
29              SLOOP::LOOP-PARSE-ADDITIONAL-COLLECTIONS SHARP-A-READER              ANSI-LOOP::LOOP-SEQUENCE-ELEMENTS-PATH
30              DEPOSIT-FIELD DEFMACRO* DPB CHECK-TRACE-ARGS MAKE-T-TYPE              LISP::PUSH-LET-BINDING
31              GET-SLOT-POS CHECK-S-DATA))              ANSI-LOOP::LOOP-HASH-TABLE-ITERATION-PATH
32  (PROCLAIM '(FTYPE (FUNCTION (T T T T T T *) T) ENCODE-UNIVERSAL-TIME))              ANSI-LOOP::LOOP-PACKAGE-SYMBOLS-ITERATION-PATH
33  (PROCLAIM              ANSI-LOOP::LOOP-MAKE-VARIABLE))
34      '(FTYPE (FUNCTION (T T T T T) T) MAKE-CONSTRUCTOR MAKE-PREDICATE))  (PROCLAIM
35  (PROCLAIM      '(FTYPE (FUNCTION (T T T T T T) T) LISP::DO-ARG-COUNT-ERROR
36      '(FTYPE (FUNCTION (T T T T T T T T T T *) T) MAKE-ACCESS-FUNCTION))              LISP::PUSH-SUB-LIST-BINDING))
37  (PROCLAIM  (PROCLAIM
38      '(FTYPE (FUNCTION (T T T T T T T T T T T T *) T) DEFINE-STRUCTURE))      '(FTYPE (FUNCTION (T T T T) T) ANSI-LOOP::LOOP-FOR-ARITHMETIC))
39  (PROCLAIM  (PROCLAIM
40      '(FTYPE (FUNCTION (T T T T) T) SLOOP::FIRST-USE-SLOOP-FOR      '(FTYPE (FUNCTION (T T T T T T T T T T) T)
41              SLOOP::FIRST-SLOOP-FOR SETF-STRUCTURE-ACCESS CALL-TEST))              ANSI-LOOP::LOOP-SEQUENCER))
42  (PROCLAIM  (PROCLAIM
43      '(FTYPE (FUNCTION (T T T *) T) SUBSTITUTE SUBSTITUTE-IF      '(FTYPE (FUNCTION NIL *) ANSI-LOOP::LOOP-DO-FOR
44              SUBSTITUTE-IF-NOT MAP NSUBSTITUTE NSUBSTITUTE-IF              ANSI-LOOP::LOOP-POP-SOURCE ANSI-LOOP::LOOP-GET-FORM
45              NSUBSTITUTE-IF-NOT SLOOP::LOOP-DECLARE-BINDING))              ANSI-LOOP::LOOP-DISALLOW-AGGREGATE-BOOLEANS
46  (PROCLAIM '(FTYPE (FUNCTION (T T T T T *) T) UNIVERSAL-ERROR-HANDLER))              ANSI-LOOP::LOOP-DISALLOW-ANONYMOUS-COLLECTORS))
47  (PROCLAIM  (PROCLAIM
48      '(FTYPE (FUNCTION (T T T T *) T) SLOOP::DEF-LOOP-INTERNAL MERGE))      '(FTYPE (FUNCTION NIL T) ANSI-LOOP::LOOP-DO-FINALLY
49  (PROCLAIM '(FTYPE (FUNCTION (FIXNUM FIXNUM) FIXNUM) ROUND-UP))              ANSI-LOOP::LOOP-DO-DO ANSI-LOOP::LOOP-DO-RETURN
50  (PROCLAIM              ANSI-LOOP::LOOP-DO-WITH ANSI-LOOP::LOOP-DO-REPEAT
51      '(FTYPE (FUNCTION NIL *) BREAK-MESSAGE BREAK-UNHIDE-ALL              ANSI-LOOP::LOOP-CONTEXT ANSI-LOOP::LOOP-ITERATION-DRIVER
52              SIMPLE-BACKTRACE BREAK-CURRENT))              ANSI-LOOP::LOOP-BIND-BLOCK
53  (PROCLAIM              ANSI-LOOP::LOOP-GET-COMPOUND-FORM ANSI-LOOP::LOOP-GET-PROGN
54      '(FTYPE (FUNCTION NIL T) SLOOP::PARSE-LOOP-FOR              ANSI-LOOP::LOOP-WHEN-IT-VARIABLE ANSI-LOOP::LOOP-DO-NAMED
55              DM-TOO-MANY-ARGUMENTS DM-TOO-FEW-ARGUMENTS BREAK-HELP-HELP              ANSI-LOOP::LOOP-DO-INITIALLY))
56              BREAK-HELP-STACK-FUNS BREAK-TAGS BREAK-VARIABLES  (PROCLAIM
57              INSPECT-READ-LINE INSPECT-INDENT INSPECT-INDENT-1      '(FTYPE (FUNCTION (*) *) ANSI-LOOP::LOOP-DISALLOW-CONDITIONAL
58              SLOOP::LOOP-POP SLOOP::LOOP-UN-POP SLOOP::LOOP-PEEK              ANSI-LOOP::LOOP-OPTIONAL-TYPE))
59              BREAK-BLOCKS SLOOP::PARSE-LOOP1 SLOOP::PARSE-LOOP-DO  (PROCLAIM
60              SLOOP::PARSE-ONE-WHEN-CLAUSE BREAK-VARIABLES-VALUES      '(FTYPE (FUNCTION (T) *) ANSI-LOOP::NAMED-VARIABLE
61              SLOOP::PARSE-LOOP-WHEN SLOOP::PARSE-LOOP-COLLECT              ANSI-LOOP::LOOP-OPTIMIZATION-QUANTITIES
62              BREAK-FUNCTIONS SET-CURRENT BREAK-HELP SET-ENV TEST-ERROR              ANSI-LOOP::LOOP-LIST-STEP))
63              TOP-LEVEL SLOOP::TYPE-ERROR ILLEGAL-BOA  (PROCLAIM
64              ALL-TRACE-DECLARATIONS STEP-READ-LINE))      '(FTYPE (FUNCTION (*) T) ANSI-LOOP::MAKE-LOOP-PATH
65  (PROCLAIM              ANSI-LOOP::MAKE-STANDARD-LOOP-UNIVERSE
66      '(FTYPE (FUNCTION (*) *) LOC BACKTRACE SHOW-BREAK-VARIABLES              ANSI-LOOP::MAKE-LOOP-MINIMAX-INTERNAL
67              BREAK-LOCAL BREAK-LOCALS BREAK-NEXT BREAK-PREVIOUS              ANSI-LOOP::LOOP-GENTEMP ANSI-LOOP::MAKE-LOOP-UNIVERSE
68              BREAK-QUIT BREAK-VS))              ANSI-LOOP::MAKE-LOOP-COLLECTOR
69  (PROCLAIM              ANSI-LOOP::LOOP-EMIT-FINAL-VALUE))
70      '(FTYPE (FUNCTION (*) T) Y-OR-N-P YES-OR-NO-P  (PROCLAIM
71              SLOOP::PARSE-LOOP-WITH SLOOP::PARSE-LOOP-DECLARE VECTOR      '(FTYPE (FUNCTION (T) T) ANSI-LOOP::LOOP-COLLECTOR-CLASS
72              MAKE-S-DATA DRIBBLE BREAK))              ANSI-LOOP::LOOP-COLLECTOR-HISTORY
73  (PROCLAIM              ANSI-LOOP::LOOP-COLLECTOR-TEMPVARS
74      '(FTYPE (FUNCTION (T) *) BREAK-HIDE BREAK-HIDE-PACKAGE              ANSI-LOOP::LOOP-COLLECTOR-DTYPE
75              FIND-DECLARATIONS SEARCH-STACK PRIN1-TO-STRING BREAK-UNHIDE              ANSI-LOOP::LOOP-COLLECTOR-DATA ANSI-LOOP::LOOP-PATH-NAMES
76              PRINC-TO-STRING INSPECT-OBJECT BREAK-UNHIDE-PACKAGE              ANSI-LOOP::LOOP-LIST-COLLECTION
77              BREAK-BDS BREAK-GO IHS-FNAME DESCRIBE GET-SETF-METHOD              ANSI-LOOP::LOOP-PATH-PREPOSITION-GROUPS
78              GET-SETF-METHOD-MULTIPLE-VALUE INSPECT))              ANSI-LOOP::LOOP-PATH-INCLUSIVE-PERMITTED
79  (PROCLAIM '(FTYPE (FUNCTION (T :DYNAMIC-EXTENT *) T) ADJUST-ARRAY))              ANSI-LOOP::LOOP-PATH-FUNCTION
80  (PROCLAIM              ANSI-LOOP::LOOP-PATH-USER-DATA
81      '(FTYPE (FUNCTION (T T *) FIXNUM) VECTOR-PUSH-EXTEND INTERNAL-COUNT              ANSI-LOOP::LOOP-MAXMIN-COLLECTION
82              COUNT COUNT-IF COUNT-IF-NOT INTERNAL-COUNT-IF              ANSI-LOOP::LOOP-DO-THEREIS USER::MAKE-DEFPACKAGE-FORM
83              INTERNAL-COUNT-IF-NOT))              ANSI-LOOP::LOOP-COLLECTOR-NAME
84  (PROCLAIM '(FTYPE (FUNCTION (T FIXNUM FIXNUM T T) T) QUICK-SORT))              ANSI-LOOP::MAKE-ANSI-LOOP-UNIVERSE
85  (PROCLAIM              ANSI-LOOP::LOOP-TYPED-INIT ANSI-LOOP::LOOP-MAKE-DESETQ
86      '(FTYPE (FUNCTION (T) T) SIGNUM S-DATA-PRINT-FUNCTION              ANSI-LOOP::LOOP-MAKE-PSETQ
87              DM-KEY-NOT-ALLOWED SINH S-DATA-SLOT-DESCRIPTIONS              ANSI-LOOP::LOOP-CODE-DUPLICATION-THRESHOLD
88              SLOOP::AVERAGING-SLOOP-MACRO S-DATA-SLOT-POSITION              ANSI-LOOP::DESTRUCTURING-SIZE
89              SLOOP::REPEAT-SLOOP-MACRO SLOOP::SUBSTITUTE-SLOOP-BODY              ANSI-LOOP::SUBST-GENSYMS-FOR-NIL
90              SIMPLE-ARRAY-P S-DATA-HAS-HOLES SLOOP::RETURN-SLOOP-MACRO              ANSI-LOOP::LOOP-HACK-ITERATION ANSI-LOOP::LOOP-PSEUDO-BODY
91              NORMALIZE-TYPE S-DATA-FROZEN KNOWN-TYPE-P LOGNOT              ANSI-LOOP::LOOP-CONSTRUCT-RETURN ANSI-LOOP::LOOP-CONSTANTP
92              S-DATA-DOCUMENTATION S-DATA-CONSTRUCTORS S-DATA-OFFSET              ANSI-LOOP::LOOP-EMIT-BODY
93              DM-BAD-KEY S-DATA-NAMED S-DATA-TYPE BEST-ARRAY-ELEMENT-TYPE              ANSI-LOOP::LOOP-MINIMAX-ANSWER-VARIABLE
94              TANH SLOOP::SLOOP-SLOOP-MACRO SHOW-ENVIRONMENT VECTOR-POP              ANSI-LOOP::LOOP-MINIMAX-TYPE
95              INSPECT-SYMBOL SLOOP::LOOP-COLLECT-KEYWORD-P PHASE              ANSI-LOOP::LOOP-MINIMAX-TEMP-VARIABLE
96              INSPECT-PACKAGE INSPECT-CHARACTER INSPECT-NUMBER              ANSI-LOOP::LOOP-VARIABLE-P
97              SLOOP::PARSE-NO-BODY INSPECT-CONS INSPECT-STRING              ANSI-LOOP::LOOP-MINIMAX-FLAG-VARIABLE
98              INSPECT-VECTOR TERMINAL-INTERRUPT PROVIDE INSPECT-ARRAY              ANSI-LOOP::LOOP-MINIMAX-OPERATIONS
99              INSPECT-STRUCTURE SLOOP::TRANSLATE-NAME              ANSI-LOOP::LOOP-MINIMAX-INFINITY-DATA
100              SLOOP::LOOP-LET-BINDINGS SLOOP::PARSE-LOOP              ANSI-LOOP::LOOP-UNIVERSE-KEYWORDS
101              BREAK-BACKWARD-SEARCH-STACK ASK-FOR-FORM              ANSI-LOOP::LOOP-UNIVERSE-ITERATION-KEYWORDS
102              SLOOP::PARSE-LOOP-INITIALLY TYPECASE-ERROR-STRINGS BOIN-P              ANSI-LOOP::LOOP-UNIVERSE-FOR-KEYWORDS
103              BREAK-FORWARD-SEARCH-STACK              ANSI-LOOP::LOOP-UNIVERSE-PATH-KEYWORDS
104              SLOOP::POINTER-FOR-COLLECT PRINT-IHS PRINT-FRS LEAP-YEAR-P              ANSI-LOOP::LOOP-UNIVERSE-TYPE-SYMBOLS
105              FRS-KIND NUMBER-OF-DAYS-FROM-1900 IHS-VISIBLE              ANSI-LOOP::LOOP-UNIVERSE-TYPE-KEYWORDS
106              IHS-COMPILED-P PRINT-SYMBOL-APROPOS BYTE-SIZE SEQTYPE CIS              ANSI-LOOP::LOOP-UNIVERSE-ANSI
107              FIND-DOCUMENTATION COSH TRACE-ONE UNTRACE-ONE ABS S-DATA-P              ANSI-LOOP::LOOP-UNIVERSE-IMPLICIT-FOR-REQUIRED))
108              ACOS TRACE-ONE-PREPROCESS RATIONAL ACOSH CHECK-TRACE-SPEC  (PROCLAIM
109              CHECK-DECLARATIONS RESET-TRACE-DECLARATIONS      '(FTYPE (FUNCTION (T *) *) ANSI-LOOP::LOOP-ERROR
110              ARRAY-DIMENSIONS ASIN ASINH FREEZE-DEFSTRUCT ATANH              ANSI-LOOP::LOOP-CONSTANT-FOLD-IF-POSSIBLE))
111              FIND-ALL-SYMBOLS S-DATA-NAME S-DATA-RAW S-DATA-INCLUDED  (PROCLAIM
112              ISQRT S-DATA-INCLUDES BYTE-POSITION S-DATA-STATICP))      '(FTYPE (FUNCTION (T T) *) ANSI-LOOP::ESTIMATE-CODE-SIZE-1
113  (PROCLAIM              ANSI-LOOP::ESTIMATE-CODE-SIZE))
114      '(FTYPE (FUNCTION (T *) *) SET-UP-FOR-DUMP-OUTPUT PRINT-DOC  (PROCLAIM
115              APROPOS-DOC WRITE-TO-STRING READ-FROM-STRING      '(FTYPE (FUNCTION (T *) T)
116              DECODE-UNIVERSAL-TIME STEPPER APROPOS FCEILING FFLOOR              ANSI-LOOP::LOOP-COLLECT-PREPOSITIONAL-PHRASES
117              FROUND FTRUNCATE))              ANSI-LOOP::LOOP-WARN))
118  (PROCLAIM  (PROCLAIM
119      '(FTYPE (FUNCTION (T *) T) SLOOP::ADD-FROM-DATA MAKE-ARRAY      '(FTYPE (FUNCTION (T T) T) ANSI-LOOP::LOOP-TASSOC
120              REMOVE-DUPLICATES REQUIRE SBIT SLOOP::LOOP-ADD-TEMPS              ANSI-LOOP::HIDE-VARIABLE-REFERENCES
121              CONCATENATE WARN BAD-SEQ-LIMIT DELETE-DUPLICATES              ANSI-LOOP::LOOP-DO-ALWAYS ANSI-LOOP::LOOP-DO-WHILE
122              APROPOS-LIST ARRAY-IN-BOUNDS-P ARRAY-ROW-MAJOR-INDEX BIT              ANSI-LOOP::LOOP-DO-IF LISP::KEYWORD-SUPPLIED-P
123              BIT-NOT))              LISP::LOOKUP-KEYWORD ANSI-LOOP::LOOP-MAYBE-BIND-FORM
124  (PROCLAIM '(FTYPE (FUNCTION (T T) *) FIND-DOC SUBTYPEP TYPEP))              ANSI-LOOP::LOOP-BUILD-DESTRUCTURING-BINDINGS
125  (PROCLAIM              ANSI-LOOP::LOOP-LOOKUP-KEYWORD ANSI-LOOP::LOOP-TMEMBER
126      '(FTYPE (FUNCTION (T T) T) LDB-TEST LOGANDC1 SLOOP::PARSE-LOOP-MAP              ANSI-LOOP::LOOP-TEQUAL ANSI-LOOP::LOOP-DECLARE-VARIABLE
127              LOGANDC2 LOGNAND LOGNOR DM-V SLOOP::IN-TABLE-SLOOP-MAP              ANSI-LOOP::MAKE-LOOP-MINIMAX
128              DM-NTH SUB-INTERVAL-P LOGORC1 DM-NTH-CDR IN-INTERVAL-P              ANSI-LOOP::LOOP-NOTE-MINIMAX-OPERATION))
             LOGORC2 SLOOP::IN-PACKAGE-SLOOP-MAP MATCH-DIMENSIONS  
             LOGTEST SUPER-GO SLOOP::=-SLOOP-FOR MASK-FIELD  
             SLOOP::IN-CAREFULLY-SLOOP-FOR VECTOR-PUSH SETF-HELPER  
             SLOOP::COLLATE-SLOOP-COLLECT SLOOP::IN-FRINGE-SLOOP-MAP  
             SLOOP::DESETQ1 SETF-EXPAND SLOOP::L-EQUAL SUBSTRINGP  
             INCREMENT-CURSOR SEQUENCE-CURSOR SLOOP::THE-TYPE  
             SLOOP::MAKE-VALUE LIST-DELQ CHECK-SEQ-START-END COERCE  
             DOCUMENTATION PARSE-SLOT-DESCRIPTION  
             OVERWRITE-SLOT-DESCRIPTIONS SLOOP::SUM-SLOOP-COLLECT  
             SLOOP::LOGXOR-SLOOP-COLLECT SLOOP::MAXIMIZE-SLOOP-COLLECT  
             SLOOP::MINIMIZE-SLOOP-COLLECT SLOOP::COUNT-SLOOP-COLLECT  
             SLOOP::THEREIS-SLOOP-COLLECT SLOOP::ALWAYS-SLOOP-COLLECT  
             BYTE SLOOP::NEVER-SLOOP-COLLECT LDB))  

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26