Commit 78126092 authored by camm's avatar camm
Browse files

Trigger error if function calls use too many 'values';Maximum values increased...

Trigger error if function calls use too many 'values';Maximum values increased to 50;Enable previously failing tests in multiple-value-{setq,prog1}.lsp;prototype for system_time_zone_helper
parent 200e2968
......@@ -45,7 +45,7 @@
x y))
(1 0 2 10))
#|
(deftest multiple-value-prog1.8
(let* ((n (min 100 multiple-values-limit)))
(not
......@@ -58,7 +58,7 @@
nil)))
x))))
nil)
|#
(deftest multiple-value-prog1.9
(let ((x 0) (y 0))
......
......@@ -87,7 +87,7 @@
(values x y z))
nil nil nil)
#|
(deftest multiple-value-setq.12
(let ((n (min 100 multiple-values-limit))
(vars nil)
......@@ -106,4 +106,4 @@
unless (eval form)
collect (list i form)))
nil)
|#
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment