Changeset 10992


Ignore:
Timestamp:
Oct 5, 2008, 5:51:00 PM (11 years ago)
Author:
gz
Message:

Regression test for bug 344

File:
1 edited

Legend:

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

    r10943 r10992  
    535535
    536536
     537(deftest ccl.bug#344
     538    (flet ((try (n)
     539             (let ((cname (gensym))
     540                   (gname (gensym)))
     541               (eval `(progn
     542                        (defclass ,cname () ())
     543                        ,.(loop for n from 1 to count
     544                                collect `(defmethod ,gname ((arg0 ,cname) (arg1 (eql ,n)))))))
     545               (handler-case (progn (funcall gname (make-instance cname) 1) nil)
     546                 (error (c) :error)))))
     547      (list (try 46) (try 200)))
     548  (nil nil))
    537549
    538550
Note: See TracChangeset for help on using the changeset viewer.