Ignore:
Timestamp:
Oct 18, 2010, 10:36:38 PM (9 years ago)
Author:
gz
Message:

Don't muffle warnings when running test, as that affects the return values from compile-file. Tweak tests to not cause warnings

File:
1 edited

Legend:

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

    r8991 r14368  
    101101   (progn
    102102     (eval '(defgeneric defgeneric-error-fn.11 (x &optional y)
    103               (:method (x &optional y z) t)))
     103              (:method (x &optional y z) x y z t)))
    104104     :bad)
    105105   (error () :good))
     
    110110   (progn
    111111     (eval '(defgeneric defgeneric-error-fn.12 (x &rest y)
    112               (:method (x) t)))
     112              (:method (x) x t)))
    113113     :bad)
    114114   (error () :good))
     
    119119   (progn
    120120     (eval '(defgeneric defgeneric-error-fn.13 (x)
    121               (:method (x &rest y) t)))
     121              (:method (x &rest y) x y t)))
    122122     :bad)
    123123   (error () :good))
     
    128128   (progn
    129129     (eval '(defgeneric defgeneric-error-fn.14 (x &key)
    130               (:method (x) t)))
     130              (:method (x) x t)))
    131131     :bad)
    132132   (error () :good))
     
    137137   (progn
    138138     (eval '(defgeneric defgeneric-error-fn.15 (x &key y)
    139               (:method (x) t)))
     139              (:method (x) x t)))
    140140     :bad)
    141141   (error () :good))
     
    146146   (progn
    147147     (eval '(defgeneric defgeneric-error-fn.16 (x)
    148               (:method (x &key) t)))
     148              (:method (x &key) x t)))
    149149     :bad)
    150150   (error () :good))
     
    155155   (progn
    156156     (eval '(defgeneric defgeneric-error-fn.17 (x)
    157               (:method (x &key foo) t)))
     157              (:method (x &key foo) x foo t)))
    158158     :bad)
    159159   (error () :good))
     
    164164   (progn
    165165     (eval '(defgeneric defgeneric-error-fn.18 (x &key foo)
    166               (:method (x &key) t)))
     166              (:method (x &key) x t)))
    167167     :bad)
    168168   (error () :good))
     
    173173   (progn
    174174     (eval '(defgeneric defgeneric-error-fn.19 (x &key foo)
    175               (:method (x &key bar) t)))
     175              (:method (x &key bar) x bar t)))
    176176     :bad)
    177177   (error () :good))
Note: See TracChangeset for help on using the changeset viewer.