diff --git a/pcl/vector.lisp b/pcl/vector.lisp index 2ae4c6c5b5fbb593e2634a52cfdaaa91de4b626a..52d58a5be5f478579d38f5d9d2cf8cc96ccafe30 100644 --- a/pcl/vector.lisp +++ b/pcl/vector.lisp @@ -881,12 +881,12 @@ (defvar *variable-declarations-without-argument* '(ignore ignorable special dynamic-extent - array atom base-char bignum bit bit-vector character common compiled-function + array atom base-char bignum bit bit-vector character compiled-function complex cons double-float extended-char fixnum float function hash-table integer keyword list long-float nil null number package pathname random-state ratio rational readtable sequence short-float signed-byte simple-array simple-bit-vector simple-string simple-vector single-float standard-char - stream symbol t unsigned-byte vector)) + stream string symbol t unsigned-byte vector)) (defun split-declarations (body args calls-next-method-p) (let ((inner-decls nil) (outer-decls nil) decl)