From ae2bb7b4833dfcc5e603682a9d052a7d19740ceb Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 22 Apr 1991 19:30:43 +0000
Subject: [PATCH] Oops, I seem to have broken the single return value case for
 call out. Fixed now.

---
 compiler/aliencomp.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/compiler/aliencomp.lisp b/compiler/aliencomp.lisp
index f50f341d3..77ff49406 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.13 1991/04/22 18:24:30 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/aliencomp.lisp,v 1.14 1991/04/22 19:30:43 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -540,10 +540,11 @@
 	(assert (null args)))
 
       (let ((results (and return-type (make-call-out-result-tn return-type))))
+	(unless (listp results)
+	  (setf results (list results)))
 	(vop* call-out call block
 	      ((reference-tn-list arg-tns nil))
-	      ((reference-tn-list (if (listp results) results (list results))
-				  t))
+	      ((reference-tn-list results t))
 	      name)
 	(vop dealloc-number-stack-space call block stack-frame-size)
 	(move-continuation-result call block results cont)))))
-- 
GitLab