Changeset 9645 for trunk/tests


Ignore:
Timestamp:
May 30, 2008, 10:26:35 PM (11 years ago)
Author:
gz
Message:

Regression test for bug #350

File:
1 edited

Legend:

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

    r9621 r9645  
    221221           :no-errors))
    222222  :no-errors)
     223
     224
     225(deftest ccl.bug#350
     226    (let* ((file (test-source-file "
     227  (in-package :cl-test)
     228  (defclass ccl.bug#350-inner () ((ccl.bug#350-inner-slot :accessor ccl.bug#350-inner-slot)))
     229  (macrolet ((generator ()
     230               `(defclass ccl.bug#350 (ccl.bug#350-inner)
     231                  ,(loop for i from 0 to 600
     232                         for slot = (intern (format nil \"CCL.BUG#350-SLOT-~~A\" i) :cl-user)
     233                         collect `(,slot :initform ,i)))))
     234    (generator))
     235  (defmethod initialize-instance :after ((x ccl.bug#350-inner) &key)
     236    (setf (ccl.bug#350-inner-slot x) 42))
     237  (defun ccl.bug#350-test () (make-instance 'ccl.bug#350))"))
     238           (fasl (test-compile file)))
     239      (load fasl :verbose nil)
     240      (ccl.bug#350-inner-slot (ccl.bug#350-test)))
     241  42)
Note: See TracChangeset for help on using the changeset viewer.