* oop/goops.scm (define-class): Make sure that define-class will

continue to work when mmacros are expanded before execution.

* test-suite/tests/goops.test: Added tests for define-class.

1 files changed, 15 insertions, 0 deletions

diff --git a/test-suite/tests/goops.test b/test-suite/tests/goops.test
index 9705b19bc..ac78e8488 100644
--- a/test-suite/tests/goops.test
+++ b/test-suite/tests/goops.test
@@ -98,3 +98,18 @@
 
     (pass-if "direct superclass"
       (equal? (class-direct-supers <class>) (list <object>)))))
+
+(with-test-prefix "defining classes"
+
+  (with-test-prefix "define-class"
+
+    (pass-if "creating a new binding"
+      (eval '(define <foo> #f) (current-module))
+      (eval '(undefine <foo>) (current-module))
+      (eval '(define-class <foo> ()) (current-module))
+      (eval '(is-a? <foo> <class>) (current-module)))
+
+    (pass-if "overwriting a binding to a non-class"
+      (eval '(define <foo> #f) (current-module))
+      (eval '(define-class <foo> ()) (current-module))
+      (eval '(is-a? <foo> <class>) (current-module)))))