0.8alpha.0.4:
[sbcl.git] / tests / type.pure.lisp
index 557b327..b97a0e9 100644 (file)
                 (subtypep '(function)
                           '(function (t &rest t))))
                '(nil t)))
-#+nil
 (assert (and (subtypep 'function '(function))
              (subtypep '(function) 'function)))