X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdefstruct.impure.lisp;h=029babdc875ef26a2c7b564616d5f14947740cd8;hb=64ec717cf13c44fb4571c1fd7fbd508551ecfe01;hp=23f9bc7553cc33440a32effff305f5ef82a7281e;hpb=f409f90c5e8c4c87ed9fa6efdc0e5c1952d94602;p=sbcl.git

diff --git a/tests/defstruct.impure.lisp b/tests/defstruct.impure.lisp
index 23f9bc7..029babd 100644
--- a/tests/defstruct.impure.lisp
+++ b/tests/defstruct.impure.lisp
@@ -514,6 +514,13 @@
   (test list)
   (test vector))
 
+(let* ((name (gensym))
+       (form `(defstruct ,name
+                (x nil :type (or null (function (integer)
+                                                (values number &optional foo)))))))
+  (eval (copy-tree form))
+  (eval (copy-tree form)))
+
 ;;; success
 (format t "~&/returning success~%")
 (quit :unix-status 104)