Custom Query (1030 matches)

Incorrect code seems to be generated for comparisons with a bignum.

Welcome to Clozure Common Lisp Version 1.3-dev-r11281M  (LinuxX8632)!
? (defun tax (income)
    (declare (type (integer 0 1000000) income))
    (if (> income 1000000000) 1 0))
TAX
? (tax 10)
1

Hi, i came across the following when trying to do some maths with clozure:

(defstruct (foo (:type (vector single-float))) 
  (x 0s0 :type single-float) 
  (y 0s0 :type single-float))

(defun bar (v) 
  (foo-y v))

(bar (make-foo :x 1s0 :y 1s0))
;; => 1.0907007E-40

i think the code is correct,so this is a ccl bug.

Reported by Eric Marsden on bug-openmcl:

When a method combination has been defined in the running image, ClozureCL compilation fails in libs/method-combination.lisp :

,----
| ;Compiling "/usr/local/src/clozure/ccl/lib/method-combination.lisp"...
| ;Loading #P"/usr/local/src/clozure/ccl/bin/method-combination.lx64fsl"...
| > Error: value #<Anonymous Function #x30004090A0FF> is not of the expected type LIST.
| > While executing: LIST-LENGTH, in process listener(1).
| > Type :POP to abort, :R for a list of available restarts.
| > Type :? for other options.
| 1 > :b
| *(7FF537A2D1A0) : 0 (LIST-LENGTH ((#:ARGS . #:GF) . #<Anonymous Function #x30004090A0FF>)) 109
|  (7FF537A2D208) : 1 (PLISTP ((#:ARGS . #:GF) . #<Anonymous Function #x30004090A0FF>)) 61
|  (7FF537A2D228) : 2 (PL-SEARCH ((#:ARGS . #:GF) . #<Anonymous Function #x30004090A0FF>) :OPERATOR) 45
|  (7FF537A2D248) : 3 (GETF ((#:ARGS . #:GF) . #<Anonymous Function #x30004090A0FF>) :OPERATOR NIL) 69
|  (7FF537A2D270) : 4 (FUNCALL #'#<(:INTERNAL %DEFINE-METHOD-COMBINATION-EVALUATOR)> ASDF:STANDARD-ASDF-METHOD-COMBINATION #(LONG-METHOD-COMBINATION (# . #) #<POPULATION #x30004090A0BD> #<POPULATION #x30004090A09D>)) 109
|  (7FF537A2D2A0) : 5 (MAPHASH 2 #<HASH-TABLE :TEST EQ size 10/60 #x3000407A539D>) 421
|  (7FF537A2D308) : 6 (%DEFINE-METHOD-COMBINATION-EVALUATOR AND #<Anonymous Function #x30004170A52F>) 485
|  (7FF537A2D328) : 7 (FUNCALL #'#<Anonymous Function #x30004170A77F>) 477
|  (7FF537A2D348) : 8 (FUNCALL #'#<$FASL-LFUNCALL> #<FASLSTATE #x7FF53903CE6D>) 77
`----

I ran into this because I load ASDF from my init file. Compilation works fine without ASDF (or other use of DEFINE-METHOD-COMBINATION) loaded; until a few days ago it was possible to build ClozureCL with ASDF loaded.