Skip to content
Snippets Groups Projects
Commit 30657d3b authored by dtc's avatar dtc
Browse files

Remove the remnants of the 'common type specifier.

Add the 'string type declaration to the PCL
*variable-declarations-without-argument*.
parent d202b8b8
No related branches found
No related tags found
No related merge requests found
...@@ -881,12 +881,12 @@ ...@@ -881,12 +881,12 @@
(defvar *variable-declarations-without-argument* (defvar *variable-declarations-without-argument*
'(ignore ignorable special dynamic-extent '(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 complex cons double-float extended-char fixnum float function hash-table integer
keyword list long-float nil null number package pathname random-state ratio keyword list long-float nil null number package pathname random-state ratio
rational readtable sequence short-float signed-byte simple-array rational readtable sequence short-float signed-byte simple-array
simple-bit-vector simple-string simple-vector single-float standard-char 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) (defun split-declarations (body args calls-next-method-p)
(let ((inner-decls nil) (outer-decls nil) decl) (let ((inner-decls nil) (outer-decls nil) decl)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment