5
;;; DEFAUTOLOAD definitions. for lsp directory files normally loaded.
6
(if (fboundp 'abs) (push :numlib *features*))
7
;;hack to avoid interning all the :symbols if the files are loaded..
10
(autoload 'abs '|gcl_numlib|)
11
(autoload 'acos '|gcl_numlib|)
12
(autoload 'acosh '|gcl_numlib|)
13
(autoload 'adjust-array '|gcl_arraylib|)
14
(autoload 'apropos '|gcl_packlib|)
15
(autoload 'apropos-list '|gcl_packlib|)
16
(autoload 'array-dimensions '|gcl_arraylib|)
17
(autoload 'array-in-bounds-p '|gcl_arraylib|)
18
(autoload 'array-row-major-index '|gcl_arraylib|)
19
(autoload 'asin '|gcl_numlib|)
20
(autoload 'asinh '|gcl_numlib|)
21
(autoload 'atanh '|gcl_numlib|)
22
(autoload 'best-array-element-type '|gcl_arraylib|)
23
(autoload 'bit '|gcl_arraylib|)
24
(autoload 'bit-and '|gcl_arraylib|)
25
(autoload 'bit-andc1 '|gcl_arraylib|)
26
(autoload 'bit-andc2 '|gcl_arraylib|)
27
(autoload 'bit-eqv '|gcl_arraylib|)
28
(autoload 'bit-ior '|gcl_arraylib|)
29
(autoload 'bit-nand '|gcl_arraylib|)
30
(autoload 'bit-nor '|gcl_arraylib|)
31
(autoload 'bit-not '|gcl_arraylib|)
32
(autoload 'bit-orc1 '|gcl_arraylib|)
33
(autoload 'bit-orc2 '|gcl_arraylib|)
34
(autoload 'bit-xor '|gcl_arraylib|)
35
(autoload 'byte '|gcl_numlib|)
36
(autoload 'byte-position '|gcl_numlib|)
37
(autoload 'byte-size '|gcl_numlib|)
38
(autoload 'cis '|gcl_numlib|)
39
(autoload 'coerce '|gcl_predlib|)
40
(autoload 'compile-file '|gcl_loadcmp|)
41
(autoload 'compile '|gcl_loadcmp|)
42
(autoload 'disassemble '|gcl_loadcmp|)
43
(autoload 'concatenate '|gcl_seq|)
44
(autoload 'cosh '|gcl_numlib|)
45
(autoload 'count '|gcl_seqlib|)
46
(autoload 'count-if '|gcl_seqlib|)
47
(autoload 'count-if-not '|gcl_seqlib|)
48
(autoload 'decode-universal-time '|gcl_mislib|)
49
(autoload 'delete '|gcl_seqlib|)
50
(autoload 'delete-duplicates '|gcl_seqlib|)
51
(autoload 'delete-if '|gcl_seqlib|)
52
(autoload 'delete-if-not '|gcl_seqlib|)
53
(autoload 'deposit-field '|gcl_numlib|)
54
(autoload 'describe '|gcl_describe|)
55
(autoload 'dpb '|gcl_numlib|)
56
(autoload 'dribble '|gcl_iolib|)
57
(autoload 'encode-universal-time '|gcl_mislib|)
58
(autoload 'every '|gcl_seq|)
59
(autoload 'fceiling '|gcl_numlib|)
60
(autoload 'ffloor '|gcl_numlib|)
61
(autoload 'fill '|gcl_seqlib|)
62
(autoload 'find '|gcl_seqlib|)
63
(autoload 'find-all-symbols '|gcl_packlib|)
64
(autoload 'find-if '|gcl_seqlib|)
65
(autoload 'find-if-not '|gcl_seqlib|)
66
(autoload 'fround '|gcl_numlib|)
67
(autoload 'ftruncate '|gcl_numlib|)
68
#-unix (autoload 'get-decoded-time '|gcl_mislib|)
69
#+aosvs (autoload 'get-universal-time '|gcl_mislib|)
70
(autoload 'get-setf-method '|gcl_setf|)
71
(autoload 'get-setf-method-multiple-value '|gcl_setf|)
72
(autoload 'inspect '|gcl_describe|)
73
(autoload 'intersection '|gcl_listlib|)
74
(autoload 'isqrt '|gcl_numlib|)
75
(autoload 'ldb '|gcl_numlib|)
76
(autoload 'ldb-test '|gcl_numlib|)
77
(autoload 'logandc1 '|gcl_numlib|)
78
(autoload 'logandc2 '|gcl_numlib|)
79
(autoload 'lognand '|gcl_numlib|)
80
(autoload 'lognor '|gcl_numlib|)
81
(autoload 'lognot '|gcl_numlib|)
82
(autoload 'logorc1 '|gcl_numlib|)
83
(autoload 'logorc2 '|gcl_numlib|)
84
(autoload 'logtest '|gcl_numlib|)
85
(autoload 'make-array '|gcl_arraylib|)
86
(autoload 'make-sequence '|gcl_seq|)
87
(autoload 'map '|gcl_seq|)
88
(autoload 'mask-field '|gcl_numlib|)
89
(autoload 'merge '|gcl_seqlib|)
90
(autoload 'mismatch '|gcl_seqlib|)
91
(autoload 'nintersection '|gcl_listlib|)
92
(autoload 'notany '|gcl_seq|)
93
(autoload 'notevery '|gcl_seq|)
94
(autoload 'si::normalize-type ':predlib)
95
(autoload 'nset-difference '|gcl_listlib|)
96
(autoload 'nset-exclusive-or '|gcl_listlib|)
97
(autoload 'nsubstitute '|gcl_seqlib|)
98
(autoload 'nsubstitute-if '|gcl_seqlib|)
99
(autoload 'nsubstitute-if-not '|gcl_seqlib|)
100
(autoload 'nunion '|gcl_listlib|)
101
(autoload 'phase '|gcl_numlib|)
102
(autoload 'position '|gcl_seqlib|)
103
(autoload 'position-if '|gcl_seqlib|)
104
(autoload 'position-if-not '|gcl_seqlib|)
105
(autoload 'prin1-to-string '|gcl_iolib|)
106
(autoload 'princ-to-string '|gcl_iolib|)
107
(autoload 'rational '|gcl_numlib|)
108
(autoload 'rationalize '|gcl_numlib|)
109
(autoload 'read-from-string '|gcl_iolib|)
110
(autoload 'reduce '|gcl_seqlib|)
111
(autoload 'remove '|gcl_seqlib|)
112
(autoload 'remove-duplicates '|gcl_seqlib|)
113
(autoload 'remove-if '|gcl_seqlib|)
114
(autoload 'remove-if-not '|gcl_seqlib|)
115
(autoload 'replace '|gcl_seqlib|)
116
(autoload 'sbit '|gcl_arraylib|)
117
(autoload 'search '|gcl_seqlib|)
118
(autoload 'set-difference '|gcl_listlib|)
119
(autoload 'set-exclusive-or '|gcl_listlib|)
120
(autoload 'signum '|gcl_numlib|)
121
(autoload 'sinh '|gcl_numlib|)
122
(autoload 'some '|gcl_seq|)
123
(autoload 'sort '|gcl_seqlib|)
124
(autoload 'stable-sort '|gcl_seqlib|)
125
(autoload 'subsetp '|gcl_listlib|)
126
(autoload 'substitute '|gcl_seqlib|)
127
(autoload 'substitute-if '|gcl_seqlib|)
128
(autoload 'substitute-if-not '|gcl_seqlib|)
129
(autoload 'subtypep '|gcl_predlib|)
130
(autoload 'tanh '|gcl_numlib|)
131
(autoload 'typep '|gcl_predlib|)
132
(autoload 'union '|gcl_listlib|)
133
(autoload 'vector '|gcl_arraylib|)
134
(autoload 'vector-pop '|gcl_arraylib|)
135
(autoload 'vector-push '|gcl_arraylib|)
136
(autoload 'vector-extend '|gcl_arraylib|)
137
(autoload 'write-to-string '|gcl_iolib|)
138
(autoload 'y-or-n-p '|gcl_iolib|)
139
(autoload 'yes-or-no-p '|gcl_iolib|)
142
(set-dispatch-macro-character #\# #\a 'si::sharp-a-reader)
143
(set-dispatch-macro-character #\# #\A 'si::sharp-a-reader)
144
(autoload 'si::sharp-a-reader '"iolib")
145
(set-dispatch-macro-character #\# #\s 'si::sharp-s-reader)
146
(set-dispatch-macro-character #\# #\S 'si::sharp-s-reader)
147
(autoload 'si::sharp-s-reader '|gcl_iolib|)
150
;;; DEFAUTOLOADMACRO definitions.
152
(autoload-macro 'assert '|gcl_assert|)
153
(autoload-macro 'ccase '|gcl_assert|)
154
(autoload-macro 'check-type '|gcl_assert|)
155
(autoload-macro 'ctypecase '|gcl_assert|)
156
(autoload-macro 'decf '|gcl_setf|)
157
(autoload-macro 'define-modify-macro '|gcl_setf|)
158
(autoload-macro 'define-setf-method '|gcl_setf|)
159
(autoload-macro 'defsetf '|gcl_setf|)
160
(autoload-macro 'defstruct '|gcl_defstruct|)
161
(autoload-macro 'si::define-structure '|gcl_defstruct|)
162
(autoload-macro 'deftype '|gcl_predlib|)
163
(autoload-macro 'do-all-symbols '|gcl_packlib|)
164
(autoload-macro 'do-external-symbols '|gcl_packlib|)
165
(autoload-macro 'do-symbols '|gcl_packlib|)
166
(autoload-macro 'ecase '|gcl_assert|)
167
(autoload-macro 'etypecase '|gcl_assert|)
168
(autoload-macro 'incf '|gcl_setf|)
169
(autoload-macro 'pop '|gcl_setf|)
170
(autoload-macro 'push '|gcl_setf|)
171
(autoload-macro 'pushnew '|gcl_setf|)
172
(autoload-macro 'remf '|gcl_setf|)
173
(autoload-macro 'rotatef '|gcl_setf|)
174
(autoload-macro 'setf '|gcl_setf|)
175
(autoload-macro 'shiftf '|gcl_setf|)
176
(autoload-macro 'step '|gcl_trace|)
177
(autoload-macro 'time '|gcl_mislib|)
178
(autoload-macro 'trace '|gcl_trace|)
179
(autoload-macro 'typecase '|gcl_assert|)
180
(autoload-macro 'untrace '|gcl_trace|)
181
(autoload-macro 'with-input-from-string '|gcl_iolib|)
182
(autoload-macro 'with-open-file '|gcl_iolib|)
183
(autoload-macro 'with-open-stream '|gcl_iolib|)
184
(autoload-macro 'with-output-to-string '|gcl_iolib|)
185
) ;;end autoloads of normally loaded files.j
186
(if (find-package "COMPILER") (push :compiler *features*))
188
(autoload 'compiler::emit-fn '|../cmpnew/gcl_collectfn|)
189
(autoload 'compiler::init-fn '|../cmpnew/gcl_collectfn|)
190
(autoload 'si::monstartup '"gprof")
191
(autoload 'si::set-up-profile '"profile")
193
(AUTOLOAD 'IDESCRIBE '|gcl_info|)
194
(AUTOLOAD 'INFO '|gcl_info|)
195
(AUTOLOAD 'LIST-MATCHES '|gcl_info|)
196
(AUTOLOAD 'get-match '|gcl_info|)
197
(AUTOLOAD 'print-node '|tinfo|)
198
(AUTOLOAD 'offer-choices '|tinfo|)
199
(AUTOLOAD 'tkconnect '|tkl|)
204
;; the sun has a broken ypbind business, if one wants to save.
205
;; So to stop users from invoking this
207
(defun user-homedir-pathname ()
208
(let* ((tem (si::getenv "HOME"))
209
(l (- (length tem) 1)))
210
(cond ((null tem) nil)
213
(eql (aref tem l) #\/))
214
(setq tem (concatenate 'string tem "/")))
218
(AUTOLOAD 'init-readline '|gcl_readline|)