Changeset 11350


Ignore:
Timestamp:
Nov 11, 2008, 4:05:12 PM (11 years ago)
Author:
gz
Message:

Regression test for bug #378

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r11264 r11350  
    630630      (funcall 'cl-test::ccl.50130-fn (make-array 4 :element-type 'fixnum :initial-element 17) 2))
    631631  17)
     632
     633(deftest ccl.50646-bug#378
     634    (progn
     635      (define-method-combination ccl.50646-method-combination ()
     636        ((around (:around)) (primary ()))
     637        `(call-method ,(first around) ((make-method (call-method ,(first primary))))))
     638      (defgeneric ccl.50646-gf (x) (:method-combination ccl.50646-method-combination))
     639      (defmethod ccl.50646-gf ((x integer)) x)
     640      (defmethod ccl.50646-gf :around ((x integer)) (call-next-method x))
     641      (ccl.50646-gf 23))
     642  23)
    632643
    633644;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.