feat: add of-type to generate semipredicates

2026-06-17 15:34:54 +00:00 · 2023-07-15 10:11:11 -07:00
parent 98492358e3
commit ea7e56385c
1 changed files with 5 additions and 0 deletions
@@ -193,6 +193,11 @@
        (alexandria:ends-with-subseq suffix
                                     it))))
 (defun of-type (type)
  (lambda (it)
    (when (typep it type)
      it)))
 (defun transform-head (fun)
  (lambda (it)
    (typecase it