no-applicable-method.lsp 486 Bytes
Newer Older
pfdietz's avatar
pfdietz committed
1 2 3 4 5 6 7 8 9
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sun May 11 13:46:44 2003
;;;; Contains: Tests of NO-APPLICABLE-METHOD

(in-package :cl-test)

(defgeneric no-app-meth-gf-01 (x))

10
(deftest no-applicable-method.1
pfdietz's avatar
pfdietz committed
11 12 13 14 15
  (handler-case
   (progn (no-app-meth-gf-01 'x) :bad)
   (error () :good))
  :good)

16 17 18
;;; I can't conformantly define useful methods for no-applicable-method
;;; without defining new generic function classes, and there's
;;; no standard way to do that.  Grrr.