X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.impure.lisp;h=f410d4db31a50d88e51b0fbe2af8b2d53c63a5cb;hb=1f03c7f326823245708a84af86b31ac72bdb1742;hp=1affc4059f1debb52d897a1a7217caafc08414f5;hpb=796873d7b696e1079d2319844444040d18e0e2b1;p=sbcl.git

diff --git a/tests/compiler.impure.lisp b/tests/compiler.impure.lisp
index 1affc40..f410d4d 100644
--- a/tests/compiler.impure.lisp
+++ b/tests/compiler.impure.lisp
@@ -1159,6 +1159,13 @@
                             (make-something-known-to-be-a-struct :x "X" :y "Y")
                             #\x #\y)))
     (assert (not (ctu:find-named-callees f)))))
+
+(defclass some-slot-thing ()
+  ((slot :initarg :slot)))
+(with-test (:name :with-slots-the)
+  (let ((x (make-instance 'some-slot-thing :slot "foo")))
+    (with-slots (slot) (the some-slot-thing x)
+      (assert (equal "foo" slot)))))
 
 ;;;; tests not in the problem domain, but of the consistency of the
 ;;;; compiler machinery itself