(:double `(coerce (read-from-string ,line) 'double-float))
(:boolean `(string= "1" ,line))
(:choice `(cadr (find ,line ',(third def) :key #'car :test #'string=)))
(:double `(coerce (read-from-string ,line) 'double-float))
(:boolean `(string= "1" ,line))
(:choice `(cadr (find ,line ',(third def) :key #'car :test #'string=)))