Fix MAKE-ARRAY-BAD-FILL-POINTER error message.

Swap ADJECTIVE and MAX arguments in call to ERROR.
daewok · Aug 22, 2021 · 175eac1 · 175eac1
1 parent 0865312
commit 175eac1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/code/array.lisp b/src/code/array.lisp
@@ -427,7 +427,7 @@
   ;; There was a comment implying that this should be TYPE-ERROR
   ;; but I don't see that as a spec requirement.
   `(error "Can't supply a value for :FILL-POINTER (~S) that is larger ~
-           than the~A size of the vector (~S)" ,actual ,max ,adjective))
+           than the~A size of the vector (~S)" ,actual ,adjective ,max))
 
 (declaim (inline %save-displaced-array-backpointer))
 (defun %save-displaced-array-backpointer (array data)