diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp index fb4ba4ecfbc04c7c11e8baf6f6106d945bde67dd..010490823a731e27063ae272147ac70809f67ae5 100644 --- a/ansi-tests/random-int-form.lsp +++ b/ansi-tests/random-int-form.lsp @@ -1211,7 +1211,10 @@ (eq (cadr args) ':initial-element) ; (null (cdddr args)) ) - (prune (caddr args) #'(lambda (form) (try `(make-array nil :initial-element ,form . ,(cdddr args))))))) + (prune (caddr args) #'(lambda (form) (try `(make-array nil :initial-element ,form . ,(cdddr args))))) + (when (cdddr args) + (try `(make-array nil :initial-element ,(caddr args)))) + )) ((cons) (prune-fn form try-fn))