diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2022-11-04 01:50:46 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2022-11-04 01:50:46 -0300 |
| commit | 8d4413a1856b5e6d3906a3a078997e71e1de9b68 (patch) | |
| tree | 5485c45259746d39bd70cc9c0b9d03a3cbe7ed50 | |
| parent | 5b47a21cf818608883c875d0819bb40099d8e4f8 (diff) | |
| download | utils-8d4413a1856b5e6d3906a3a078997e71e1de9b68.tar.gz utils-8d4413a1856b5e6d3906a3a078997e71e1de9b68.zip | |
Add hash table printer (not recursive)
| -rw-r--r-- | package.lisp | 4 | ||||
| -rw-r--r-- | print.lisp | 6 | ||||
| -rw-r--r-- | utils.asd | 1 |
3 files changed, 11 insertions, 0 deletions
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)) @@ -3,4 +3,5 @@ :components ((:file "package") (:file "queue") + (:file "print") (:file "str"))) |