Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 22 lines (19 sloc) 0.914 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
(in-package #:cl-user)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (flet ((register-feature (feature present-p)
           (check-type feature keyword)
           (if present-p
               (pushnew feature *features*)
             (setf *features* (remove feature *features*)))))
    (register-feature :custom-hash-table-fallback
                      #+(or allegro ccl cmu lispworks sbcl) nil
                      #-(or allegro ccl cmu lispworks sbcl) t)))

(defpackage #:cl-custom-hash-table
  (:use #:common-lisp)
  (:export #:define-custom-hash-table-constructor #:with-custom-hash-table)
  #+custom-hash-table-fallback
  (:export #:custom-hash-table)
  #+custom-hash-table-fallback
  (:shadow #:hash-table-p #:gethash #:remhash #:hash-table-count #:maphash
           #:with-hash-table-iterator #:clrhash #:hash-table-rehash-size
           #:hash-table-rehash-threshold #:hash-table-size))
Something went wrong with that request. Please try again.