Custom Query (1030 matches)

(define-method-combination test-method-combination ()

((around (:around))

(primary () :required t))

`(call-method ,(first around) ( (make-method (call-method ,(first primary))) )))

(defgeneric foo (x)

(:method-combination test-method-combination))

(defmethod foo((o integer))

nil)

(defmethod foo :around ((o integer))

(call-next-method o))

(foo 23)

causes an error: value NIL is not of the expected type SIMPLE-VECTOR.

The bug seems to have been there forever, but the recently released ASDF 1.128 and later actually uses non-standard method combinations and evokes this bug in normal use.

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.

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.