14 lines
367 B
Common Lisp
14 lines
367 B
Common Lisp
* (macroexpand-1
|
|
'(whenlet ((kwarg (slot-initarg slot))
|
|
(value (dispatch-get-value
|
|
slot
|
|
(slot-table-value
|
|
slot ht snake-case))))
|
|
(list kwarg value)))
|
|
(LET ((KWARG (SLOT-INITARG SLOT))
|
|
(VALUE
|
|
(DISPATCH-GET-VALUE SLOT
|
|
(SLOT-TABLE-VALUE SLOT HT SNAKE-CASE))))
|
|
(WHEN (AND KWARG VALUE)
|
|
(LIST KWARG VALUE)))
|