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