Changeset 15026

Timestamp:

06/01/17 06:45:31 (6 years ago)

Author:

Mark Evenson

Message:

Support bignum argument for FILE-POSITION

(Olof-Joachim Frahm)

File:

• trunk/abcl/src/org/armedbear/lisp/FileStream.java (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/FileStream.java

@@ -234 +234 @@
     {
         try {
-            long pos;
+            long pos = 0;
             if (arg == Keyword.START)
                 pos = 0;
             else if (arg == Keyword.END)
                 pos = racf.length();
-            else {
-                long n = Fixnum.getValue(arg); // FIXME arg might be a bignum
-                pos = n * bytesPerUnit;
-            }
+            else if (arg instanceof Fixnum)
+                pos = ((Fixnum) arg).value * bytesPerUnit;
+            else if (arg instanceof Bignum)
+                pos = ((Bignum) arg).longValue() * bytesPerUnit;
+            else
+                type_error(arg, Symbol.INTEGER);
             racf.position(pos);
         }