hg.stevelosh.com > cl-losh

--- 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`.
author	Steve Losh <steve@stevelosh.com>
date	Sat, 24 Oct 2020 15:39:36 -0400
parents	d8fe9c6ee9f4
children	1d3928ec556d
branches/tags	(none)
files	package.lisp src/debugging.lisp