Changeset 8496


Ignore:
Timestamp:
02/06/05 19:59:29 (16 years ago)
Author:
piso
Message:

DEFTEST: bind *PRINT-PRETTY* to T when printing the results (as well as the form).

File:
1 edited

Legend:

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

    r8352 r8496  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: rt.lisp,v 1.160 2005-01-13 12:30:56 piso Exp $
     4;;; $Id: rt.lisp,v 1.161 2005-02-06 19:59:29 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    9898      (unless passed
    9999        (let ((*print-pretty* t))
    100           (format t "Form: ~S~%" `,form))
    101         (format t "Expected value: ~S~%"
    102                 (if (= (length `,values) 1)
    103                     (car `,values)
    104                     `,values))
    105         (let ((r (if (= (length r) 1) (car r) r)))
    106           (format t "Actual value: ~S" r)
    107           (when (typep r 'condition)
    108             (format t " [\"~A\"]" r))
    109           (terpri))
    110         (finish-output))
     100          (format t "Form: ~S~%" `,form)
     101          (format t "Expected value: ~S~%"
     102                  (if (= (length `,values) 1)
     103                      (car `,values)
     104                      `,values))
     105          (let ((r (if (= (length r) 1) (car r) r)))
     106            (format t "Actual value: ~S" r)
     107            (when (typep r 'condition)
     108              (format t " [\"~A\"]" r))
     109            (terpri))
     110          (finish-output)))
    111111      (if passed (incf *passed*) (incf *failed*)))))
    112112
Note: See TracChangeset for help on using the changeset viewer.