From 11befebb7dace0aca04fbfca173308b819d9e965 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Fri, 13 May 2005 11:43:17 +0000
Subject: [PATCH] When printing variables, also show the kind.

---
 src/cmp/cmputil.lsp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/cmp/cmputil.lsp b/src/cmp/cmputil.lsp
index c9ecfc8f1..fa1e58f1f 100644
--- a/src/cmp/cmputil.lsp
+++ b/src/cmp/cmputil.lsp
@@ -29,6 +29,9 @@
 	(format stream "#<a ~A: ~A>" (type-of ref-object) name)
 	(format stream "#<a ~A>" (type-of ref-object)))))
 
+(defun print-var (var-object stream)
+  (format stream "#<a VAR: ~A KIND: ~A>" (var-name var-object) (var-kind var-object)))
+
 (defun cmperr (string &rest args &aux (*print-case* :upcase))
   (print-current-form)
   (format t "~&;;; Error: ")