22 lines
542 B
Common Lisp
22 lines
542 B
Common Lisp
(load "functions.lisp")
|
|
|
|
(let
|
|
((add-method-clause
|
|
(lambda (method)
|
|
(cons (first method)
|
|
(list
|
|
(cons 'apply
|
|
(cons (cons 'lambda (rest method))
|
|
(list
|
|
(if (equal t (car method))
|
|
'arguments
|
|
'(rest arguments))))))))))
|
|
|
|
(define-special dlambda (&rest methods)
|
|
(cons 'lambda
|
|
(cons '(&rest arguments)
|
|
(list
|
|
(cons 'case
|
|
(cons '(first arguments)
|
|
(mapcar add-method-clause methods))))))))
|