# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1484955302 0
# Node ID 0808ad46f57d8aeccf834ff08c5b3bf2a4825fde
# Parent  b85831aa30bb9f7596bf1dcb6a981fc71dcb5453
Be friendlier

diff -r b85831aa30bb -r 0808ad46f57d src/beast.lisp
--- 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