From 8d4413a1856b5e6d3906a3a078997e71e1de9b68 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Fri, 4 Nov 2022 01:50:46 -0300
Subject: Add hash table printer (not recursive)

---
 package.lisp | 4 ++++
 print.lisp   | 6 ++++++
 utils.asd    | 1 +
 3 files changed, 11 insertions(+)
 create mode 100644 print.lisp

diff --git a/package.lisp b/package.lisp
index ddf77ea..ebbe43b 100644
--- a/package.lisp
+++ b/package.lisp
@@ -1,3 +1,7 @@
+(defpackage #:print
+  (:use #:cl)
+  (:export #:table))
+
 (defpackage #:queue
   (:use #:cl)
   (:export #:new
diff --git a/print.lisp b/print.lisp
new file mode 100644
index 0000000..ed02b1c
--- /dev/null
+++ b/print.lisp
@@ -0,0 +1,6 @@
+(in-package #:print)
+
+(defun table (tbl)
+  (maphash (lambda (k v)
+             (format t "Key: ~a, Value: ~a" k v))
+           tbl))
diff --git a/utils.asd b/utils.asd
index f9bcc50..a810c67 100644
--- a/utils.asd
+++ b/utils.asd
@@ -3,4 +3,5 @@
   :components
   ((:file "package")
    (:file "queue")
+   (:file "print")
    (:file "str")))
-- 
cgit v1.2.3