[Ecls-list] (random tester) Various test failures

[Paul F. Dietz]

I can build ecl again, and I can run the gcl random tester (although only
interpreted; the ecl compiler is compiling it incorrectly.)  The failure
rate appears to be very high, one every few iterations for terms of size
100.

Here are some bugs revealed by the tester.  MULTIPLE-VALUE-CALL appears
to be involved in two of the failures

-------------


(funcall
  (compile
   nil
   '(lambda (a b)
      (declare (optimize (speed 1) (space 0) (safety 0) (debug 2)
		  (compilation-speed 1)))
      (flet ((%f10 (f10-1) (return-from %f10 a)))
	multiple-value-call #'%f10 (values b)))))
  10 -100)


"gcc -g -O2 -fomit-frame-pointer -mcpu=athlon -march=athlon -Dlinux -fPIC -fstrict-aliasing  -O -I/home/dietz/lib/ecl//h -w -c /tmp/ecl10Ex4DY65.c -o /tmp/ecl10Ex4DY65.o"
"gcc -o /tmp/ecl10Ex4DY65.fas -L/home/dietz/lib/ecl/ /tmp/ecl10Ex4DY65.o  -Wl,--rpath,/home/dietz/lib/ecl/ -shared   -lecl -ldl -lm"
;;; Freeing library /tmp/ecl10DVgcRg7.fas
Wrong number of arguments passed to an anonymous function
Broken at EVAL.

-------------

   (funcall
    (compile
     nil
     '(lambda (a b c)
	     (declare (type (integer -363953100 5324773015552) a))
	     (declare (type (integer -5744998440960 59520311) b))
	     (declare (type (integer -1864645998 -14608) c))
	     (declare (ignorable a b c))
	     (declare (optimize (speed 3) (space 0) (safety 2) (debug 0)
				(compilation-speed 2)))
	     (flet ((%f1 (f1-1 f1-2)
			 (labels ((%f1 (f1-1 f1-2) 0)) (%f1 a f1-2))))
		   (%f1 0 c))))
    10 20 -20000)

(Does not terminate?)

-------------

  (funcall
    (compile
     nil
     '(lambda (a)
        (declare (optimize (speed 3) (space 1) (safety 2) (debug 0)
			  (compilation-speed 0)))
        (labels ((%f18 (f18-1 f18-2 &optional (f18-3 a) (f18-4 a))
		      f18-2))
	 (multiple-value-call #'%f18 (values a 0)))))
    100)

Expected value: 0
Actual value: (#\Null . #\Null)


	Paul