diff options
author | Colin Okay <okay@toyful.space> | 2022-07-10 12:55:49 -0500 |
---|---|---|
committer | Colin Okay <okay@toyful.space> | 2022-07-10 12:55:49 -0500 |
commit | 81f246cca5924dfe93aa19ac0ca8d8824e3d9210 (patch) | |
tree | 06862bf5ac908f542547e8933f39d4514fa0e05d /hyperquirks.lisp | |
parent | bdbf5505906a9a809eda174c6de0def2e6a54d7c (diff) |
[add] defun-case
Diffstat (limited to 'hyperquirks.lisp')
-rw-r--r-- | hyperquirks.lisp | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/hyperquirks.lisp b/hyperquirks.lisp index b399519..2c7de1a 100644 --- a/hyperquirks.lisp +++ b/hyperquirks.lisp @@ -181,6 +181,27 @@ And would return +(defmacro defun-case (name &rest clauses) + "Clauses look like (VARLIST . BODY) + +E.g. + +(defun-case foobar + (() 10) + ((x y) (+ x y)) + ((foo) (* foo 2)) + ((a b c d) (list a b c d)))" + (let* ((rest-args + (gensym "variable-pattern-")) + (clauses + (loop for (arglist . body) in clauses + collect `(,(length arglist) + (destructuring-bind ,arglist ,rest-args + ,@body))))) + `(defun ,name (&rest ,rest-args) + (case (length ,rest-args) + ,@clauses)))) + ;;; LIST FUNCTIONS (defun group (n xs &optional default) |