"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)))
(assert (equal "This comes from lisp!" (cast alien c-string)))
(free-alien alien)))
+(with-test (:name :malloc-failure)
+ (assert (eq :enomem
+ (handler-case
+ (loop repeat 128
+ collect (sb-alien:make-alien char (1- array-total-size-limit)))
+ (storage-condition ()
+ :enomem)))))
+
;;; success