8 lines
255 B
Plaintext
8 lines
255 B
Plaintext
;;; Regression test for AR 7742: ADVISE doesn't work on Common Lisp functions
|
|
|
|
(do-test "AR 7742"
|
|
(defun foo (a b) (list a b))
|
|
(il:advise 'foo 'il:before '(if (eql (first xcl:arglist) 10) (setf (first xcl:arglist) 12)))
|
|
(equal (foo 10 4) '(12 4))
|
|
)
|