From: Paul K. <pk...@us...> - 2008-08-20 20:34:05
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv32016/sbcl/src/compiler Modified Files: locall.lisp Log Message: 1.0.19.32: Small bugfixes * Modify a couple number functions to avoid silently executing the default case even when the argument isn't a number. * Fix an obscure bug in MERGE-LETS. Index: locall.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/locall.lisp,v retrieving revision 1.90 retrieving revision 1.91 diff -u -d -r1.90 -r1.91 --- locall.lisp 30 Jul 2008 17:58:42 -0000 1.90 +++ locall.lisp 20 Aug 2008 20:34:00 -0000 1.91 @@ -855,6 +855,8 @@ (setf (lambda-physenv clambda) home-physenv) (when physenv + (unless home-physenv + (setf home-physenv (get-lambda-physenv home))) (setf (physenv-nlx-info home-physenv) (nconc (physenv-nlx-info physenv) (physenv-nlx-info home-physenv)))) |