Changeset 11659


Ignore:
Timestamp:
02/14/09 16:00:51 (6 years ago)
Author:
mevenson
Message:

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

File:
1 edited

Legend:

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

    r11628 r11659  
    3535
    3636(require "FORMAT")
     37(require "CLOS") ;; XXX This eventually blows up in the compiler, but
     38     ;; works for a while.
    3739
    3840(defvar *trace-info-hashtable* (make-hash-table :test #'equal))
     
    4042(defstruct trace-info name untraced-function breakp)
    4143
    42 (defvar *trace-depth* 0)
     44(defvar *trace-depth* 0
     45  "Current depth of stack push for use of TRACE facility.")
     46;;  XXX How can we "punt" on this form ???
     47(defmethod make-load-form ((object trace-info) &optional environment)
     48  (make-load-form-saving-slots object :environment environment))
    4349
    4450(defun list-traced-functions ()
Note: See TracChangeset for help on using the changeset viewer.