Changeset 11668

Timestamp:

02/19/09 07:29:20 (14 years ago)

Author:

ehuelsmann

Message:

Prevent CLOS from kicking in on TRACE; makes sure the compiler doesn't get called to compile

an effective-method-function. Enables TRACEing the compiler.

File:

• trunk/abcl/src/org/armedbear/lisp/trace.lisp (modified) (3 diffs)

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

@@ -35 +35 @@
 
 (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))
@@ -44 +42 @@
 (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 ()
@@ -64 +59 @@
         (setf args (append (subseq args 0 index) (subseq args (+ index 2))))))
     (dolist (arg args)
-      (let ((info (make-trace-info :name arg
-                                   :breakp breakp)))
-        (push `(trace-1 ',arg ,info) results)))
+      (push `(trace-1 ',arg (make-trace-info :name ',arg
+                                             :breakp ,breakp)) results))
     `(list ,@(nreverse results))))