--- a/package.lisp Thu Oct 22 21:42:10 2020 -0400
+++ b/package.lisp Sat Oct 24 15:39:36 2020 -0400
@@ -357,6 +357,7 @@
:dis
:gimme
:hex
+ :phr
:pr
:pretty-print-hash-table
:print-table--- a/src/debugging.lisp Thu Oct 22 21:42:10 2020 -0400
+++ b/src/debugging.lisp Sat Oct 24 15:39:36 2020 -0400
@@ -41,6 +41,10 @@
(terpri)
(finish-output)))
+(defun phr ()
+ "Print a horizontal rule to aid in visual debugging."
+ (pr "-----------------------------------------------------------------------"))
+
(defun bits (&optional (n *) (size 8) (stream t))
"Print the bits of the `size`-bit two's complement integer `n` to `stream`.