Changeset 11835 for trunk/tests


Ignore:
Timestamp:
Mar 21, 2009, 12:13:29 AM (11 years ago)
Author:
gz
Message:

the-typechecks => declarations-typecheck

File:
1 edited

Legend:

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

    r11746 r11835  
    626626    ;; The compiler policy hack is just to have a predicatable way to catch the bug.
    627627    ;; It doesn't have anything to do with causing the bug to happen.
    628     (let ((ccl::*default-file-compilation-policy* (ccl::new-compiler-policy :the-typechecks t))
     628    (let ((ccl::*default-file-compilation-policy* (ccl::new-compiler-policy #+ccl-0711 :declarations-typecheck
     629                                                                            #-ccl-0711 :the-typechecks
     630                                                                            t))
    629631          (f (test-source-file "(defun cl-test::ccl.50130-fn (arr idx)
    630632                                  (aref (the (or (vector fixnum) (vector (unsigned-byte 8))) arr) idx))")))
Note: See TracChangeset for help on using the changeset viewer.