From: Christophe R. <cr...@us...> - 2002-10-09 10:07:46
|
Update of /cvsroot/sbcl/sbcl/tests In directory usw-pr-cvs1:/tmp/cvs-serv25391/tests Modified Files: array.pure.lisp Log Message: 0.7.8.21: Commit speedier version of UNCROSS for the cross-compiler, as in CSR sbcl-devel 2002-10-08 ... make the hash-table once and only once ;-) Index: array.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/array.pure.lisp,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- array.pure.lisp 8 Oct 2002 08:24:06 -0000 1.6 +++ array.pure.lisp 9 Oct 2002 10:07:43 -0000 1.7 @@ -79,12 +79,3 @@ (aref rmdr ,i))) vector) 0)))) -#| -(assert (= (funcall - (lambda (rmdr) - (declare (type (simple-array bit (*)) rmdr) - (optimize (speed 3) (safety 0))) - (aref rmdr 0)) - #*00000000000000000000000000000001000000000) - 0)) -|# \ No newline at end of file |