From 5405583c3e39f0aa1a5f1ea93f106f5dd598b757 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 10 Nov 2016 20:53:02 -0800
Subject: Fix circular printing issue for package objects.

* lib.c (obj_print_impl): Print package name using ~a
rather than ~s. Otherwise if the string object occurs
elsewhere in the structure being printed, we have a problem.
---
 lib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib.c b/lib.c
index 24b39747..cdc6564b 100644
--- a/lib.c
+++ b/lib.c
@@ -9651,7 +9651,7 @@ dot:
     put_string(symbol_name(obj), out);
     break;
   case PKG:
-    format(out, lit("#<package: ~s>"), obj->pk.name, nao);
+    format(out, lit("#<package: ~a>"), obj->pk.name, nao);
     break;
   case FUN:
     {
-- 
cgit v1.2.3