From ab5a829ee416d49cab3e8cd32b5f7641f0493399 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Fri, 1 Sep 2006 15:15:32 +0000
Subject: [PATCH] Fixed 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 46f0f586d..b7fb7ec87 100644
--- a/src/cmp/cmpffi.lsp
+++ b/src/cmp/cmpffi.lsp
@@ -39,7 +39,7 @@
     :cstring (string "char*")
     :char* (string "char*")
     :short ((integer #.si:c-short-min #.si:c-short-max) "short")
-    :unsigned-short ((integer 0 #.si:c-short-max) "unsigned short")
+    :unsigned-short ((integer 0 #.si:c-ushort-max) "unsigned short")
     ))