-#+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")
-