Plaster
New
List
Login
common-lisp
default
phoe
2020.11.19 19:27:28
(defun test2 (s1 s2) (declare (optimize speed)) (cond ((typep s1 'a) (cond ((typep s2 'a) ...) ((typep s2 'b) ...) (...))) ((typep s1 'b) (cond ((typep s2 'a) ...) ((typep s2 'b) ...) (...))) (...)))
Raw
Annotate
Repaste
Annotations
text
default
anonymous
2020.11.19 19:30:36
(defun test2 (s1 s2) (declare (optimize speed)) (etypecase s1 (a (etypecase s2 (a 0) (b 1))) (b (etypecase s2 (a 2) (b 3)))))
Raw
Repaste
Edit