Remove unnecessary function
author |
Steve Losh <steve@stevelosh.com> |
date |
Fri, 20 Jan 2017 23:25:35 +0000 |
parents |
63b7d69e7d8b
|
children |
f0ec1842d603
|
branches/tags |
(none) |
files |
vendor/make-quickutils.lisp vendor/quickutils.lisp |
Changes
--- a/vendor/make-quickutils.lisp Fri Jan 20 11:49:32 2017 +0000
+++ b/vendor/make-quickutils.lisp Fri Jan 20 23:25:35 2017 +0000
@@ -8,7 +8,6 @@
:ensure-boolean
:ensure-list
:flip
- :hash-table-alist
:range
:rcurry
:riffle
--- a/vendor/quickutils.lisp Fri Jan 20 11:49:32 2017 +0000
+++ b/vendor/quickutils.lisp Fri Jan 20 23:25:35 2017 +0000
@@ -2,7 +2,7 @@
;;;; See http://quickutil.org for details.
;;;; To regenerate:
-;;;; (qtlc:save-utils-as "quickutils.lisp" :utilities '(:CURRY :ENSURE-BOOLEAN :ENSURE-LIST :FLIP :HASH-TABLE-ALIST :RANGE :RCURRY :RIFFLE :SPLIT-SEQUENCE) :ensure-package T :package "CHANCERY.QUICKUTILS")
+;;;; (qtlc:save-utils-as "quickutils.lisp" :utilities '(:CURRY :ENSURE-BOOLEAN :ENSURE-LIST :FLIP :RANGE :RCURRY :RIFFLE :SPLIT-SEQUENCE) :ensure-package T :package "CHANCERY.QUICKUTILS")
(eval-when (:compile-toplevel :load-toplevel :execute)
(unless (find-package "CHANCERY.QUICKUTILS")
@@ -15,8 +15,8 @@
(when (boundp '*utilities*)
(setf *utilities* (union *utilities* '(:MAKE-GENSYM-LIST :ENSURE-FUNCTION
:CURRY :ENSURE-BOOLEAN :ENSURE-LIST
- :FLIP :HASH-TABLE-ALIST :RANGE :RCURRY
- :RIFFLE :SPLIT-SEQUENCE))))
+ :FLIP :RANGE :RCURRY :RIFFLE
+ :SPLIT-SEQUENCE))))
(eval-when (:compile-toplevel :load-toplevel :execute)
(defun make-gensym-list (length &optional (x "G"))
"Returns a list of `length` gensyms, each generated as if with a call to `make-gensym`,
@@ -79,16 +79,6 @@
(funcall f x y)))
- (defun hash-table-alist (table)
- "Returns an association list containing the keys and values of hash table
-`table`."
- (let ((alist nil))
- (maphash (lambda (k v)
- (push (cons k v) alist))
- table)
- alist))
-
-
(defun range (start end &key (step 1) (key 'identity))
"Return the list of numbers `n` such that `start <= n < end` and
`n = start + k*step` for suitable integers `k`. If a function `key` is
@@ -235,7 +225,7 @@
sequence start end count remove-empty-subseqs))))
(eval-when (:compile-toplevel :load-toplevel :execute)
- (export '(curry ensure-boolean ensure-list flip hash-table-alist range rcurry
- riffle split-sequence split-sequence-if split-sequence-if-not)))
+ (export '(curry ensure-boolean ensure-list flip range rcurry riffle
+ split-sequence split-sequence-if split-sequence-if-not)))
;;;; END OF quickutils.lisp ;;;;