Changeset 4803


Ignore:
Timestamp:
11/17/03 15:22:50 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r4513 r4803  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: trace.lisp,v 1.1 2003-10-23 13:08:01 piso Exp $
     4;;; $Id: trace.lisp,v 1.2 2003-11-17 15:22:50 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    4848         (trace-function
    4949          (lambda (&rest args)
    50             (format t (indent "~A: ~A ~A~%" depth) depth
     50            (format t (indent "~D: ~S~%" depth) depth
    5151                    (append (list symbol) args))
    5252            (incf depth)
    5353            (let ((r (multiple-value-list (apply untraced-function args))))
    5454              (decf depth)
    55               (format t (indent "~A: ~A returned" depth) depth symbol)
     55              (format t (indent "~D: ~A returned" depth) depth symbol)
    5656              (dolist (val r)
    57                 (format t " ~A" val))
     57                (format t " ~S" val))
    5858              (format t "~%")
    5959              (values-list r)))))
Note: See TracChangeset for help on using the changeset viewer.