source: trunk/source/tests/ansi-tests/no-applicable-method.lsp @ 8991

Last change on this file since 8991 was 8991, checked in by gz, 11 years ago

Check in the gcl ansi test suite (original, in preparation for making local changes)

File size: 486 bytes
Line 
1;-*- Mode:     Lisp -*-
2;;;; Author:   Paul Dietz
3;;;; Created:  Sun May 11 13:46:44 2003
4;;;; Contains: Tests of NO-APPLICABLE-METHOD
5
6(in-package :cl-test)
7
8(defgeneric no-app-meth-gf-01 (x))
9
10(deftest no-applicable-method.1
11  (handler-case
12   (progn (no-app-meth-gf-01 'x) :bad)
13   (error () :good))
14  :good)
15
16;;; I can't conformantly define useful methods for no-applicable-method
17;;; without defining new generic function classes, and there's
18;;; no standard way to do that.  Grrr.
Note: See TracBrowser for help on using the repository browser.