# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1465129621 0
# Node ID c1641cd6368f3389e9fee7db543b3a5597138823
# Parent  17beafee7d45b3e0500ac865e276f6d600450519
Add constant dump info

diff -r 17beafee7d45 -r c1641cd6368f src/wam/dump.lisp
--- a/src/wam/dump.lisp	Sun Jun 05 00:06:51 2016 +0000
+++ b/src/wam/dump.lisp	Sun Jun 05 12:27:01 2016 +0000
@@ -24,6 +24,8 @@
         (destructuring-bind (functor . arity)
             (wam-functor-lookup wam (cell-value cell))
           (format nil "~A/~D " functor arity)))
+      (+tag-constant+
+        (format nil "~A/0 " (wam-functor-symbol wam (cell-value cell))))
       (t ""))
     (registers-pointing-to wam addr)))