+#+allegro
+(defvar *allegro-foreign-type-list*
+ '((:char . :signed-byte)
+ (:unsigned-char . :unsigned-byte)
+ (:byte . :signed-byte)
+ (:unsigned-byte . :unsigned-byte)
+ (:short . :signed-word)
+ (:unsigned-short . :unsigned-word)
+ (:int . :signed-long)
+ (:unsigned-int . :unsigned-long32)
+ (:long . :signed-long)
+ (:unsigned-long . :unsigned-long)
+ (:float . :single-float)
+ (:double . :double-float)
+ )
+ "Conversion for Allegro's system:memref function")
+
+(dolist (type *type-conversion-list*)