Permalink
Browse files

-Fixed brainfart (changed `name-field` to correct `(name field)` meth…

…od call)
  • Loading branch information...
1 parent 8c44c53 commit 9894fed3d1b5fefabd0dddd3588ee67e39b0ce46 ingram committed Sep 8, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 formlets.lisp
View
2 formlets.lisp
@@ -101,7 +101,7 @@
(defmacro define-show (field-type &body body)
`(defmethod show ((field ,field-type) &optional value error)
(html-to-str
- (:li :class (string-downcase (name-field))
+ (:li :class (string-downcase (name field))
(:span :class "label" (str (string-capitalize (regex-replace-all "-" (name field) " "))))
,@body
(when error (htm (:span :class "formlet-error"

0 comments on commit 9894fed

Please sign in to comment.