Changeset 9856


Ignore:
Timestamp:
Jun 30, 2008, 10:19:32 PM (11 years ago)
Author:
gz
Message:

suppress compiler warnings around compilation of test forms

File:
1 edited

Legend:

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

    r9840 r9856  
    254254                           (cond
    255255                            (*compile-tests*
    256                              (let ((fn (compile
    257                                         nil
    258                                         `(lambda ()
    259                                            (declare
    260                                             (optimize ,@*optimization-settings*))
    261                                            ,(form entry)))))
     256                             (let* ((fn (let (#+openmcl (ccl::*suppress-compiler-warnings* t))
     257                                          (compile
     258                                           nil
     259                                           `(lambda ()
     260                                              (declare
     261                                               (optimize ,@*optimization-settings*))
     262                                              ,(form entry))))))
    262263                               #+openmcl (ccl::lfun-name fn (name entry))
    263264                               (multiple-value-list (funcall fn))))
Note: See TracChangeset for help on using the changeset viewer.