X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdefstruct.impure.lisp;h=7f2ba08bf27f8c6804901ac931a7a48144622215;hb=3fa2feb10ab827fc6cc2a85287e78b6e66b7bf4d;hp=e0ab36ed2dab1d35388d8651681e4fe96656d3dc;hpb=a32cea89ba8f5e8a0726f4182c7b6666646e6d3a;p=sbcl.git

diff --git a/tests/defstruct.impure.lisp b/tests/defstruct.impure.lisp
index e0ab36e..7f2ba08 100644
--- a/tests/defstruct.impure.lisp
+++ b/tests/defstruct.impure.lisp
@@ -1061,3 +1061,7 @@ redefinition."
     (type-error (e)
       (assert (eq 'string (type-error-expected-type e)))
       (assert (zerop (type-error-datum e))))))
+
+(with-test (:name defstruct-copier-typechecks-argument)
+  (assert (not (raises-error? (copy-person (make-astronaut :name "Neil")))))
+  (assert (raises-error? (copy-astronaut (make-person :name "Fred")))))