From 78f3c1872b545b8ac46fdee843f141722953f4d4 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 8 May 2008 08:38:09 +0000 Subject: [PATCH] 1.0.16.23: type-inconsistencies in HASH-TABLE accessors * DEFKNOWN types did not match the slot types. Change the defknowns to match the DEFSTRUCT. --- src/compiler/fndb.lisp | 4 ++-- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp index 4aeeba241..81fee12c3 100644 --- a/src/compiler/fndb.lisp +++ b/src/compiler/fndb.lisp @@ -807,9 +807,9 @@ (defknown clrhash (hash-table) hash-table () :destroyed-constant-args (nth-constant-args 2)) (defknown hash-table-count (hash-table) index (flushable)) -(defknown hash-table-rehash-size (hash-table) (or (integer 1) (float (1.0))) +(defknown hash-table-rehash-size (hash-table) (or index (single-float (1.0))) (foldable flushable)) -(defknown hash-table-rehash-threshold (hash-table) (real 0 1) +(defknown hash-table-rehash-threshold (hash-table) (single-float (0.0) 1.0) (foldable flushable)) (defknown hash-table-size (hash-table) index (flushable)) (defknown hash-table-test (hash-table) symbol (foldable flushable)) diff --git a/version.lisp-expr b/version.lisp-expr index ba6f1fa36..e8193af5e 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.16.22" +"1.0.16.23" -- 2.11.4.GIT