r1816: debian updates

[uffi.git] / src / primitives.cl

diff --git a/src/primitives.cl b/src/primitives.cl
index c61f6dd21680d7dc67ed3a25539726c47662af2d..009c1fcf8b974ebbf37b025edea42041154dc764 100644 (file)
--- a/src/primitives.cl
+++ b/src/primitives.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: primitives.cl,v 1.16 2002/04/06 19:53:08 kevin Exp $
+;;;; $Id: primitives.cl,v 1.17 2002/04/28 06:03:13 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -68,9 +68,10 @@ supports takes advantage of this optimization."
       )
   "Conversions in CMUCL or def-foreign-type are different thatn in def-function")
 
+(defparameter +type-conversion-list+ nil)
 
 #+cmu
-(defconstant +type-conversion-list+
+(setq +type-conversion-list+
     '((* . *) (:void . c-call:void) 
       (:short . c-call:short)
       (:pointer-void . (* t))
@@ -85,7 +86,7 @@ supports takes advantage of this optimization."
       (:float . c-call:float) (:double . c-call:double)
       (:array . alien:array)))
 #+allegro
-(defconstant +type-conversion-list+
+(setq +type-conversion-list+
     '((* . *) (:void . :void)
       (:short . :short)
       (:pointer-void . (* :void))
@@ -98,7 +99,7 @@ supports takes advantage of this optimization."
       (:float . :float) (:double . :double)
       (:array . :array)))
 #+lispworks
-(defconstant +type-conversion-list+
+(setq +type-conversion-list+
     '((* . :pointer) (:void . :void) 
       (:short . :short)
       (:pointer-void . (:pointer :void))