source: branches/0.16.x/abcl/src/org/armedbear/lisp/Autoload.java

Last change on this file was 12059, checked in by ehuelsmann, 16 years ago

Lisp-side implementation for ThreadLock? and Mailbox,
both put in threads.lisp.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 33.1 KB
Line 
1/*
2 * Autoload.java
3 *
4 * Copyright (C) 2003-2006 Peter Graves
5 * $Id: Autoload.java 12059 2009-07-24 22:05:31Z ehuelsmann $
6 *
7 * This program is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU General Public License
9 * as published by the Free Software Foundation; either version 2
10 * of the License, or (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
20 *
21 * As a special exception, the copyright holders of this library give you
22 * permission to link this library with independent modules to produce an
23 * executable, regardless of the license terms of these independent
24 * modules, and to copy and distribute the resulting executable under
25 * terms of your choice, provided that you also meet, for each linked
26 * independent module, the terms and conditions of the license of that
27 * module.  An independent module is a module which is not derived from
28 * or based on this library.  If you modify this library, you may extend
29 * this exception to your version of the library, but you are not
30 * obligated to do so.  If you do not wish to do so, delete this
31 * exception statement from your version.
32 */
33
34package org.armedbear.lisp;
35
36public class Autoload extends Function
37{
38    protected final String fileName;
39    protected final String className;
40
41    private final Symbol symbol;
42
43    protected Autoload(Symbol symbol)
44    {
45        super();
46        fileName = null;
47        className = null;
48        this.symbol = symbol;
49        symbol.setBuiltInFunction(false);
50    }
51
52    protected Autoload(Symbol symbol, String fileName, String className)
53    {
54        super();
55        this.fileName = fileName;
56        this.className = className;
57        this.symbol = symbol;
58        symbol.setBuiltInFunction(false);
59    }
60
61    protected final Symbol getSymbol()
62    {
63        return symbol;
64    }
65
66    public static void autoload(String symbolName, String className)
67    {
68        autoload(PACKAGE_CL, symbolName, className);
69    }
70
71    public static void autoload(Package pkg, String symbolName,
72                                String className)
73    {
74        autoload(pkg, symbolName, className, false);
75    }
76
77    public static void autoload(Package pkg, String symbolName,
78                                String className, boolean exported)
79    {
80        Symbol symbol = intern(symbolName.toUpperCase(), pkg);
81        if (pkg != PACKAGE_CL && exported) {
82            try {
83                pkg.export(symbol);
84            }
85            catch (ConditionThrowable t) {
86                Debug.assertTrue(false);
87            }
88        }
89        if (symbol.getSymbolFunction() == null)
90            symbol.setSymbolFunction(new Autoload(symbol, null,
91                                                  "org.armedbear.lisp.".concat(className)));
92    }
93
94    public static void autoload(Symbol symbol, String className)
95    {
96        if (symbol.getSymbolFunction() == null)
97            symbol.setSymbolFunction(new Autoload(symbol, null,
98                                                  "org.armedbear.lisp.".concat(className)));
99    }
100
101    public void load() throws ConditionThrowable
102    {
103        if (className != null) {
104            final LispThread thread = LispThread.currentThread();
105            final SpecialBinding lastSpecialBinding = thread.lastSpecialBinding;
106            int loadDepth = Fixnum.getValue(_LOAD_DEPTH_.symbolValue());
107            thread.bindSpecial(_LOAD_DEPTH_, Fixnum.getInstance(++loadDepth));
108            try {
109                if (_AUTOLOAD_VERBOSE_.symbolValue(thread) != NIL) {
110                    final String prefix = Load.getLoadVerbosePrefix(loadDepth);
111                    Stream out = getStandardOutput();
112                    out._writeString(prefix);
113                    out._writeString(" Autoloading ");
114                    out._writeString(className);
115                    out._writeLine(" ...");
116                    out._finishOutput();
117                    long start = System.currentTimeMillis();
118                    Class.forName(className);
119                    long elapsed = System.currentTimeMillis() - start;
120                    out._writeString(prefix);
121                    out._writeString(" Autoloaded ");
122                    out._writeString(className);
123                    out._writeString(" (");
124                    out._writeString(String.valueOf(((float)elapsed)/1000));
125                    out._writeLine(" seconds)");
126                    out._finishOutput();
127                } else
128                    Class.forName(className);
129            }
130            catch (ClassNotFoundException e) {
131                e.printStackTrace();
132            }
133            finally {
134                thread.lastSpecialBinding = lastSpecialBinding;
135            }
136        } else
137            Load.loadSystemFile(getFileName(), true);
138        if (debug) {
139            if (symbol != null) {
140                if (symbol.getSymbolFunction() instanceof Autoload) {
141                    Debug.trace("Unable to autoload " + symbol.writeToString());
142                    System.exit(-1);
143                }
144            }
145        }
146    }
147
148    protected final String getFileName()
149    {
150        if (fileName != null)
151            return fileName;
152        return symbol.getName().toLowerCase();
153    }
154
155    @Override
156    public LispObject execute() throws ConditionThrowable
157    {
158        load();
159        return symbol.execute();
160    }
161
162    @Override
163    public LispObject execute(LispObject arg) throws ConditionThrowable
164    {
165        load();
166        return symbol.execute(arg);
167    }
168
169    @Override
170    public LispObject execute(LispObject first, LispObject second)
171        throws ConditionThrowable
172    {
173        load();
174        return symbol.execute(first, second);
175    }
176
177    @Override
178    public LispObject execute(LispObject first, LispObject second,
179                              LispObject third)
180        throws ConditionThrowable
181    {
182        load();
183        return symbol.execute(first, second, third);
184    }
185
186    @Override
187    public LispObject execute(LispObject first, LispObject second,
188                              LispObject third, LispObject fourth)
189        throws ConditionThrowable
190    {
191        load();
192        return symbol.execute(first, second, third, fourth);
193    }
194
195    @Override
196    public LispObject execute(LispObject first, LispObject second,
197                              LispObject third, LispObject fourth,
198                              LispObject fifth)
199        throws ConditionThrowable
200    {
201        load();
202        return symbol.execute(first, second, third, fourth, fifth);
203    }
204
205    @Override
206    public LispObject execute(LispObject first, LispObject second,
207                              LispObject third, LispObject fourth,
208                              LispObject fifth, LispObject sixth)
209        throws ConditionThrowable
210    {
211        load();
212        return symbol.execute(first, second, third, fourth, fifth, sixth);
213    }
214
215    @Override
216    public LispObject execute(LispObject first, LispObject second,
217                              LispObject third, LispObject fourth,
218                              LispObject fifth, LispObject sixth,
219                              LispObject seventh)
220        throws ConditionThrowable
221    {
222        load();
223        return symbol.execute(first, second, third, fourth, fifth, sixth,
224                              seventh);
225    }
226
227    @Override
228    public LispObject execute(LispObject first, LispObject second,
229                              LispObject third, LispObject fourth,
230                              LispObject fifth, LispObject sixth,
231                              LispObject seventh, LispObject eighth)
232        throws ConditionThrowable
233    {
234        load();
235        return symbol.execute(first, second, third, fourth, fifth, sixth,
236                              seventh, eighth);
237    }
238
239    @Override
240    public LispObject execute(LispObject[] args) throws ConditionThrowable
241    {
242        load();
243        return symbol.execute(args);
244    }
245
246    @Override
247    public String writeToString() throws ConditionThrowable
248    {
249        StringBuffer sb = new StringBuffer("#<AUTOLOAD ");
250        sb.append(symbol.writeToString());
251        sb.append(" \"");
252        if (className != null) {
253            int index = className.lastIndexOf('.');
254            if (index >= 0)
255                sb.append(className.substring(index + 1));
256            else
257                sb.append(className);
258            sb.append(".class");
259        } else
260            sb.append(getFileName());
261        sb.append("\">");
262        return sb.toString();
263    }
264
265    // ### autoload
266    private static final Primitive AUTOLOAD =
267        new Primitive("autoload", PACKAGE_EXT, true)
268    {
269        @Override
270        public LispObject execute(LispObject first) throws ConditionThrowable
271        {
272            if (first instanceof Symbol) {
273                Symbol symbol = (Symbol) first;
274                symbol.setSymbolFunction(new Autoload(symbol));
275                return T;
276            }
277            if (first instanceof Cons) {
278                for (LispObject list = first; list != NIL; list = list.cdr()) {
279                    Symbol symbol = checkSymbol(list.car());
280                    symbol.setSymbolFunction(new Autoload(symbol));
281                }
282                return T;
283            }
284            return error(new TypeError(first));
285        }
286        @Override
287        public LispObject execute(LispObject first, LispObject second)
288            throws ConditionThrowable
289        {
290            final String fileName = second.getStringValue();
291            if (first instanceof Symbol) {
292                Symbol symbol = (Symbol) first;
293                symbol.setSymbolFunction(new Autoload(symbol, fileName, null));
294                return T;
295            }
296            if (first instanceof Cons) {
297                for (LispObject list = first; list != NIL; list = list.cdr()) {
298                    Symbol symbol = checkSymbol(list.car());
299                    symbol.setSymbolFunction(new Autoload(symbol, fileName, null));
300                }
301                return T;
302            }
303            return error(new TypeError(first));
304        }
305    };
306
307    // ### resolve
308    // Force autoload to be resolved.
309    private static final Primitive RESOLVE =
310        new Primitive("resolve", PACKAGE_EXT, true, "symbol")
311    {
312        @Override
313        public LispObject execute(LispObject arg) throws ConditionThrowable
314        {
315            Symbol symbol = checkSymbol(arg);
316            LispObject fun = symbol.getSymbolFunction();
317            if (fun instanceof Autoload) {
318                Autoload autoload = (Autoload) fun;
319                autoload.load();
320                return symbol.getSymbolFunction();
321            }
322            return fun;
323        }
324    };
325
326    // ### autoloadp
327    private static final Primitive AUTOLOADP =
328        new Primitive("autoloadp", PACKAGE_EXT, true, "symbol")
329    {
330        @Override
331        public LispObject execute(LispObject arg) throws ConditionThrowable
332        {
333            if (arg instanceof Symbol) {
334                if (arg.getSymbolFunction() instanceof Autoload)
335                    return T;
336            }
337            return NIL;
338        }
339    };
340
341    static {
342        autoload("acos", "MathFunctions");
343        autoload("acosh", "MathFunctions");
344        autoload("arithmetic-error-operands", "ArithmeticError");
345        autoload("arithmetic-error-operation", "ArithmeticError");
346        autoload("ash", "ash");
347        autoload("asin", "MathFunctions");
348        autoload("asinh", "MathFunctions");
349        autoload("atan", "MathFunctions");
350        autoload("atanh", "MathFunctions");
351        autoload("broadcast-stream-streams", "BroadcastStream");
352        autoload("ceiling", "ceiling");
353        autoload("cell-error-name", "cell_error_name");
354        autoload("char", "StringFunctions");
355        autoload("char-equal", "CharacterFunctions");
356        autoload("char-greaterp", "CharacterFunctions");
357        autoload("char-lessp", "CharacterFunctions");
358        autoload("char-not-greaterp", "CharacterFunctions");
359        autoload("char-not-lessp", "CharacterFunctions");
360        autoload("char<", "CharacterFunctions");
361        autoload("char<=", "CharacterFunctions");
362        autoload("char=", "CharacterFunctions");
363        autoload("cis", "MathFunctions");
364        autoload("clrhash", "HashTableFunctions");
365        autoload("clrhash", "HashTableFunctions");
366        autoload("concatenated-stream-streams", "ConcatenatedStream");
367        autoload("cos", "MathFunctions");
368        autoload("cosh", "MathFunctions");
369        autoload("delete-file", "delete_file");
370        autoload("delete-package", "PackageFunctions");
371        autoload("echo-stream-input-stream", "EchoStream");
372        autoload("echo-stream-output-stream", "EchoStream");
373        autoload("exp", "MathFunctions");
374        autoload("expt", "MathFunctions");
375        autoload("file-author", "file_author");
376        autoload("file-error-pathname", "file_error_pathname");
377        autoload("file-length", "file_length");
378        autoload("file-string-length", "file_string_length");
379        autoload("file-write-date", "file_write_date");
380        autoload("float", "FloatFunctions");
381        autoload("float-digits", "FloatFunctions");
382        autoload("float-radix", "FloatFunctions");
383        autoload("float-sign", "float_sign");
384        autoload("floatp", "FloatFunctions");
385        autoload("floor", "floor");
386        autoload("ftruncate", "ftruncate");
387        autoload("get-internal-real-time", "Time");
388        autoload("get-internal-run-time", "Time");
389        autoload("get-output-stream-string", "StringOutputStream");
390        autoload("get-properties", "get_properties");
391        autoload("get-universal-time", "Time");
392        autoload("gethash", "HashTableFunctions");
393        autoload("gethash", "HashTableFunctions");
394        autoload("hash-table-count", "HashTableFunctions");
395        autoload("hash-table-count", "HashTableFunctions");
396        autoload("hash-table-p", "HashTableFunctions");
397        autoload("hash-table-p", "HashTableFunctions");
398        autoload("hash-table-rehash-size", "HashTableFunctions");
399        autoload("hash-table-rehash-size", "HashTableFunctions");
400        autoload("hash-table-rehash-threshold", "HashTableFunctions");
401        autoload("hash-table-rehash-threshold", "HashTableFunctions");
402        autoload("hash-table-size", "HashTableFunctions");
403        autoload("hash-table-size", "HashTableFunctions");
404        autoload("hash-table-test", "HashTableFunctions");
405        autoload("hash-table-test", "HashTableFunctions");
406        autoload("%import", "PackageFunctions");
407        autoload("input-stream-p", "input_stream_p");
408        autoload("integer-decode-float", "FloatFunctions");
409        autoload("interactive-stream-p", "interactive_stream_p");
410        autoload("last", "last");
411        autoload("lisp-implementation-type", "lisp_implementation_type");
412        autoload("lisp-implementation-version", "lisp_implementation_version");
413        autoload("list-all-packages", "PackageFunctions");
414        autoload("listen", "listen");
415        autoload("log", "MathFunctions");
416        autoload("logand", "logand");
417        autoload("logandc1", "logandc1");
418        autoload("logandc2", "logandc2");
419        autoload("logbitp", "logbitp");
420        autoload("logcount", "logcount");
421        autoload("logeqv", "logeqv");
422        autoload("logior", "logior");
423        autoload("lognand", "lognand");
424        autoload("lognor", "lognor");
425        autoload("lognot", "lognot");
426        autoload("logorc1", "logorc1");
427        autoload("logorc2", "logorc2");
428        autoload("logtest", "logtest");
429        autoload("logxor", "logxor");
430        autoload("long-site-name", "SiteName");
431        autoload("machine-instance", "SiteName");
432        autoload("machine-type", "machine_type");
433        autoload("machine-version", "machine_version");
434        autoload("make-broadcast-stream", "BroadcastStream");
435        autoload("make-concatenated-stream", "ConcatenatedStream");
436        autoload("make-echo-stream", "EchoStream");
437        autoload("make-string-input-stream", "StringInputStream");
438        autoload("make-synonym-stream", "SynonymStream");
439        autoload("maphash", "HashTableFunctions");
440        autoload("mod", "mod");
441        autoload("open-stream-p", "open_stream_p");
442        autoload("output-stream-p", "output_stream_p");
443        autoload("package-error-package", "package_error_package");
444        autoload("package-error-package", "package_error_package");
445        autoload("package-name", "PackageFunctions");
446        autoload("package-nicknames", "PackageFunctions");
447        autoload("package-shadowing-symbols", "PackageFunctions");
448        autoload("package-use-list", "PackageFunctions");
449        autoload("package-used-by-list", "PackageFunctions");
450        autoload("packagep", "PackageFunctions");
451        autoload("peek-char", "peek_char");
452        autoload("print-not-readable-object", "PrintNotReadable");
453        autoload("probe-file", "probe_file");
454        autoload("rational", "FloatFunctions");
455        autoload("rem", "rem");
456        autoload("remhash", "HashTableFunctions");
457        autoload("remhash", "HashTableFunctions");
458        autoload("rename-package", "PackageFunctions");
459        autoload("room", "room");
460        autoload("scale-float", "FloatFunctions");
461        autoload("schar", "StringFunctions");
462        autoload("shadow", "PackageFunctions");
463        autoload("shadowing-import", "PackageFunctions");
464        autoload("short-site-name", "SiteName");
465        autoload("simple-condition-format-arguments", "SimpleCondition");
466        autoload("simple-condition-format-control", "SimpleCondition");
467        autoload("simple-string-p", "StringFunctions");
468        autoload("sin", "MathFunctions");
469        autoload("sinh", "MathFunctions");
470        autoload("software-type", "software_type");
471        autoload("software-version", "software_version");
472        autoload("sqrt", "MathFunctions");
473        autoload("stream-element-type", "stream_element_type");
474        autoload("stream-error-stream", "StreamError");
475        autoload("stream-external-format", "stream_external_format");
476        autoload("stringp", "StringFunctions");
477        autoload("sxhash", "HashTableFunctions");
478        autoload("sxhash", "HashTableFunctions");
479        autoload("synonym-stream-symbol", "SynonymStream");
480        autoload("tan", "MathFunctions");
481        autoload("tanh", "MathFunctions");
482        autoload("truename", "probe_file");
483        autoload("truncate", "truncate");
484        autoload("type-error-datum", "TypeError");
485        autoload("type-error-expected-type", "TypeError");
486        autoload("unbound-slot-instance", "unbound_slot_instance");
487        autoload("unexport", "PackageFunctions");
488        autoload("unuse-package", "PackageFunctions");
489        autoload(PACKAGE_EXT, "arglist", "arglist", true);
490        autoload(PACKAGE_EXT, "assq", "assq", true);
491        autoload(PACKAGE_EXT, "assql", "assql", true);
492        autoload(PACKAGE_EXT, "file-directory-p", "probe_file", true);
493        autoload(PACKAGE_EXT, "gc", "gc", true);
494        autoload(PACKAGE_EXT, "get-floating-point-modes", "FloatFunctions", true);
495        autoload(PACKAGE_EXT, "make-slime-input-stream", "SlimeInputStream", true);
496        autoload(PACKAGE_EXT, "make-slime-output-stream", "SlimeOutputStream", true);
497        autoload(PACKAGE_EXT, "probe-directory", "probe_file", true);
498        autoload(PACKAGE_EXT, "set-floating-point-modes", "FloatFunctions", true);
499        autoload(PACKAGE_EXT, "simple-string-fill", "StringFunctions");
500        autoload(PACKAGE_EXT, "simple-string-search", "StringFunctions");
501        autoload(PACKAGE_EXT, "string-input-stream-current", "StringInputStream", true);
502        autoload(PACKAGE_EXT, "string-find", "StringFunctions");
503        autoload(PACKAGE_EXT, "string-position", "StringFunctions");
504        autoload(PACKAGE_JAVA, "%jnew-proxy", "JProxy");
505        autoload(PACKAGE_JAVA, "%find-java-class", "JavaClass");
506        autoload(PACKAGE_JAVA, "%jmake-invocation-handler", "JProxy");
507        autoload(PACKAGE_JAVA, "%jmake-proxy", "JProxy");
508        autoload(PACKAGE_JAVA, "%jnew-runtime-class", "RuntimeClass");
509        autoload(PACKAGE_JAVA, "%jredefine-method", "RuntimeClass");
510        autoload(PACKAGE_JAVA, "%jregister-handler", "JHandler");
511        autoload(PACKAGE_JAVA, "%load-java-class-from-byte-array", "RuntimeClass");
512        autoload(PACKAGE_MOP, "funcallable-instance-function", "StandardGenericFunction", false);
513        autoload(PACKAGE_MOP, "generic-function-name", "StandardGenericFunction", true);
514        autoload(PACKAGE_MOP, "method-qualifiers", "StandardMethod", true);
515        autoload(PACKAGE_MOP, "method-specializers", "StandardMethod", true);
516        autoload(PACKAGE_MOP, "set-funcallable-instance-function", "StandardGenericFunction", true);
517        autoload(PACKAGE_PROF, "%start-profiler", "Profiler", true);
518        autoload(PACKAGE_PROF, "stop-profiler", "Profiler", true);
519        autoload(PACKAGE_SYS, "%%string=", "StringFunctions");
520        autoload(PACKAGE_SYS, "%adjust-array", "adjust_array");
521        autoload(PACKAGE_SYS, "%defpackage", "PackageFunctions");
522        autoload(PACKAGE_SYS, "%finalize-generic-function", "StandardGenericFunction", true);
523        autoload(PACKAGE_SYS, "%generic-function-lambda-list", "StandardGenericFunction", true);
524        autoload(PACKAGE_SYS, "%generic-function-name", "StandardGenericFunction", true);
525        autoload(PACKAGE_SYS, "%get-output-stream-bytes", "ByteArrayOutputStream"); //AS 20090325
526        autoload(PACKAGE_SYS, "%make-array", "make_array");
527        autoload(PACKAGE_SYS, "%make-byte-array-output-stream", "ByteArrayOutputStream"); //AS 20090325
528        autoload(PACKAGE_SYS, "%make-condition", "make_condition", true);
529        autoload(PACKAGE_SYS, "%make-hash-table", "HashTableFunctions");
530        autoload(PACKAGE_SYS, "%make-hash-table", "HashTableFunctions");
531        autoload(PACKAGE_SYS, "%make-logical-pathname", "LogicalPathname", true);
532        autoload(PACKAGE_SYS, "%make-server-socket", "make_server_socket");
533        autoload(PACKAGE_SYS, "%make-socket", "make_socket");
534        autoload(PACKAGE_SYS, "%make-string", "StringFunctions");
535        autoload(PACKAGE_SYS, "%make-string-output-stream", "StringOutputStream");
536        autoload(PACKAGE_SYS, "%method-fast-function", "StandardMethod", true);
537        autoload(PACKAGE_SYS, "%method-function", "StandardMethod", true);
538        autoload(PACKAGE_SYS, "%method-generic-function", "StandardMethod", true);
539        autoload(PACKAGE_SYS, "%method-specializers", "StandardMethod", true);
540        autoload(PACKAGE_SYS, "%nstring-capitalize", "StringFunctions");
541        autoload(PACKAGE_SYS, "%nstring-downcase", "StringFunctions");
542        autoload(PACKAGE_SYS, "%nstring-upcase", "StringFunctions");
543        autoload(PACKAGE_SYS, "%run-shell-command", "ShellCommand");
544        autoload(PACKAGE_SYS, "%server-socket-close", "server_socket_close");
545        autoload(PACKAGE_SYS, "%set-arglist", "arglist");
546        autoload(PACKAGE_SYS, "%set-class-direct-slots", "SlotClass", true);
547        autoload(PACKAGE_SYS, "%set-function-info", "function_info");
548        autoload(PACKAGE_SYS, "%set-generic-function-lambda-list", "StandardGenericFunction", true);
549        autoload(PACKAGE_SYS, "%set-generic-function-name", "StandardGenericFunction", true);
550        autoload(PACKAGE_SYS, "%set-gf-required-args", "StandardGenericFunction", true);
551        autoload(PACKAGE_SYS, "%set-method-fast-function", "StandardMethod", true);
552        autoload(PACKAGE_SYS, "%set-method-function", "StandardMethod", true);
553        autoload(PACKAGE_SYS, "%set-method-generic-function", "StandardMethod", true);
554        autoload(PACKAGE_SYS, "%set-method-specializers", "StandardMethod", true);
555        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-and", "SimpleBitVector");
556        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-andc1", "SimpleBitVector");
557        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-andc2", "SimpleBitVector");
558        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-eqv", "SimpleBitVector");
559        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-ior", "SimpleBitVector");
560        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-nand", "SimpleBitVector");
561        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-nor", "SimpleBitVector");
562        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-not", "SimpleBitVector");
563        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-orc1", "SimpleBitVector");
564        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-orc2", "SimpleBitVector");
565        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-xor", "SimpleBitVector");
566        autoload(PACKAGE_SYS, "%slot-definition-allocation", "SlotDefinition", true);
567        autoload(PACKAGE_SYS, "%slot-definition-allocation-class", "SlotDefinition", true);
568        autoload(PACKAGE_SYS, "%slot-definition-initargs", "SlotDefinition", true);
569        autoload(PACKAGE_SYS, "%slot-definition-initform", "SlotDefinition", true);
570        autoload(PACKAGE_SYS, "%slot-definition-initfunction", "SlotDefinition", true);
571        autoload(PACKAGE_SYS, "%slot-definition-location", "SlotDefinition", true);
572        autoload(PACKAGE_SYS, "%slot-definition-name", "SlotDefinition", true);
573        autoload(PACKAGE_SYS, "%slot-definition-readers", "SlotDefinition", true);
574        autoload(PACKAGE_SYS, "%slot-definition-writers", "SlotDefinition", true);
575        autoload(PACKAGE_SYS, "%socket-accept", "socket_accept");
576        autoload(PACKAGE_SYS, "%socket-close", "socket_close");
577        autoload(PACKAGE_SYS, "%socket-stream", "socket_stream");
578        autoload(PACKAGE_SYS, "%string-capitalize", "StringFunctions");
579        autoload(PACKAGE_SYS, "%string-downcase", "StringFunctions");
580        autoload(PACKAGE_SYS, "%string-equal", "StringFunctions");
581        autoload(PACKAGE_SYS, "%string-greaterp", "StringFunctions");
582        autoload(PACKAGE_SYS, "%string-lessp", "StringFunctions");
583        autoload(PACKAGE_SYS, "%string-not-equal", "StringFunctions");
584        autoload(PACKAGE_SYS, "%string-not-greaterp", "StringFunctions");
585        autoload(PACKAGE_SYS, "%string-not-lessp", "StringFunctions");
586        autoload(PACKAGE_SYS, "%string-upcase", "StringFunctions");
587        autoload(PACKAGE_SYS, "%string/=", "StringFunctions");
588        autoload(PACKAGE_SYS, "%string<", "StringFunctions");
589        autoload(PACKAGE_SYS, "%string<=", "StringFunctions");
590        autoload(PACKAGE_SYS, "%string=", "StringFunctions");
591        autoload(PACKAGE_SYS, "%string>", "StringFunctions");
592        autoload(PACKAGE_SYS, "%string>=", "StringFunctions");
593        autoload(PACKAGE_SYS, "%time", "Time");
594        autoload(PACKAGE_SYS, "cache-emf", "StandardGenericFunction", true);
595        autoload(PACKAGE_SYS, "cache-slot-location", "StandardGenericFunction", true);
596        autoload(PACKAGE_SYS, "canonicalize-logical-host", "LogicalPathname", true);
597        autoload(PACKAGE_SYS, "class-direct-slots", "SlotClass");
598  autoload(PACKAGE_SYS, "%float-bits", "FloatFunctions");
599        autoload(PACKAGE_SYS, "coerce-to-double-float", "FloatFunctions");
600        autoload(PACKAGE_SYS, "coerce-to-single-float", "FloatFunctions");
601        autoload(PACKAGE_SYS, "compute-class-direct-slots", "SlotClass", true);
602        autoload(PACKAGE_SYS, "create-new-file", "create_new_file");
603        autoload(PACKAGE_SYS, "default-time-zone", "Time");
604        autoload(PACKAGE_SYS, "disassemble-class-bytes", "disassemble_class_bytes", true);
605        autoload(PACKAGE_SYS, "double-float-high-bits", "FloatFunctions", true);
606        autoload(PACKAGE_SYS, "double-float-low-bits", "FloatFunctions", true);
607        autoload(PACKAGE_SYS, "float-infinity-p", "FloatFunctions", true);
608        autoload(PACKAGE_SYS, "float-nan-p", "FloatFunctions", true);
609        autoload(PACKAGE_SYS, "float-string", "FloatFunctions", true);
610        autoload(PACKAGE_SYS, "function-info", "function_info");
611        autoload(PACKAGE_SYS, "generic-function-argument-precedence-order","StandardGenericFunction", true);
612        autoload(PACKAGE_SYS, "generic-function-classes-to-emf-table","StandardGenericFunction", true);
613        autoload(PACKAGE_SYS, "generic-function-documentation","StandardGenericFunction", true);
614        autoload(PACKAGE_SYS, "generic-function-initial-methods","StandardGenericFunction", true);
615        autoload(PACKAGE_SYS, "generic-function-method-class","StandardGenericFunction", true);
616        autoload(PACKAGE_SYS, "generic-function-method-combination","StandardGenericFunction", true);
617        autoload(PACKAGE_SYS, "generic-function-methods","StandardGenericFunction", true);
618        autoload(PACKAGE_SYS, "get-cached-emf", "StandardGenericFunction", true);
619        autoload(PACKAGE_SYS, "get-cached-slot-location", "StandardGenericFunction", true);
620        autoload(PACKAGE_SYS, "get-function-info-value", "function_info");
621        autoload(PACKAGE_SYS, "gf-required-args", "StandardGenericFunction", true);
622        autoload(PACKAGE_SYS, "hash-table-entries", "HashTableFunctions");
623        autoload(PACKAGE_SYS, "hash-table-entries", "HashTableFunctions");
624        autoload(PACKAGE_SYS, "layout-class", "Layout", true);
625        autoload(PACKAGE_SYS, "layout-length", "Layout", true);
626        autoload(PACKAGE_SYS, "layout-slot-index", "Layout", true);
627        autoload(PACKAGE_SYS, "layout-slot-location", "Layout", true);
628        autoload(PACKAGE_SYS, "make-case-frob-stream", "CaseFrobStream");
629        autoload(PACKAGE_SYS, "make-double-float", "FloatFunctions", true);
630        autoload(PACKAGE_SYS, "make-file-stream", "FileStream");
631        autoload(PACKAGE_SYS, "make-fill-pointer-output-stream", "FillPointerOutputStream");
632        autoload(PACKAGE_SYS, "make-forward-referenced-class", "ForwardReferencedClass", true);
633        autoload(PACKAGE_SYS, "make-layout", "Layout", true);
634        autoload(PACKAGE_SYS, "make-single-float", "FloatFunctions", true);
635        autoload(PACKAGE_SYS, "make-slot-definition", "SlotDefinition", true);
636        autoload(PACKAGE_SYS, "make-structure-class", "StructureClass");
637        autoload(PACKAGE_SYS, "make-symbol-macro", "SymbolMacro");
638        autoload(PACKAGE_SYS, "method-documentation", "StandardMethod", true);
639        autoload(PACKAGE_SYS, "method-lambda-list", "StandardMethod", true);
640        autoload(PACKAGE_SYS, "psxhash", "HashTableFunctions");
641        autoload(PACKAGE_SYS, "puthash", "HashTableFunctions");
642        autoload(PACKAGE_SYS, "puthash", "HashTableFunctions");
643        autoload(PACKAGE_SYS, "set-function-info-value", "function_info");
644        autoload(PACKAGE_SYS, "set-generic-function-argument-precedence-order","StandardGenericFunction", true);
645        autoload(PACKAGE_SYS, "set-generic-function-classes-to-emf-table","StandardGenericFunction", true);
646        autoload(PACKAGE_SYS, "set-generic-function-documentation","StandardGenericFunction", true);
647        autoload(PACKAGE_SYS, "set-generic-function-initial-methods","StandardGenericFunction", true);
648        autoload(PACKAGE_SYS, "set-generic-function-method-class","StandardGenericFunction", true);
649        autoload(PACKAGE_SYS, "set-generic-function-method-combination","StandardGenericFunction", true);
650        autoload(PACKAGE_SYS, "set-generic-function-methods","StandardGenericFunction", true);
651        autoload(PACKAGE_SYS, "set-method-documentation", "StandardMethod", true);
652        autoload(PACKAGE_SYS, "set-method-lambda-list", "StandardMethod", true);
653        autoload(PACKAGE_SYS, "set-method-qualifiers", "StandardMethod", true);
654        autoload(PACKAGE_SYS, "set-slot-definition-allocation", "SlotDefinition", true);
655        autoload(PACKAGE_SYS, "set-slot-definition-allocation-class", "SlotDefinition", true);
656        autoload(PACKAGE_SYS, "set-slot-definition-initargs", "SlotDefinition", true);
657        autoload(PACKAGE_SYS, "set-slot-definition-initform", "SlotDefinition", true);
658        autoload(PACKAGE_SYS, "set-slot-definition-initfunction", "SlotDefinition", true);
659        autoload(PACKAGE_SYS, "set-slot-definition-location", "SlotDefinition", true);
660        autoload(PACKAGE_SYS, "set-slot-definition-name", "SlotDefinition", true);
661        autoload(PACKAGE_SYS, "set-slot-definition-readers", "SlotDefinition", true);
662        autoload(PACKAGE_SYS, "set-slot-definition-writers", "SlotDefinition", true);
663        autoload(PACKAGE_SYS, "simple-list-remove-duplicates", "simple_list_remove_duplicates");
664        autoload(PACKAGE_SYS, "single-float-bits", "FloatFunctions", true);
665        autoload(PACKAGE_SYS, "std-allocate-instance", "StandardObjectFunctions", true);
666        autoload(PACKAGE_SYS, "zip", "zip", true);
667
668        autoload(PACKAGE_THREADS, "make-mutex", "Mutex", true);
669        autoload(PACKAGE_THREADS, "get-mutex", "Mutex", true);
670        autoload(PACKAGE_THREADS, "release-mutex", "Mutex", true);
671
672        autoload(Symbol.COPY_LIST, "copy_list");
673
674        autoload(Symbol.SET_CHAR, "StringFunctions");
675        autoload(Symbol.SET_SCHAR, "StringFunctions");
676
677        autoload(Symbol.SET_CLASS_SLOTS, "SlotClass");
678        autoload(Symbol._CLASS_SLOTS, "SlotClass");
679
680        autoload(Symbol.JAVA_EXCEPTION_CAUSE, "JavaException");
681        autoload(Symbol.JCLASS_NAME, "jclass_name");
682        autoload(Symbol.JCLASS_OF, "jclass_of");
683        autoload(Symbol.JMETHOD_RETURN_TYPE, "jmethod_return_type");
684    }
685}
Note: See TracBrowser for help on using the repository browser.