Changeset 14368 for trunk/tests/ansitests/defgeneric.lsp
 Timestamp:
 Oct 18, 2010, 10:36:38 PM (9 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/tests/ansitests/defgeneric.lsp
r8991 r14368 101 101 (progn 102 102 (eval '(defgeneric defgenericerrorfn.11 (x &optional y) 103 (:method (x &optional y z) t)))103 (:method (x &optional y z) x y z t))) 104 104 :bad) 105 105 (error () :good)) … … 110 110 (progn 111 111 (eval '(defgeneric defgenericerrorfn.12 (x &rest y) 112 (:method (x) t)))112 (:method (x) x t))) 113 113 :bad) 114 114 (error () :good)) … … 119 119 (progn 120 120 (eval '(defgeneric defgenericerrorfn.13 (x) 121 (:method (x &rest y) t)))121 (:method (x &rest y) x y t))) 122 122 :bad) 123 123 (error () :good)) … … 128 128 (progn 129 129 (eval '(defgeneric defgenericerrorfn.14 (x &key) 130 (:method (x) t)))130 (:method (x) x t))) 131 131 :bad) 132 132 (error () :good)) … … 137 137 (progn 138 138 (eval '(defgeneric defgenericerrorfn.15 (x &key y) 139 (:method (x) t)))139 (:method (x) x t))) 140 140 :bad) 141 141 (error () :good)) … … 146 146 (progn 147 147 (eval '(defgeneric defgenericerrorfn.16 (x) 148 (:method (x &key) t)))148 (:method (x &key) x t))) 149 149 :bad) 150 150 (error () :good)) … … 155 155 (progn 156 156 (eval '(defgeneric defgenericerrorfn.17 (x) 157 (:method (x &key foo) t)))157 (:method (x &key foo) x foo t))) 158 158 :bad) 159 159 (error () :good)) … … 164 164 (progn 165 165 (eval '(defgeneric defgenericerrorfn.18 (x &key foo) 166 (:method (x &key) t)))166 (:method (x &key) x t))) 167 167 :bad) 168 168 (error () :good)) … … 173 173 (progn 174 174 (eval '(defgeneric defgenericerrorfn.19 (x &key foo) 175 (:method (x &key bar) t)))175 (:method (x &key bar) x bar t))) 176 176 :bad) 177 177 (error () :good))
Note: See TracChangeset
for help on using the changeset viewer.