111 |
(classify-error (allocate-instance)) |
(classify-error (allocate-instance)) |
112 |
program-error) |
program-error) |
113 |
|
|
114 |
|
;;; I don't think the following two tests are right. |
115 |
|
;;; The function takes a &rest argument, not a &key argument, |
116 |
|
;;; so the section on keyword argument checking doesn't apply |
117 |
|
|
118 |
|
#| |
119 |
(deftest allocate-instance.error.2 |
(deftest allocate-instance.error.2 |
120 |
(classify-error (allocate-instance (find-class 'allocate-instance-class-01) |
(classify-error (allocate-instance (find-class 'allocate-instance-class-01) |
121 |
:b)) |
:b)) |
125 |
(classify-error (allocate-instance (find-class 'allocate-instance-class-01) |
(classify-error (allocate-instance (find-class 'allocate-instance-class-01) |
126 |
'(a b c) nil)) |
'(a b c) nil)) |
127 |
program-error) |
program-error) |
128 |
|
|# |