From 54929de80ac68bb7ef45a28e70945c7243d39c82 Mon Sep 17 00:00:00 2001
From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Fri, 5 Feb 2010 17:32:05 -0700
Subject: [PATCH 1/1] Fix symbol name

---
 src/i18n.lisp       | 2 +-
 src/primitives.lisp | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

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*
-- 
2.34.1