Changeset 8612


Ignore:
Timestamp:
02/20/05 14:41:05 (16 years ago)
Author:
piso
Message:

(require 'format)

File:
1 edited

Legend:

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

    r8548 r8612  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: trace.lisp,v 1.11 2005-02-12 03:30:32 piso Exp $
     4;;; $Id: trace.lisp,v 1.12 2005-02-20 14:41:05 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1919
    2020(in-package #:system)
     21
     22(require 'format)
    2123
    2224(defconstant *untraced-function* (make-symbol "untraced-function"))
     
    5254    (error "~S is not the name of a function." name))
    5355  (if (member name *traced-functions*)
    54       (%format t "~S is already being traced." name)
     56      (format t "~S is already being traced." name)
    5557      (let* ((untraced-function (fdefinition name))
    5658             (trace-function
    5759              (lambda (&rest args)
    5860                (with-standard-io-syntax
    59                     (%format *trace-output* (indent "~D: ~S~%") *trace-depth*
    60                              (cons name args)))
     61                    (format *trace-output* (indent "~D: ~S~%") *trace-depth*
     62                            (cons name args)))
    6163                (when breakp
    6264                  (break))
     
    6567                  (decf *trace-depth*)
    6668                  (with-standard-io-syntax
    67                     (%format *trace-output* (indent "~D: ~A returned") *trace-depth* name)
    68                       (dolist (val r)
    69                         (%format *trace-output* " ~S" val))
     69                    (format *trace-output* (indent "~D: ~A returned") *trace-depth* name)
     70                    (dolist (val r)
     71                      (format *trace-output* " ~S" val))
    7072                    (terpri *trace-output*))
    7173                  (values-list r)))))
     
    101103    (if (member arg *traced-functions*)
    102104        (untrace-1 arg)
    103         (%format t "~S is not being traced.~%" arg))))
     105        (format t "~S is not being traced.~%" arg))))
    104106
    105107(defun untrace-1 (symbol)
Note: See TracChangeset for help on using the changeset viewer.