diff --git a/compiler/byte-comp.lisp b/compiler/byte-comp.lisp index 0b93ee89f190ccf558f77893049ac0230084f3f9..4cc5cb6472b465d259c2ca9eb4b789d32ef86590 100644 --- a/compiler/byte-comp.lisp +++ b/compiler/byte-comp.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/byte-comp.lisp,v 1.36 2003/08/25 20:51:00 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/byte-comp.lisp,v 1.37 2003/09/02 15:00:58 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1297,14 +1297,12 @@ (eq (global-var-kind leaf) :global-function))) (let* ((name (global-var-name leaf)) - (found (gethash name *two-arg-functions*))) - (output-push-fdefinition - segment - (if (and found - (= (length (basic-combination-args (continuation-dest cont))) - 2)) - found - name)))) + (dest (continuation-dest cont)) + (two-arg + (when (and (not (mv-combination-p dest)) + (= 2 (length (basic-combination-args dest)))) + (gethash name *two-arg-functions*)))) + (output-push-fdefinition segment (or two-arg name)))) ((eql values 0) ;; Real easy! nil) diff --git a/general-info/release-19a.txt b/general-info/release-19a.txt index 41a872f72a7a88181ade68ab8ccb5d8d9cd38e09..44c9a41fe02c7c21d3fb49739fea2a192cfbc77a 100644 --- a/general-info/release-19a.txt +++ b/general-info/release-19a.txt @@ -173,6 +173,8 @@ New in this release: - UNIX-MMAP not accepting a null fd, preventing anonymous mappings. - SIGPROF having the wrong value on GNU/Linux. + - Wrong byte-code being generated for (APPLY #'+ <X> <Y>) and + similar cases. * Other changes: - CREATE-REQUEST-SERVER has an additional :reuse-address keyword