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)) |
|