X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure.lisp;h=405a219ad43c8b8dbdd40a3e5b41d9a9d2c34c22;hb=22c1de0a40df83bb5628974010a879cb2c17ff53;hp=2f8d99ca32a4e14636a1e6754b317b6e6b39c930;hpb=9247f1e1e1daa42ed0c7d6df860ed7056fb8225e;p=sbcl.git

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index 2f8d99c..405a219 100644
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -676,5 +676,12 @@
   (let ((f (compile nil `(lambda () (make-instance ',class-name)))))
     (assert (typep (funcall f) class-name))))
 
+;;; bug 262: DEFMETHOD failed on a generic function without a lambda
+;;; list
+(ensure-generic-function 'bug262)
+(defmethod bug262 (x y)
+  (list x y))
+(assert (equal (bug262 1 2) '(1 2)))
+
 ;;;; success
 (sb-ext:quit :unix-status 104)