← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

« back to all changes in this revision

Viewing changes to ansi-tests/define-method-combination-long-form.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
ansi-tests/define-method-combination-long-form.lsp
 
1
;-*- Mode:     Lisp -*-
 
2
;;;; Author:   Paul Dietz
 
3
;;;; Created:  Sun Jul 13 08:26:41 2003
 
4
;;;; Contains: Tests of DEFINE-METHOD-COMBINATION (long form)
 
5
 
 
6
(in-package :cl-test)
 
7
 
 
8
(eval-when (:load-toplevel :compile-toplevel :execute)
 
9
  (report-and-ignore-errors
 
10
   (defparameter *dmc-long-01*
 
11
     (define-method-combination mc-long-01 nil nil)))
 
12
  (report-and-ignore-errors
 
13
   (defgeneric dmc-long-gf-01 (x y) (:method-combination mc-long-01)))
 
14
  )
 
15
 
 
16
(deftest define-method-combination-long.01.1
 
17
  (eqt *dmc-long-01* 'mc-long-01)
 
18
  t)
 
19
 
 
20
;;; The list of method groups specifiers for this method combination
 
21
;;; is empty, so no methods are valid.
 
22
(deftest define-method-combination-long.01.2
 
23
  (progn
 
24
    (eval '(defmethod dmc-long-gf-01 ((x t) (y t)) :foo))
 
25
    (handler-case
 
26
     (dmc-long-gf-01 'a 'b)
 
27
     (error () :caught)))
 
28
  :caught)
 
29
 
 
30
   
 
31
 
 
32
     
 
 
b'\\ No newline at end of file'