From fb350f46e8eac48a64b53c5d3a272d765ac55e43 Mon Sep 17 00:00:00 2001
From: japhie <japhie>
Date: Mon, 17 Oct 2005 21:09:17 +0000
Subject: [PATCH] - Fixed second half of typo ;)

---
 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 430163f27..8b745d871 100644
--- a/src/cmp/cmpffi.lsp
+++ b/src/cmp/cmpffi.lsp
@@ -263,7 +263,7 @@
 		(elt arg-types ndx) :char*)
 	  (return-from c1c-inline
 	    (c1expr
-	     `(ffi::with-ctring (,var ,value)
+	     `(ffi::with-cstring (,var ,value)
 	       (c-inline ,arguments ,arg-types ,output-type ,c-expression
 		,@rest)))))))
     ;; Find out the output types of the inline form. The syntax is rather relax