Changeset 3738 for trunk/j/src/org/armedbear/lisp/make-hash-table.lisp

Timestamp:

09/14/03 01:37:57 (18 years ago)

Author:

piso

Message:

(typep size 'integer) => (integerp size)

File:

• trunk/j/src/org/armedbear/lisp/make-hash-table.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/make-hash-table.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: make-hash-table.lisp,v 1.2 2003-07-02 15:46:51 piso Exp $
+;;; $Id: make-hash-table.lisp,v 1.3 2003-09-14 01:37:57 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -23 +23 @@
            (rehash-threshold nil))
   (setq test (coerce-to-function test))
-  (unless (and (typep size 'integer) (>= size 0))
+  (unless (and (integerp size) (>= size 0))
     (error 'type-error "MAKE-HASH-TABLE: ~S is not a non-negative integer" size))
   ;; %make-hash-table expects size to be a fixnum.