From 5432879788772626f0fafd3c2ee0e1a16e5d3440 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 11 Mar 1992 18:30:51 +0000
Subject: [PATCH] two typos.

---
 compiler/rt/c-call.lisp | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/compiler/rt/c-call.lisp b/compiler/rt/c-call.lisp
index 7ed0b765a..9b0944040 100644
--- a/compiler/rt/c-call.lisp
+++ b/compiler/rt/c-call.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/c-call.lisp,v 1.8 1992/03/10 12:33:14 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/c-call.lisp,v 1.9 1992/03/11 18:30:51 wlott Exp $
 ;;;
 ;;; This file contains the VOPs and other necessary machine specific support
 ;;; routines for call-out to C.
@@ -135,13 +135,13 @@
 	      (multiple-value-bind
 		  (hi lo)
 		  (%alien-funcall function
-				  (make-alien-function-type
-				   :arg-types arg-types
-				   :result-type
-				   (let ((*values-type-okay*))
-				     (parse-alien-type
-				      '(values (signed 32)
-					       (unsigned 32)))))
+				  ',(make-alien-function-type
+				     :arg-types arg-types
+				     :result-type
+				     (let ((*values-type-okay* t))
+				       (parse-alien-type
+					'(values (signed 32)
+						 (unsigned 32)))))
 				  ,@arg-names)
 	      (make-double-float hi lo)))))
 	(alien-single-float-type
@@ -149,10 +149,10 @@
 	   `(lambda (function type ,@arg-names)
 	      (declare (ignore type))
 	      (make-single-float
-	       (%alien-function function
-				',(parse-alien-type
-				   `(function (signed 32) ,@arg-types))
-				,@arg-names)))))
+	       (%alien-funcall function
+			       ',(parse-alien-type
+				  `(function (signed 32) ,@arg-types))
+			       ,@arg-names)))))
 	(t
 	 (c::give-up))))))
 
-- 
GitLab