X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fcompiler.pure.lisp;h=ce69513858f4a0a8e21e12584b642b24917f8dff;hb=b76dac3d5f89700f3a076403157eae3c52e4c118;hp=5d12ac054a83b0064bc8e0b6b2f1e1445ca869c5;hpb=9ad341320db0daccfdc1dc0d68385ed5dade8c66;p=sbcl.git

diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp
index 5d12ac0..ce69513 100644
--- a/tests/compiler.pure.lisp
+++ b/tests/compiler.pure.lisp
@@ -2316,3 +2316,10 @@
                      t)
                    t
                    (error "~a" y)))))
+
+;;; Compiling W-P-O when the pinned objects are known to be fixnums
+;;; or characters.
+(compile nil '(lambda (x y)
+               (declare (fixnum y) (character x))
+               (sb-sys:with-pinned-objects (x y)
+                 (some-random-function))))