Changeset 8614


Ignore:
Timestamp:
02/20/05 15:11:38 (16 years ago)
Author:
piso
Message:

OUTPUT-UGLY-OBJECT: call PRINT-OBJECT for structures.

File:
1 edited

Legend:

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

    r7932 r8614  
    11;;; print.lisp
    22;;;
    3 ;;; Copyright (C) 2004 Peter Graves
    4 ;;; $Id: print.lisp,v 1.10 2004-10-08 14:21:27 piso Exp $
     3;;; Copyright (C) 2004-2005 Peter Graves
     4;;; $Id: print.lisp,v 1.11 2005-02-20 15:11:38 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    121121              (not (bit-vector-p object)))
    122122         (output-vector object stream))
     123        ((structure-object-p object)
     124         (print-object object stream))
    123125        ((xp::xp-structure-p stream)
    124126         (let ((s (sys::%write-to-string object)))
Note: See TracChangeset for help on using the changeset viewer.