;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat May 17 20:55:50 2003 ;;;; Contains: Tests of DEFGENERIC (in-package :cl-test) ;;; Various error cases (defun defgeneric-testfn-01 (x) x) (deftest defgeneric.error.1 ;; Cannot make ordinary functions generic (let* ((name 'defgeneric-testfn-01) (fn (symbol-function name))) (if (not (typep fn 'generic-function)) (handler-case (progn (eval `(defgeneric ,name ())) :bad) (error () :good)) :good)) :good) (defmacro defgeneric-testmacro-02 (x) x) (deftest defgeneric.error.2 ;; Cannot make macros generic (let* ((name 'defgeneric-testmacro-02)) (handler-case (progn (eval `(defgeneric ,name ())) :bad) (error () :good))) :good)