Changeset 14125

Timestamp:

08/18/12 13:49:37 (9 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/format.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/format.lisp

@@ -33 +33 @@
 
 (in-package "SYSTEM")
+
+;; If we're here due to an autoloader,
+;; we should prevent a circular dependency:
+;; when the debugger tries to print an error,
+;; it autoloads us, but if that autoloading causes
+;; another error, it circularly starts autoloading us.
+;;
+;; So, we replace whatever is in the function slot until
+;; we can reliably call FORMAT
+(setf (symbol-function 'format) #'sys::%format)
 
 (require "PRINT-OBJECT")