source:
trunk/abcl/t/generic-method.lisp
| Last change on this file was 15637, checked in by , 21 months ago | |
|---|---|
| File size: 396 bytes | |
| Line | |
|---|---|
| 1 | |
| 2 | |
| 3 | ;;; <https://abcl.org/trac/ticket/485> |
| 4 | (prove:plan 1) |
| 5 | (prove:ok |
| 6 | (handler-case |
| 7 | (progn |
| 8 | (in-package :cl-user) |
| 9 | |
| 10 | (defmethod test ((a integer) &key b c) |
| 11 | (declare (ignore a b c))) |
| 12 | |
| 13 | (defmethod test ((a real) &key b) |
| 14 | (declare (ignore a b))) |
| 15 | t) |
| 16 | (error () nil)) |
| 17 | "Evaluation of generic methods with incongruent keywords succeeds") |
| 18 | |
| 19 | (prove:finalize) |
Note: See TracBrowser
for help on using the repository browser.
