Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

add new kv mapping functions kvcar and kvcdr. bump version.

  • Loading branch information...
commit 688ba7a0e82068598c3f5773c58515a6bb01380f 1 parent 6c8774f
@nicferrier authored
Showing with 13 additions and 2 deletions.
  1. +13 −2 kv.el
View
15 kv.el
@@ -4,7 +4,7 @@
;; Author: Nic Ferrier <nferrier@ferrier.me.uk>
;; Keywords: lisp
-;; Version: 0.0.12
+;; Version: 0.0.14
;; Maintainer: Nic Ferrier <nferrier@ferrier.me.uk>
;; Created: 7th September 2012
@@ -283,8 +283,17 @@ cons cells."
collect rec)))
(defun kvidentity (a b)
+ "Returns a cons of A B."
(cons a b))
+(defun kvcar (a b)
+ "Given A B returns A."
+ a)
+
+(defun kvcdr (a b)
+ "Given A B returns B."
+ b)
+
(defun kvcmp (a b)
"Do a comparison of the two values using printable syntax.
@@ -386,7 +395,9 @@ SEXP will describe the structure desired."
(defalias 'map-bind 'kvmap-bind)
(defun kvplist-merge (&rest plists)
- "Merge the 2nd and subsequent plists into the first, clobbering values set by lists to the left."
+ "Merge the 2nd and subsequent plists into the first.
+
+Values set by lists to the left are clobbered."
(let ((result (car plists))
(plists (cdr plists)))
(loop for plist in plists do
Please sign in to comment.
Something went wrong with that request. Please try again.