12 lines
337 B
Common Lisp
12 lines
337 B
Common Lisp
|
(in-package :lizfcm.utils)
|
||
|
|
|
||
|
|
(defmacro table ((&key headers domain-order domain-values) &body body)
|
||
|
|
`(cons
|
||
|
|
,headers
|
||
|
|
(mapcar (lambda (tuple)
|
||
|
|
(destructuring-bind ,domain-order tuple
|
||
|
|
(append tuple
|
||
|
|
(list
|
||
|
|
,@body))))
|
||
|
|
,domain-values)))
|