# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1603568376 14400
# Node ID cacafa0cae854ba8b1249cdcca9ca3f710d8c133
# Parent  d8fe9c6ee9f4e4a45cefb669d8f65995ff9b9665
Add phr

diff -r d8fe9c6ee9f4 -r cacafa0cae85 package.lisp
--- 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
diff -r d8fe9c6ee9f4 -r cacafa0cae85 src/debugging.lisp
--- 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`.