GitList

Edward Langley authored on 15/07/2023 17:11:11
Showing 1 changed files

@@ -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