Ignore:
Timestamp:
02/19/09 07:29:20 (13 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:
1 edited

Legend:

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

    r11659 r11668  
    3535
    3636(require "FORMAT")
    37 (require "CLOS") ;; XXX This eventually blows up in the compiler, but
    38      ;; works for a while.
    3937
    4038(defvar *trace-info-hashtable* (make-hash-table :test #'equal))
     
    4442(defvar *trace-depth* 0
    4543  "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))
    4944
    5045(defun list-traced-functions ()
     
    6459        (setf args (append (subseq args 0 index) (subseq args (+ index 2))))))
    6560    (dolist (arg args)
    66       (let ((info (make-trace-info :name arg
    67                                    :breakp breakp)))
    68         (push `(trace-1 ',arg ,info) results)))
     61      (push `(trace-1 ',arg (make-trace-info :name ',arg
     62                                             :breakp ,breakp)) results))
    6963    `(list ,@(nreverse results))))
    7064
Note: See TracChangeset for help on using the changeset viewer.