[armedbear-cvs] r14444 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Mar 22 17:03:38 2013
New Revision: 14444

Log:
Add print methods for compiler structures I'm trying to debug.

Modified:
   trunk/abcl/src/org/armedbear/lisp/jvm.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/jvm.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/jvm.lisp	Fri Mar 22 17:02:10 2013	(r14443)
+++ trunk/abcl/src/org/armedbear/lisp/jvm.lisp	Fri Mar 22 17:03:38 2013	(r14444)
@@ -269,6 +269,15 @@
   (compiland *current-compiland*)
   block)
 
+
+(defmethod print-object ((object jvm::variable-info) stream)
+  (print-unreadable-object (object stream :type t :identity t)
+    (princ (jvm::variable-name object) stream)
+    (princ " in " stream)
+    (princ (jvm::compiland-name (jvm::variable-compiland object)) stream)))
+
+
+
 (defstruct (var-ref (:constructor make-var-ref (variable)))
   ;; The variable this reference refers to. Will be NIL if the VAR-REF has been
   ;; rewritten to reference a constant value.
@@ -278,6 +287,11 @@
   ;; The constant value of this VAR-REF.
   constant-value)
 
+(defmethod print-object ((object jvm::var-ref) stream)
+  (print-unreadable-object (object stream :type t :identity t)
+    (princ "ref ")
+    (print-object (jvm::var-ref-variable object) stream)))
+
 ;; obj can be a symbol or variable
 ;; returns variable or nil
 (declaim (ftype (function (t) t) unboxed-fixnum-variable))