X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.pure.lisp;h=425a0b2c96892d63304ef6d81a6baa72cf74bf5c;hb=ebc0f0ebf9efd39519ab86ba28c33abdb25443e0;hp=377c7e887fcc2e1e909223df06d7f31722195a18;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/tests/clos.pure.lisp b/tests/clos.pure.lisp
index 377c7e8..425a0b2 100644
--- a/tests/clos.pure.lisp
+++ b/tests/clos.pure.lisp
@@ -39,3 +39,13 @@
                             (simple-condition-format-arguments err)))
     (declare (ignore value))
     (assert (not format-err))))
+
+;;; another not (user-)observable behaviour: make sure that
+;;; sb-pcl::map-all-classes calls its function on each class once and
+;;; exactly once.
+(let (result)
+  (sb-pcl::map-all-classes (lambda (c) (push c result)))
+  (assert (equal result (remove-duplicates result))))
+
+;;; this one's user-observable
+(assert (typep #'(setf class-name) 'generic-function))