Changeset 9248


Ignore:
Timestamp:
Apr 24, 2008, 3:32:22 AM (11 years ago)
Author:
gz
Message:

duh, make the regression test that actually demonstrate the bug

Location:
trunk/tests/ansi-tests
Files:
2 edited

Legend:

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

    r9246 r9248  
    6464
    6565(deftest ccl.bug#286
    66     (and (typep (lambda () (typep nil '(or ccl.bug#286-unknown-type-1 null))) 'function)
    67          (typep (lambda () (ccl:require-type nil '(or ccl.bug#286-unknown-type-2 null))) 'function)
     66    (and (compile nil '(lambda ()
     67                        (declare (optimize (speed 1) (safety 1)))
     68                        (typep nil '(or ccl.bug#286-unknown-type-1 null))))
     69         (compile nil '(lambda ()
     70                        (declare (optimize (speed 1) (safety 1)))
     71                        (ccl:require-type nil '(or ccl.bug#286-unknown-type-2 null))))
    6872         :good)
    6973  :good)
     74
  • trunk/tests/ansi-tests/defclass-errors.lsp

    r9045 r9248  
    9494  t)
    9595
    96 #+known-bug-271
    9796(deftest defclass.error.13
    9897  (signals-error
     
    161160  t)
    162161
    163 #+known-bug-271
    164162(deftest defclass.error.22
    165163  (let ((option (gentemp "UNKNOWN-OPTION" (symbol-package :foo))))
Note: See TracChangeset for help on using the changeset viewer.