Changeset 2461


Ignore:
Timestamp:
06/20/03 16:57:00 (18 years ago)
Author:
piso
Message:

Autoload MAKE-HASH-TABLE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/boot.lisp

    r2459 r2461  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: boot.lisp,v 1.60 2003-06-20 16:44:01 piso Exp $
     4;;; $Id: boot.lisp,v 1.61 2003-06-20 16:57:00 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2626          defun
    2727          *features*
    28           make-hash-table
    2928          plusp minusp integerp
    3029          character
     
    8887
    8988
    90 (defun make-hash-table (&key (test 'eql) (size 11) (rehash-size nil)
    91            (rehash-threshold nil))
    92   (setq test (coerce test 'function))
    93   (unless (and (typep size 'integer) (>= size 0))
    94     (error 'type-error "MAKE-HASH-TABLE: ~S is not a non-negative integer" size))
    95   ;; %make-hash-table expects size to be a fixnum.
    96   (when (> size array-dimension-limit)
    97     (setq size array-dimension-limit))
    98   (%make-hash-table test size rehash-size rehash-threshold))
    99 
    10089(dolist (name '("exports.lisp"
    10190                "early-defuns.lisp"
     
    130119(autoload '(open sort merge parse-integer))
    131120(autoload 'tree-equal)
     121(autoload 'make-hash-table)
    132122(autoload 'documentation)
    133123
Note: See TracChangeset for help on using the changeset viewer.