From: Nikodemus S. <de...@us...> - 2008-12-01 15:44:48
|
Update of /cvsroot/sbcl/sbcl/src/code In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv16410/src/code Modified Files: array.lisp Log Message: 1.0.23.4: fix error signalling from (SETF FILL-POINTER) * Thanks to Stas Boukarev. Index: array.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/array.lisp,v retrieving revision 1.77 retrieving revision 1.78 diff -u -d -r1.77 -r1.78 --- array.lisp 3 Oct 2008 18:28:49 -0000 1.77 +++ array.lisp 1 Dec 2008 15:44:41 -0000 1.78 @@ -776,7 +776,7 @@ :datum arg :expected-type (list 'integer 0 max) :format-control "The new fill pointer, ~S, is larger than the length of the vector (~S.)" - arg max))) + :format-arguments (list arg max)))) (t (error 'simple-type-error :datum vector |