X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.test.sh;h=fd948bf10e3fe68824ed3a71e3669e229560095a;hb=fab1ba8d4e92ecb5d496577fc205675218911b1d;hp=264f474a1c4d1f185f450d764778f38fa2273d31;hpb=778877cd8b0aad3cc3d2555e83d55e9f229678c7;p=sbcl.git

diff --git a/tests/compiler.test.sh b/tests/compiler.test.sh
index 264f474..fd948bf 100644
--- a/tests/compiler.test.sh
+++ b/tests/compiler.test.sh
@@ -130,6 +130,27 @@ cat > $tmpfilename <<EOF
 EOF
 fail_on_compiler_note $tmpfilename
 
+# test case from Rudi for some CLOS WARNINGness that shouldn't have
+# been there
+cat > $tmpfilename <<EOF
+    (eval-when (:compile-toplevel :load-toplevel :execute)
+      (defstruct buffer-state 
+        (output-index 0)))
+    
+    (defclass buffered-stream-mixin ()
+      ((buffer-state :initform (make-buffer-state))))
+    
+    (defgeneric frob (stream))
+    (defmethod frob ((stream t))
+      nil)
+    (defmethod frob ((stream buffered-stream-mixin))
+      (symbol-macrolet
+            ((index (buffer-state-output-index (slot-value stream 'buffer-state))))
+          (setf index 0))
+      (call-next-method))
+EOF
+expect_clean_compile $tmpfilename
+
 rm $tmpfilename
 rm $compiled_tmpfilename