From 407fe1618584ec6dbfc1979b5030cee551ad0288 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 17 Oct 2005 11:51:46 +0000
Subject: [PATCH] Fixed typo (fixed previously by Macjiek, redone by today's
 sync)

---
 src/cmp/cmpffi.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp
index 60192d4b6..430163f27 100644
--- a/src/cmp/cmpffi.lsp
+++ b/src/cmp/cmpffi.lsp
@@ -264,7 +264,7 @@
 	  (return-from c1c-inline
 	    (c1expr
 	     `(ffi::with-ctring (,var ,value)
-	       (c1c-inline ,arguments ,arg-types ,output-type ,c-expression
+	       (c-inline ,arguments ,arg-types ,output-type ,c-expression
 		,@rest)))))))
     ;; Find out the output types of the inline form. The syntax is rather relax
     ;; 	output-type = lisp-type | c-type | (values {lisp-type | c-type}*)