[armedbear-cvs] r11659 - trunk/abcl/src/org/armedbear/lisp

[Mark Evenson]

Author: mevenson
Date: Sat Feb 14 16:00:51 2009
New Revision: 11659

Log:
Re-enable compilation of TRACE forms.  

Introduces a bug by including a reference to CLOS in the TRACE
facility, which makes tracing of forms that access the compiler
(FORMAT et. al.) problematic.

Proposed solution to ship as 0.13.0. --Mark




Modified:
   trunk/abcl/src/org/armedbear/lisp/trace.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/trace.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/trace.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/trace.lisp	Sat Feb 14 16:00:51 2009
@@ -34,12 +34,18 @@
 (export 'untraced-function) ;; For FIND-GENERIC-FUNCTION in clos.lisp.
 
 (require "FORMAT")
+(require "CLOS") ;; XXX This eventually blows up in the compiler, but
+		 ;; works for a while.
 
 (defvar *trace-info-hashtable* (make-hash-table :test #'equal))
 
 (defstruct trace-info name untraced-function breakp)
 
-(defvar *trace-depth* 0)
+(defvar *trace-depth* 0
+  "Current depth of stack push for use of TRACE facility.")
+;;  XXX How can we "punt" on this form ???
+(defmethod make-load-form ((object trace-info) &optional environment)
+  (make-load-form-saving-slots object :environment environment))
 
 (defun list-traced-functions ()
   (copy-list *traced-names*))