Исправление ados, (текущая версия) :
(macrolet ((matching (obj &body decls)
`(match ,obj
,@(mapcar (lambda (decl)
(destructuring-bind (regexp
binds
&optional positions)
decl
`((ppcre ,regexp
,@binds)
(list (list ,@(or positions
binds))))))))))
(matching a
(+day+ (m d))
(+date+ (d m y))
(+time+ (h m s))))Для нелюбителей копипастить
Исходная версия ados, :
(macrolet ((matching (obj &body decls)
`(match ,obj
,@(mapcar (lambda (decl)
(destructuring-bind (regexp
binds
&optional positions)
decl
`((ppcre ,regexp
,@binds)
(list (list ,@(or positions
binds))))))))))
(matching a
(+day+ (m d))
(+date+ (d m y))
(+time+ (h m s))))
Для нелюбителей копипастить