kyle
/
kutils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Doc strings.

This commit is contained in:
Kyle 2015-04-06 11:52:31 -07:00
parent 45ef5eddb4
commit 27dc152240
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
kutils.lisp
View File

@ -2,7 +2,9 @@
(in-package #:kutils) (in-package #:kutils)
;;; "kutil" goes here. Hacks and glory await! ;;; "kutils" goes here. Hacks and glory await!
;;; This file contains various utilities I've written.
(defun join (x sep) (defun join (x sep)
(flatten (flatten
@ -50,6 +52,14 @@
m))))) m)))))
(defun enable-hashtable-literal () (defun enable-hashtable-literal ()
"Enables the reader macro #{}# for hash-tables. The resulting
hash-table will use #'equal for equality. For example,
#{:a :b :c :d}#
will create a hash-table with the keys :a and :c. :a stores the
value :b, and :c stores the value :d.
"
(set-dispatch-macro-character (set-dispatch-macro-character
#\# #\{ #'|#{-reader|)) #\# #\{ #'|#{-reader|))
@ -67,6 +77,7 @@
keys)) keys))
(defun hashtable-to-alist (m) (defun hashtable-to-alist (m)
"Converts the hash-table given to an alist of (key . value) pairs."
(let ((alist '())) (let ((alist '()))
(maphash (lambda (k v) (maphash (lambda (k v)
(let ((elt (cons k v))) (let ((elt (cons k v)))