/[gcl]/gcl/lsp/gcl_auto.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_auto.lsp

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

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

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