ea1c4d1db92d

Add typecheck
[view raw] [browse files]
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

Changes

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))))