From 51630b59762cadc2ea2a6c0f68454a41d050ada2 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 12 Oct 2003 21:44:30 +0000 Subject: [PATCH] More cmucl tests from random test generator. --- ansi-tests/misc.lsp | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index b6f03792..215eaf87 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -998,3 +998,41 @@ -12)))) -12) +;;; cmucl (2003-10-12) "Invalid number of arguments: 2" +(deftest misc.80 + (funcall + (compile nil + '(lambda (b c) + (declare (notinline > logior imagpart)) + (declare (optimize (speed 0) (debug 0))) + (labels ((%f16 () + (imagpart + (block b3 + (logeqv (logior -122516 (if (> -1 0) (return-from b3 c) b)) + (return-from %f16 32186310)))))) + (lognor (%f16) b)))) + -123886 -1656) + 57385) + +;;; cmucl (2003-10-12) "NIL is not of type C::REF" +(deftest misc.81 + (funcall + (compile nil '(lambda (b) + (block b7 + (let ((v3 (return-from b7 b))) + (unwind-protect b))))) + 17) + 17) + +;;; cmucl (2003-10-12) "The assertion C::SUCC failed" +(deftest misc.82 + (funcall + (compile nil '(lambda (c) + (labels ((%f15 () + (* (unwind-protect c) + (max -5726369 + (return-from %f15 3099206))))) + c))) + 0) + 0) + -- GitLab