"execv"))
(values (alien-funcall sys-execv1 program argv)))))
(compiler-note (n)
- (error n))))
+ (error "bad note: ~A" n))))
(with-test (:name :bug-721087)
(assert (typep nil '(alien c-string)))
(with-test (:name :malloc-failure)
(assert (eq :enomem
(handler-case
- (sb-alien:make-alien char (1- array-total-size-limit))
+ (loop repeat 128
+ collect (sb-alien:make-alien char (1- array-total-size-limit)))
(storage-condition ()
:enomem)))))