From: Alexey D. <ade...@us...> - 2005-03-29 11:57:43
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30994/src/code Modified Files: target-alieneval.lisp Log Message: 0.8.21.7: * Fix infinite looping of ALIEN-FUNCALL, compiled with (DEBUG 3) as reported by Baughn on #lisp. * Replace BIT-BASH-COPY in CONCATENATE transformation for strings with UB8-BASH-COPY. Index: target-alieneval.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/target-alieneval.lisp,v retrieving revision 1.27 retrieving revision 1.28 diff -u -d -r1.27 -r1.28 --- target-alieneval.lisp 26 Oct 2004 17:51:14 -0000 1.27 +++ target-alieneval.lisp 29 Mar 2005 11:57:34 -0000 1.28 @@ -580,6 +580,7 @@ (parms (make-gensym-list (length args)))) (compile nil `(lambda (,fun ,@parms) + (declare (optimize (sb!c::insert-step-conditions 0))) (declare (type (alien ,type) ,fun)) (alien-funcall ,fun ,@parms))))) (setf (alien-fun-type-stub type) stub)) |