make-hash-table :rehash-size parameter type confusion

[Joerg-Cyril Hoehle <hoehle@lindau.inf-wiss.ivp.uni-konstanz.de>]

>CMU Common Lisp 16b, running on manzell
>Hemlock 3.5 (16b), Python 1.0(16b), target SPARCstation/Sun 4
>Send bug reports and questions to cmucl-bugs@cs.cmu.edu.

An excerpt from one session:

>11] (make-hash-table :test 'equal :size 100 :rehash-size 1.5 :rehash-threshold 0.7)
>
>
>Type-error in "DEFUN MAKE-HASH-TABLE":
>  1.5 is not of type (MOD 536870911)
>
>Restarts:
>  0: [ABORT] Return to debug level 1.
>  1:         Return to Top-Level.
>
>Debug  (type H for help)
>
>(DEBUG::DEBUG-LOOP)
>0]] a
>
>11] (describe 'make-hash-table)
>MAKE-HASH-TABLE is an external symbol in the COMMON-LISP package.
>Function: #<Function MAKE-HASH-TABLE {101C031}>
>Function arguments:
>  (&key (test 'eql) (size 65) (rehash-size 101) (rehash-threshold size))
>Function documentation:
>  Creates and returns a hash table.  See manual for details.
>Its declared argument types are:
>  (&KEY (:TEST (OR FUNCTION SYMBOL)) (:SIZE (MOD 536870911))
>   (:REHASH-SIZE (OR (INTEGER 1) (FLOAT (1.0))))
>   (:REHASH-THRESHOLD (OR (INTEGER 1) (FLOAT (0.0) (1.0)))))
>Its result type is:
>  HASH-TABLE
>On Wednesday, 3/11/92 02:56:58 am [-1] it was compiled from:
>/afs/cs.cmu.edu/project/clisp/src/16/code/hash.lisp
>  Created: Saturday, 12/14/91 07:10:22 pm [-1]
>  Comment: $Header: hash.lisp,v 1.11 91/12/14 13:09:37 wlott Exp $

It seems that the type specification for :size is applied to the
:rehash-size parameter. Can you please help us with a fix as this is
really a bummer?

Thanks,
	Joerg & Wolfgang.