0808ad46f57d

Be friendlier
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Fri, 20 Jan 2017 23:35:02 +0000
parents b85831aa30bb
children be417a5dcc54
branches/tags (none)
files src/beast.lisp

Changes

--- a/src/beast.lisp	Fri Jan 13 21:54:26 2017 +0000
+++ b/src/beast.lisp	Fri Jan 20 23:35:02 2017 +0000
@@ -233,7 +233,7 @@
 
   "
   (flet ((clean-field (f)
-           (etypecase f
+           (ctypecase f
              (symbol (list f))
              (list f))))
     `(progn