Changeset 4220 for trunk/j/src/org


Ignore:
Timestamp:
10/06/03 13:55:22 (19 years ago)
Author:
piso
Message:

PRINT-UNREADABLE-OBJECT

File:
1 edited

Legend:

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

    r4207 r4220  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: boot.lisp,v 1.115 2003-10-06 00:18:57 piso Exp $
     4;;; $Id: boot.lisp,v 1.116 2003-10-06 13:55:22 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    401401        '(format s " "))
    402402     ,(when identity
    403         '(format s "@ ~A" (sys::hashcode-to-string obj)))
     403        '(format s "@ #x~A" (sys::hashcode-to-string obj)))
    404404     (format s ">")
    405405     nil))
Note: See TracChangeset for help on using the changeset viewer.