X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure.lisp;h=295e36040cb0e33da4530b23c45c15151c012915;hb=d3df7e8508d37a831ecf06a2c42ddb6ede1d99fa;hp=983fd5732935fa935a465799187d2731d2e15933;hpb=203c15eefffd996fd20bd28d461ea1aa3865dbbe;p=sbcl.git

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index 983fd57..295e360 100644
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -33,8 +33,8 @@
 (assert (= (wiggle (make-struct-a :x 6 :y 5))
            (jiggle (make-struct-b :x 19 :y 6 :z 2))))
 
-;;; Compiling DEFGENERIC should prevent "undefined function" style warnings
-;;; from code within the same file.
+;;; Compiling DEFGENERIC should prevent "undefined function" style
+;;; warnings from code within the same file.
 (defgeneric gf-defined-in-this-file ((x number) (y number)))
 (defun function-using-gf-defined-in-this-file (x y n)
   (unless (minusp n)
@@ -47,6 +47,25 @@
 (defmethod no-applicable-method ((zut-n-a-m (eql #'zut-n-a-m)) &rest args)
   (format t "~&No applicable method for ZUT-N-A-M ~S, yet.~%" args))
 (zut-n-a-m 1 2 3)
+
+;;; bug reported and fixed by Alexey Dejneka sbcl-devel 2001-09-10:
+;;; This DEFGENERIC shouldn't cause an error.
+(defgeneric ad-gf (a) (:method :around (x) x))
+
+;;; structure-class tests setup
+(defclass structure-class-foo1 () () (:metaclass cl:structure-class))
+(defclass structure-class-foo2 (structure-class-foo1)
+  () (:metaclass cl:structure-class))
+
+;;; standard-class tests setup
+(defclass standard-class-foo1 () () (:metaclass cl:standard-class))
+(defclass standard-class-foo2 (standard-class-foo1)
+  () (:metaclass cl:standard-class))
+
+(assert (typep (class-of (make-instance 'structure-class-foo1))
+               'structure-class))
+(assert (typep (make-instance 'structure-class-foo1) 'structure-class-foo1))
+(assert (typep (make-instance 'standard-class-foo1) 'standard-class-foo1))
 
 ;;;; success