Changeset 12649
- Timestamp:
- 05/02/10 18:51:35 (14 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/AutoloadedFunctionProxy.java
r12513 r12649 52 52 AUTOLOADING_CACHE, // allow loading local preloaded functions 53 53 Load._FASL_ANONYMOUS_PACKAGE_, // package for uninterned symbols 54 Load._FASL_UNINTERNED_SYMBOLS_, // vector of uninterned symbols 54 55 Symbol._PACKAGE_, // current package 55 56 Symbol.LOAD_TRUENAME // LOAD-TIME-VALUE depends on this -
trunk/abcl/src/org/armedbear/lisp/Load.java
r12635 r12649 380 380 internSpecial("*FASL-ANONYMOUS-PACKAGE*", PACKAGE_SYS, NIL); 381 381 382 // ### *fasl-uninterned-symbols* 383 // internal symbol 384 /** 385 * This variable gets bound to NIL upon loading a FASL, but 386 * gets set to a vector of symbols as one of the first actions 387 * by the FASL itself. 388 * 389 */ 390 public static final Symbol _FASL_UNINTERNED_SYMBOLS_ = 391 internSpecial("*FASL-UNINTERNED-SYMBOLS*", PACKAGE_SYS, NIL); 392 382 393 // ### init-fasl &key version 383 394 private static final Primitive INIT_FASL = new init_fasl(); … … 395 406 final LispThread thread = LispThread.currentThread(); 396 407 thread.bindSpecial(_FASL_ANONYMOUS_PACKAGE_, NIL); 408 thread.bindSpecial(_FASL_UNINTERNED_SYMBOLS_, NIL); 397 409 thread.bindSpecial(_SOURCE_, NIL); 398 410 return faslLoadStream(thread); … … 410 422 boolean auto) 411 423 { 412 return loadFileFromStream(pathname == null ? NIL : pathname, 413 truename == null ? NIL : truename, 424 return loadFileFromStream(pathname == null ? NIL : pathname, 425 truename == null ? NIL : truename, 414 426 in, verbose, print, auto, false); 415 427 }
Note: See TracChangeset
for help on using the changeset viewer.