From 30657d3bb6a489b0f9cb7ab7f65ea023df21871c Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Fri, 1 May 1998 01:04:35 +0000 Subject: [PATCH] Remove the remnants of the 'common type specifier. Add the 'string type declaration to the PCL *variable-declarations-without-argument*. --- pcl/vector.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pcl/vector.lisp b/pcl/vector.lisp index 2ae4c6c5b..52d58a5be 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) -- GitLab