source: tags/1.9.0/t/generic-method.lisp

Last change on this file was 15512, checked in by Mark Evenson, 3 years ago

Test for evaluation of incongruent generic keywords

Tests <https://abcl.org/trac/ticket/485>
File size: 395 bytes
Line 
1(prove:plan 1)
2
3;;; <https://abcl.org/trac/ticket/485>
4(prove:ok
5 (handler-case 
6     (progn
7       (in-package :cl-user)
8
9       (defmethod test ((a integer) &key b c)
10         (declare (ignore a b c)))
11
12       (defmethod test ((a real) &key b)
13         (declare (ignore a b)))
14       t)
15   (error () nil))
16 "Evaluation of generic methods with incongruent keywords succeeds")
17
18(prove:finalize)
Note: See TracBrowser for help on using the repository browser.