CL-CUSTOM-HASH-TABLE: Custom hash tables for Common Lisp
CL-CUSTOM-HASH-TABLE allows creation and use of "custom hash tables". Custom hash tables can use arbitrary TEST/HASH functions, in addition to the TEST functions allowed by the standard (EQ, EQL, EQUAL and EQUALP).
This library is primarily a compatibility layer, unifying how to create these hash table in different Lisp implementations. Furthermore this library provides a simple yet fully functional fall-back solution for implementations that don't support this functionality natively (yet).
CL-CUSTOM-HASH-TABLE is released under a BSD-like license, see the ASD file.
This library does not shadow symbols in the COMMON-LISP package. It does require that all access to (potential) custom hash tables is lexical wrapped in a WITH-CUSTOM-HASH-TABLE form (see example below).
The standard hash table related functions are supported:
- get/set: GETHASH, REMHASH, CLRHASH;
- iteration: WITH-HASH-TABLE-ITERATOR, MAPHASH;
- statistics: HASH-TABLE-COUNT, HASH-TABLE-REHASH-SIZE, HASH-TABLE-REHASH-THRESHOLD, HASH-TABLE-SIZE.
Hash table iteration using LOOP (using HASH-KEY or HASH-VALUE) is not supported in Lisp implementations where the fall-back solution is used.
- Allegro CL 8.2 (native support)
- Clozure CL 1.5 (native support)
- CMUCL 20B (native support)
- ECL 11.1.1 (fall-back solution)
- LispWorks 6.0 (native support)
- SBCL 1.0.45 (native support)
Custom TEST and HASH functions:
(defun foo-equal-p (x y) (= x y)) (defun foo-hash (x) (mod x 10))
Define the hash table type:
(use-package :cl-custom-hash-table) (define-custom-hash-table-constructor make-foo-ht :test foo-equal-p :hash-function foo-hash)
Now MAKE-FOO-HT is a function that will create the custom hash table:
(defparameter *foo-ht* (make-foo-ht) "Hash table using FOO-HASH and FOO-EQUAL-P")
You can trace your test/hash functions to check they are really getting called later:
(trace foo-equal-p foo-hash)
Use WITH-CUSTOM-HASH-TABLE around access to the hash table. This ensures functions GETHASH, REMHASH and MAPHASH do the right thing. If you forget this, your code will not work in implementations that don't support custom TEST/HASH functions natively!
(with-custom-hash-table (setf (gethash 1 *foo-ht*) 1 (gethash 10 *foo-ht*) 10 (gethash 2 *foo-ht*) 2) (maphash (lambda (k v) (format t "~A: ~A~%" k v) (remhash k *foo-ht*)) *foo-ht*))
Several Lisp implementations already support custom TEST and HASH arguments for MAKE-HASH-TABLE. This library is a small wrapper around the vendor-specific extensions. (Allegro CL, CCL, CMUCL, LispWorks, SBCL)
In other Lisp implementations (ECL) a fall-back solution is used:
- custom hash tables are created on top of standard hash tables;
- the WITH-CUSTOM-HASH-TABLE code walker replaces GETHASH and friends by custom functions that work on both standard and "custom" hash tables.
How does this compare to genhash?
- genhash is complete hash table implementation; CL-CUSTOM-HASH-TABLE is primarily a compatibility layer, and offers a simple fall-back solution built on top of standard hash tables.
- genhash comes with its own API; CL-CUSTOM-HASH-TABLE uses the standard hash table API.
- Willem Broekema
- Copyright (c) 2010-2014, Willem Broekema All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- data structure