Fix symbol name

diff --git a/src/i18n.lisp b/src/i18n.lisp
index e2d204a33a4eb752220aff41a98f382464bfba01..a42944451c627f8c14e2a49636de5cfa933ff9db 100644 (file)
--- 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 50023b354919a1932ae1e06d07efcd29f4cbe89a..e49c4b422febc328abb830a676a187acf1a7945c 100644 (file)
--- 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*