X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fprimitives.lisp;h=66a0a7c7e845ecf7fb5f6993d4c25c1c83ab58f3;hb=27073cc090c29aa5dcf9ed9becdf3e73b937b0bb;hp=50023b354919a1932ae1e06d07efcd29f4cbe89a;hpb=e0f5a9b35708481bb640718f8ecd837cf4ae69f5;p=uffi.git

diff --git a/src/primitives.lisp b/src/primitives.lisp
index 50023b3..66a0a7c 100644
--- a/src/primitives.lisp
+++ b/src/primitives.lisp
@@ -7,9 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id$
-;;;;
-;;;; This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg
+;;;; This file, part of UFFI, is Copyright (c) 2002-2010 by Kevin M. Rosenberg
 ;;;;
 ;;;; *************************************************************************
 
@@ -183,7 +181,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 +206,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 +222,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*