Changeset 4220 for trunk/j/src/org/armedbear

Timestamp:

10/06/03 13:55:22 (20 years ago)

Author:

piso

Message:

PRINT-UNREADABLE-OBJECT

File:

• trunk/j/src/org/armedbear/lisp/boot.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/boot.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: boot.lisp,v 1.115 2003-10-06 00:18:57 piso Exp $
+;;; $Id: boot.lisp,v 1.116 2003-10-06 13:55:22 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -401 +401 @@
         '(format s " "))
      ,(when identity
-        '(format s "@ ~A" (sys::hashcode-to-string obj)))
+        '(format s "@ #x~A" (sys::hashcode-to-string obj)))
      (format s ">")
      nil))