From e360a64c42463fb42ae5b54e8db7b9f7408d9fc8 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Wed, 14 Jun 2017 17:58:20 -0700
Subject: [PATCH] Have "a" (GETTOPVAL) and "d" (GETDEFCELL) commands announce
 the atom index      of the atom they are working on.

	modified:   src/uraid.c
---
 src/uraid.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/uraid.c b/src/uraid.c
index 4cf1507..7622131 100644
--- a/src/uraid.c
+++ b/src/uraid.c
@@ -464,6 +464,8 @@ LispPTR uraid_commands() {
       if ((index = parse_atomstring(URaid_arg1)) == 0xffffffff) {
         printf("No such atom.\n");
         return (T);
+      } else {
+	printf("Atom: %s index %d\n", URaid_arg1, index);
       }
       print(*((LispPTR *)GetVALCELL68k(index)));
       break;
@@ -475,6 +477,8 @@ LispPTR uraid_commands() {
       if ((index = parse_atomstring(URaid_arg1)) == 0xffffffff) {
         printf("No such atom.\n");
         return (T);
+      } else {
+	printf("Atom: %s index %d\n", URaid_arg1, index);
       }
       defcell68k = (DefCell *)GetDEFCELL68k(index);
       if (defcell68k->ccodep) {