From c614e7eed163aea0a2f72b4d9c6517b10382c3a5 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 22 Feb 1992 01:59:57 +0000 Subject: [PATCH] Oops, the %ALIEN-FUNCALL derive-type optimizer was returning the alien-function type itself, instead of extracting the result type and returning that. --- compiler/aliencomp.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/compiler/aliencomp.lisp b/compiler/aliencomp.lisp index 9501110d2..32143cbff 100644 --- a/compiler/aliencomp.lisp +++ b/compiler/aliencomp.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/aliencomp.lisp,v 1.18 1992/02/21 23:38:42 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/aliencomp.lisp,v 1.19 1992/02/22 01:59:57 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -650,7 +650,9 @@ (let ((type (continuation-value type))) (unless (alien-function-type-p type) (error "Something is broken.")) - (specifier-type (compute-alien-rep-type type)))) + (specifier-type + (compute-alien-rep-type + (alien-function-type-result-type type))))) (defoptimizer (%alien-funcall ltn-annotate) ((function type &rest args) node policy) -- GitLab