[armedbear-cvs] r11572 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed Jan 21 21:25:18 2009
New Revision: 11572

Log:
Fix NO-EXTRA-SYMBOLS-EXPORTED-FROM-COMMON-LISP.

Modified:
   trunk/abcl/src/org/armedbear/lisp/FloatFunctions.java

Modified: trunk/abcl/src/org/armedbear/lisp/FloatFunctions.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/FloatFunctions.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/FloatFunctions.java	Wed Jan 21 21:25:18 2009
@@ -146,7 +146,7 @@
 
     // ### %float-bits float => integer
     private static final Primitive _FLOAT_BITS =
-        new Primitive("%float-bits", "integer")
+        new Primitive("%float-bits", PACKAGE_SYS, true, "integer")
     {
         @Override
         public LispObject execute(LispObject arg) throws ConditionThrowable