Changeset 11007


Ignore:
Timestamp:
03/11/06 18:02:30 (15 years ago)
Author:
piso
Message:

OUTPUT-UGLY-OBJECT: call PRINT-OBJECT for standard-objects as well as structure-objects.

File:
1 edited

Legend:

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

    r8614 r11007  
    11;;; print.lisp
    22;;;
    3 ;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: print.lisp,v 1.11 2005-02-20 15:11:38 piso Exp $
     3;;; Copyright (C) 2004-2006 Peter Graves
     4;;; $Id: print.lisp,v 1.12 2006-03-11 18:02:30 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    122122         (output-vector object stream))
    123123        ((structure-object-p object)
     124         (print-object object stream))
     125        ((standard-object-p object)
    124126         (print-object object stream))
    125127        ((xp::xp-structure-p stream)
Note: See TracChangeset for help on using the changeset viewer.