#-(or (and lispworks unicode) (and sbcl sb-unicode)
(and allegro ics) (and clisp i18n)
(and openmcl openmcl-unicode-strings))
-(pushnew 'no-i18n *features*)
+(pushnew 'no-i18n cl:*features*)
(defvar *default-external-character-encoding*
nil
(:array . :array)))
#+(or allegro cormanlisp)
-(push 'uffi:no-long-long cl:*features)
+(push 'uffi:no-long-long cl:*features*)
#+lispworks
(setq *type-conversion-list*
(:array . :c-array)))
#+(and lispworks (not lispworks6))
-(push 'uffi:no-long-long cl:*features)
+(push 'uffi:no-long-long cl:*features*)
#+digitool
(setq *type-conversion-list*
(:float . :single-float) (:double . :double-float)
(:array . :array)))
#+digitool
-(push 'uffi:no-long-long cl:*features)
+(push 'uffi:no-long-long cl:*features*)
#+openmcl
(setq *type-conversion-list*