hg.stevelosh.com > bobbin

--- a/src/main.lisp	Sun May 27 16:18:42 2018 -0400
+++ b/src/main.lisp	Sun May 27 16:20:59 2018 -0400
@@ -94,6 +94,7 @@
     (\"foo\" \"bar\" \"baz\")

   "
+  (check-type width (integer 1))
   (etypecase string-or-strings
     (string (wrap-string string-or-strings width))
     (list (wrap-lines string-or-strings width))))
author	Steve Losh <steve@stevelosh.com>
date	Sun, 27 May 2018 16:20:59 -0400
parents	2d9c69706dfc
children	abcdae1786b6
branches/tags	(none)
files	src/main.lisp