Changeset 14125


Ignore:
Timestamp:
08/18/12 13:49:37 (8 years ago)
Author:
ehuelsmann
Message:

Break circular dependency when printing errors when FORMAT
isn't fully autoloaded.

File:
1 edited

Legend:

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

    r14035 r14125  
    3333
    3434(in-package "SYSTEM")
     35
     36;; If we're here due to an autoloader,
     37;; we should prevent a circular dependency:
     38;; when the debugger tries to print an error,
     39;; it autoloads us, but if that autoloading causes
     40;; another error, it circularly starts autoloading us.
     41;;
     42;; So, we replace whatever is in the function slot until
     43;; we can reliably call FORMAT
     44(setf (symbol-function 'format) #'sys::%format)
    3545
    3646(require "PRINT-OBJECT")
Note: See TracChangeset for help on using the changeset viewer.