Ignore:
Timestamp:
01/03/09 13:17:22 (14 years ago)
Author:
Mark Evenson
Message:

Revert inadvertent r11528.

File:
1 edited

Legend:

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

    r11528 r11529  
    5050    (format stream "~S" (class-name (class-of object))))
    5151  object)
    52 
    53 (defmethod print-object ((class java:java-class) stream)
    54    (write-string (%write-to-string class) stream))
    5552
    5653(defmethod print-object ((class class) stream)
     
    124121  (if *print-escape*
    125122      (print-unreadable-object (e stream :type t :identity t)
    126   (format stream "~A"
    127     (java:jcall (java:jmethod "java.lang.Object" "toString")
    128           (java:java-exception-cause e))))
    129       (format stream "Java exception '~A'."
    130         (java:jcall (java:jmethod "java.lang.Object" "toString")
    131         (java:java-exception-cause e)))))
    132 
    133 (defmethod print-object ((e java:java-exception) stream)
    134   (if *print-escape*
    135       (print-unreadable-object (e stream :type t :identity t)
    136123        (format stream "~A"
    137124                (java:jcall (java:jmethod "java.lang.Object" "toString")
Note: See TracChangeset for help on using the changeset viewer.