Remove unused functions from hash-tables

1 files changed, 1 insertions, 19 deletions

diff --git a/src/hash-tables.lisp b/src/hash-tables.lisp
index 84ffbfe..4290387 100644
--- a/src/hash-tables.lisp
+++ b/src/hash-tables.lisp
@@ -4,18 +4,9 @@
   (:documentation "Hash-table-oriented utilities.")
   (:use :c2cl)
   (:import-from :alexandria :with-gensyms)
-  (:export :alist->hash-table :gethash-lazy :plist->hash-table))
+  (:export :gethash-lazy))
 (in-package :ukkoclot/hash-tables)
 
-(defun alist->hash-table (alist &rest args &key &allow-other-keys)
-  "Turn an association list into a hash table.
-
-All key arguments are passed on to `make-hash-table'."
-  (let ((ht (apply #'make-hash-table args)))
-    (loop for (key . value) in alist do
-      (setf (gethash key ht) value))
-    ht))
-
 (defmacro gethash-lazy (key hash-table default-lazy)
   "`gethash' alternative with lazily evaluated default value."
   (with-gensyms (res unique)
@@ -24,12 +15,3 @@ All key arguments are passed on to `make-hash-table'."
        (if (eq ,res ,unique)
            ,default-lazy
            ,res))))
-
-(defun plist->hash-table (plist &rest args &key &allow-other-keys)
-  "Turn a property list into a hash table.
-
-All key arguments are passed on to `make-hash-table'."
-  (let ((ht (apply #'make-hash-table args)))
-    (loop for (key value) on plist by #'cddr do
-      (setf (gethash key ht) value))
-    ht))