diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index b140a9276a0e5f61e9b9339b0c8f80763ca8e78d..22cce3d76002a6bead3295c8dbc3bdf001359c95 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -11215,5 +11215,32 @@ Broken at C::WT-MAKE-CLOSURE. (funcall (compile nil form) s)) 1) +;;; sbcl 0.9.10.11 +;;; Failures associated with MULTIPLE-VALUE-PROG1 +;;; Argument X is not a NUMBER: NIL +;;; (SB-KERNEL:TWO-ARG-/ NIL 1) + +(deftest misc.630 + (funcall + (compile + nil + '(lambda () + (declare (optimize (speed 1) (debug 0) + (space 2) (safety 0) (compilation-speed 0))) + (unwind-protect 0 + (* (/ (multiple-value-prog1 -29457482 -5602513511) 1)))))) + 0) + +;;; Argument X is not a INTEGER: NIL +;;; (SB-KERNEL:TWO-ARG-AND NIL 1) + +(deftest misc.631 + (if (flet ((%f17 (f17-1 f17-2 f17-3 + &optional + &key (key1 0) + (key2 (if (evenp (multiple-value-prog1 0)) 0 0))) + 0)) + 0) + 0 0) + 0) -