Commits

Anonymous committed 85d0fdb

fixed 'predicate' parser

Comments (0)

Files changed (1)

src/views/types/boolean.lisp

 				   (view form-view) (field form-view-field) &rest args)
   (declare (ignore args))
   (cond
-    ((string-equal "t" value) (values t t t))
+    ((member value '("t" "f") :test #'string-equal) (values t t t))
     ((null value) (values t t nil))
     (t nil)))