Plaster

common-lisp
 
1
(if (typep x 'class)
2
    (if (typep y 't)
3
        (call-method 'class 't)
4
        (no-such-method))
5
    (if (typep y 'class)
6
        (if (typep x 't)
7
            (call-method 't 'class)
8
            (no-such-method))
9
        (no-such-method)))