From: Christophe R. <cr...@us...> - 2002-07-18 21:24:03
|
Update of /cvsroot/sbcl/sbcl/tests In directory usw-pr-cvs1:/tmp/cvs-serv17756/tests Modified Files: compiler.pure.lisp Log Message: 0.7.5.18: Get the NAME initarg for UNDEFINED-FUNCTION right (patch CSR "PPC and undefined functions" sbcl-devel 2002-07-17) Index: compiler.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- compiler.pure.lisp 11 Jul 2002 02:15:05 -0000 1.9 +++ compiler.pure.lisp 18 Jul 2002 21:24:00 -0000 1.10 @@ -140,3 +140,10 @@ ;;; bug caught and fixed by Raymond Toy cmucl-imp 2002-07-10: &REST ;;; variable is not optional. (assert (null (ignore-errors (eval '(funcall (lambda (&rest) 12)))))) + +;;; on the PPC, we got the magic numbers in undefined_tramp wrong for +;;; a while; fixed by CSR 2002-07-18 +(multiple-value-bind (value error) + (ignore-errors (some-undefined-function)) + (assert (null value)) + (assert (eq (cell-error-name error) 'some-undefined-function))) |