# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1527452459 14400
# Node ID ea1c4d1db92dfd9a069460a5ef3ddf18f1613872
# Parent  2d9c69706dfcea7e1b25c58ede418a6627048842
Add typecheck

diff -r 2d9c69706dfc -r ea1c4d1db92d src/main.lisp
--- 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))))