From f1af99ebeaa0fdbb435e4dd68725b843668bf60f Mon Sep 17 00:00:00 2001
From: goffioul <goffioul>
Date: Mon, 10 Oct 2005 08:42:22 +0000
Subject: [PATCH] Fix typos.

---
 src/cmp/cmpffi.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp
index 49ecf90db..680b71656 100644
--- a/src/cmp/cmpffi.lsp
+++ b/src/cmp/cmpffi.lsp
@@ -224,7 +224,7 @@
 	   (otherwise
 	    (coercion-error))))
 	((:cstring)
-	 (coercion error))
+	 (coercion-error))
 	((:char*)
 	 (case loc-rep-type
 	   ((:object)
@@ -232,7 +232,7 @@
 	   ((:pointer-void)
 	    (wt "(char *)(" loc ")"))
 	   (otherwise
-	    (coercion error))))
+	    (coercion-error))))
 	(t
 	 (coercion-error))))))