From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Sat, 6 Feb 2010 00:32:05 +0000 (-0700)
Subject: Fix symbol name
X-Git-Tag: v1.7.3~1
X-Git-Url: http://git.kpe.io/?p=uffi.git;a=commitdiff_plain;h=54929de80ac68bb7ef45a28e70945c7243d39c82

Fix symbol name
---

diff --git a/src/i18n.lisp b/src/i18n.lisp
index e2d204a..a429444 100644
--- a/src/i18n.lisp
+++ b/src/i18n.lisp
@@ -16,7 +16,7 @@
 #-(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
diff --git a/src/primitives.lisp b/src/primitives.lisp
index 50023b3..e49c4b4 100644
--- a/src/primitives.lisp
+++ b/src/primitives.lisp
@@ -183,7 +183,7 @@ supports takes advantage of this optimization."
       (:array . :array)))
 
 #+(or allegro cormanlisp)
-(push 'uffi:no-long-long cl:*features)
+(push 'uffi:no-long-long cl:*features*)
 
 #+lispworks
 (setq *type-conversion-list*
@@ -208,7 +208,7 @@ supports takes advantage of this optimization."
       (: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*
@@ -224,7 +224,7 @@ supports takes advantage of this optimization."
        (: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*