diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 37cc5321e4afc69db179bba74c1af8e0e71ff654..d0f2aef0bb0003e75d84759cae50c0c75ca49f31 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -11593,3 +11593,16 @@ Broken at C::WT-MAKE-CLOSURE. 0)))) (funcall (compile nil form) 2582756596)) 0) + +;;; sbcl 0.9.13.8 (x86 linux) +;;; VALUES type illegal in this context: * + +(deftest misc.649 + (let ((form '(lambda (p2) + (declare (optimize (speed 0) (safety 0) (debug 2) (space 2)) + (type (member integer *) p2)) + (coerce 523242 p2)))) + (funcall (compile nil form) 523242)) + 523242) + +