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.

Welcome to Clozure Common Lisp Version 1.3-dev-r11353M-trunk  (DarwinX8632)!
? (heap-utilization)
Object type                               Count   Total Size in Bytes
CONS                                      126038          1008304
BOGUS                                          3                0
BIGNUM                                       149             1156
SHORT-FLOAT                                   24               96
DOUBLE-FLOAT                                  12              144
COMPLEX                                        1                8
MACPTR                                       139             2636
FUNCTION                                   12138          5348712
BASIC-STREAM                                  34         22355952
SYMBOL                                     34835           975380
XCODE-VECTOR                                   1                0
LOCK                                         120             2880
HASH-TABLE-VECTOR                             72           324848
POOL                                          23               92
POPULATION                                    22              268
PACKAGE                                       15              480
SLOT-VECTOR                                 4628           199512
STANDARD-INSTANCE                           4183            50196
STRUCTURE                                   3283           123116
INTERNAL-STRUCTURE                          2587            67232
VALUE-CELL                                    19               76
SIMPLE-VECTOR                              23960          1089208
SIMPLE-UNSIGNED-LONG-VECTOR                    1             4092
SIMPLE-BASE-STRING                          7683           473928
SIMPLE-BIT-VECTOR                              1          2097152

Those BASIC-STREAM objects are pretty heavyweight...not to mention the presence of BOGUS and XCODE-VECTOR objects that take up no space.

Start IDE with (require 'cocoa). (Either 64- or 32-bit x86).

Into a listener, type:

(defvar *junk* (ns:make-ns-rect 0 0 100 100))
*junk*

The IDE will hang.