From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 20 Sep 2002 13:05:59 +0000 (+0000)
Subject: r2795: *** empty log message ***
X-Git-Tag: v1.6.1~305
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=c500ae9281815a3804fb33e7f2807514a7bd790c;p=uffi.git

r2795: *** empty log message ***
---

diff --git a/src-mcl/primitives.cl b/src-mcl/primitives.cl
index 0f85ab1..f78fd54 100644
--- a/src-mcl/primitives.cl
+++ b/src-mcl/primitives.cl
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg and John DeSoi
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: primitives.cl,v 1.2 2002/09/20 04:51:14 kevin Exp $
+;;;; $Id: primitives.cl,v 1.3 2002/09/20 13:05:59 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and John DeSoi
@@ -77,33 +77,34 @@ supports takes advantage of this optimization."
   (defvar +type-conversion-hash+ (make-hash-table :size 20)))
 
 #-openmcl
-(defconstant +type-conversion-list+ 
-    '((* . :pointer) (:void . :void)
-      (:short . :short)
-      (:pointer-void . :pointer)
-      (:cstring . :string) 
-      (:char . :character)
-      (:unsigned-char . :unsigned-byte)
-      (:byte . :signed-byte) (:unsigned-byte . :unsigned-byte)
-      (:int . :integer) (:unsigned-int . :unsigned-integer) 
-      (:long . :long) (:unsigned-long . :unsigned-long)
-      (:float . :single-float) (:double . :double-float)
-      (:array . :array)))
+(defconstant +type-conversion-list+
+     '((* . :pointer) (:void . :void)
+       (:short . :short) (:unsigned-short . :unsigned-short)
+       (:pointer-void . :pointer)
+       (:cstring . :string)
+       (:char . :character)
+       (:unsigned-char . :unsigned-byte)
+       (:byte . :signed-byte) (:unsigned-byte . :unsigned-byte)
+       (:int . :long) (:unsigned-int . :unsigned-long)
+       (:long . :long) (:unsigned-long . :unsigned-long)
+       (:float . :single-float) (:double . :double-float)
+       (:array . :array)))
 
 #+openmcl
-(defconstant +type-conversion-list+ 
-    '((* . :address) (:void . :void)
-      (:short . :short)
-      (:pointer-void . :address)
-      (:cstring . :address) 
-      (:char . :signed-char)
-      (:unsigned-char . :unsigned-char)
-      (:byte . :signed-byte) (:unsigned-byte . :unsigned-byte)
-      (:int . :int) (:unsigned-int . :unsigned-int) 
-      (:long . :long) (:unsigned-long . :unsigned-long)
-      (:long-long . :signed-doubleword) (:unsigned-long-long . :unsigned-doubleword) 
-      (:float . :single-float) (:double . :double-float)
-      (:array . :array)))
+(defconstant +type-conversion-list+
+     '((* . :address) (:void . :void)
+       (:short . :short) (:unsigned-short . :unsigned-short)
+       (:pointer-void . :address)
+       (:cstring . :address)
+       (:char . :signed-char)
+       (:unsigned-char . :unsigned-char)
+       (:byte . :signed-byte) (:unsigned-byte . :unsigned-byte)
+       (:int . :int) (:unsigned-int . :unsigned-int)
+       (:long . :long) (:unsigned-long . :unsigned-long)
+       (:long-long . :signed-doubleword) (:unsigned-long-long . :unsigned-doubleword)
+       (:float . :single-float) (:double . :double-float)
+       (:array . :array)))
+
 
 (dolist (type +type-conversion-list+)
   (setf (gethash (car type) +type-conversion-hash+) (cdr type)))