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

[Mark Evenson]

Author: mevenson
Date: Wed Apr 29 06:16:57 2009
New Revision: 11795

Log:
Ant-based build works again, fixing error introduced in r11792


Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Wed Apr 29 06:16:57 2009
@@ -134,7 +134,7 @@
   (declare (optimize speed))
   (pool-get (list 4 (%float-bits n))))
 
-(defun pool-long/double (n entry)
+(defun pool-long/double (entry)
   (let* ((ht *pool-entries*)
          (index (gethash1 entry ht)))
     (declare (type hash-table ht))
@@ -158,7 +158,7 @@
   (let* ((entry (list 5
                       (logand (ash n -32) #xffffffff)
                       (logand n #xffffffff))))
-    (pool-long/double n entry)))
+    (pool-long/double entry)))
 
 (defknown pool-double (double-float) (integer 1 65535))
 (defun pool-double (n)
@@ -167,7 +167,7 @@
          (entry (list 6
                       (logand (ash n -32) #xffffffff)
                       (logand n #xffffffff))))
-    (pool-long/double n entry)))
+    (pool-long/double entry)))
 
 (defknown u2 (fixnum) cons)
 (defun u2 (n)