06/06/24 12:07:52
>>801
適当だけど。
(defmacro？typecase？(check？&rest？type-list)
？？(let？((#1=#:case))
？？？？？？？(dolist？(item？(reverse？type-list)？#1#)
？？？？？？？？？(push？(if？(eq？(car？item)？t)
？？？？？？？？？？？？？？？？？？？`(t？,(cadr？item))
？？？？？？？？？？？？？？？？？`((subtypep？(type-of？,check)
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？',(car？item))
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？,(cadr？item)))
？？？？？？？？？？？？？？？#1#))
？？？？(cons？'cond？#1#)))