X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure.lisp;h=34d38bda1420921d5b4f0661c30d6609b85fcd27;hb=53f576d7d796e37a9c51c3c3296341458f046c44;hp=d548cffceff945be14b47ebc0dd474afce77004d;hpb=7a2c04ec5b42fa2faf4ce0969772b10042d74c70;p=sbcl.git

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index d548cff..34d38bd 100644
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -1639,5 +1639,13 @@
   (handler-bind ((compiler-note #'error))
     (stream-fd sb-sys:*stdin* :output)
     (stream-fd sb-sys:*stdin* :output)))
+
+(with-test (:name :bug-380)
+  (defclass bug-380 ()
+    ((slot :accessor bug380-slot)))
+  (fmakunbound 'foo-slot)
+  (defgeneric foo-slot (x y z))
+  (defclass foo ()
+    ((slot :accessor foo-slot-value))))
 
 ;;;; success