From 4c721a6af611a8f42de6539d86157bc4c95db139 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 10 Mar 1992 09:39:59 +0000
Subject: [PATCH] Can't have both a info-arg function and regular arg function.

---
 compiler/rt/c-call.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/rt/c-call.lisp b/compiler/rt/c-call.lisp
index a86795357..ba3d1aafa 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.5 1992/03/10 08:59:49 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/c-call.lisp,v 1.6 1992/03/10 09:39:59 wlott Exp $
 ;;;
 ;;; This file contains the VOPs and other necessary machine specific support
 ;;; routines for call-out to C.
@@ -175,7 +175,6 @@
   (:results (results :more t))
   (:ignore args results)
   (:save-p t)
-  (:info function)
   (:temporary (:sc any-reg :offset nl0-offset
 		   :from (:argument 0) :to (:result 0)) nl0)
   (:temporary (:sc any-reg :offset lra-offset) lra)
-- 
GitLab