Changeset 13183


Ignore:
Timestamp:
01/25/11 21:24:03 (11 years ago)
Author:
ehuelsmann
Message:

Make sure we autoload FORMAT whenever we've booted far enough
and the functions actually invoke simple-format.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Primitives.java

    r13143 r13183  
    17391739    };
    17401740
    1741     private static final Symbol _SIMPLE_FORMAT_FUNCTION_ =
    1742         internSpecial("*SIMPLE-FORMAT-FUNCTION*", PACKAGE_SYS, _FORMAT);
    1743 
    17441741    static void checkRedefinition(LispObject arg)
    1745 
    17461742    {
    17471743        final LispThread thread = LispThread.currentThread();
  • trunk/abcl/src/org/armedbear/lisp/autoloads.lisp

    r13104 r13183  
    436436(sys::autoload-macro '(pprint-logical-block) "pprint")
    437437
     438(in-package "SYSTEM")
     439
     440;; This one must be last, or at least past print-object and clos:
     441;; we don't want FORMATs executed before we can load those to end us
     442;; in a debugger. This command replaces the earlier function binding
     443;; where simple-format calls sys::%format
     444
     445(autoload 'simple-format "format")
  • trunk/abcl/src/org/armedbear/lisp/boot.lisp

    r12673 r13183  
    122122
    123123(defun simple-format (destination control-string &rest args)
    124   (apply *simple-format-function* destination control-string args))
     124  (apply #'format destination control-string args))
    125125
    126126(export 'simple-format '#:system)
  • trunk/abcl/src/org/armedbear/lisp/format.lisp

    r12412 r13183  
    28672867             (apply (fdefinition symbol) stream (next-arg) colonp atsignp (args)))))
    28682868
    2869 (setf sys::*simple-format-function* #'format)
     2869(setf (symbol-function 'sys::simple-format) #'format)
    28702870
    28712871
Note: See TracChangeset for help on using the changeset viewer.