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