Changeset 8623


Ignore:
Timestamp:
02/22/05 05:51:19 (16 years ago)
Author:
piso
Message:

%FORMAT => FORMAT

File:
1 edited

Legend:

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

    r8183 r8623  
    11;;; print-unreadable-object.lisp
    22;;;
    3 ;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: print-unreadable-object.lisp,v 1.6 2004-11-21 16:02:45 piso Exp $
     3;;; Copyright (C) 2003-2005 Peter Graves
     4;;; $Id: print-unreadable-object.lisp,v 1.7 2005-02-22 05:51:19 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2626  (when *print-readably*
    2727    (error 'print-not-readable :object object))
    28   (%format stream "#<")
     28  (format stream "#<")
    2929  (when type
    30     (%format stream "~S" (type-of object))
    31       (%format stream " "))
     30    (format stream "~S" (type-of object))
     31      (format stream " "))
    3232  (when body
    3333    (funcall body))
    3434  (when identity
    3535    (when (or body (not type))
    36       (%format stream " "))
    37     (%format stream "{~X}" (identity-hash-code object)))
    38   (%format stream ">")
     36      (format stream " "))
     37    (format stream "{~X}" (identity-hash-code object)))
     38  (format stream ">")
    3939  nil)
    4040
Note: See TracChangeset for help on using the changeset viewer.