Changeset 11795

Timestamp:

04/29/09 10:16:57 (14 years ago)

Author:

Mark Evenson

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (3 diffs)

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

@@ -135 +135 @@
   (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)))
@@ -159 +159 @@
                       (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))
@@ -168 +168 @@
                       (logand (ash n -32) #xffffffff)
                       (logand n #xffffffff))))
-    (pool-long/double n entry)))
+    (pool-long/double entry)))
 
 (defknown u2 (fixnum) cons)