anchor.diff:      (assert (equal (type-of h) 'hash-table))
       (assert (equal (keys h) '(:a :b :c)))
       (assert (equal (mget h :b) 2))))
  +
  +(defun plist->alist-test ()
  +  (let ((lst '(1 2 3 4)))
  +    (assert (equal (plist->alist lst) '((1 . 2) (3 . 4))))))
  +
  +(defun hset-test ()
  +  (let ((h (make-hash-table)))
  +    (hset h :test 'val)
  +    (assert (equal (mget h :test) 'val))))
  
positive.code: 
  (defpackage :cjf-stdlib
    (:use :cl)
    (:export :mget :mget* :println :-> :->string :keys :ht)
    )
  
  (defpackage :cjf-stdlib-test
    (:use :cl :cjf-stdlib)
    (:export :mget-test :mget*-test :threading-test))
  
  (in-package :cjf-stdlib)
  
  
negative.code:   (let ((h (make-hash-table)))
      (mapc (lambda (k) (setf (gethash k h) (mget plist k))) (keys plist))
      h))
  
  (defun plist->alist (plist)
    (loop for x in plist by #'cddr
          for y in (cdr plist) by #'cddr
          collect (cons x y)))
  
  (in-package :cjf-stdlib-test)
  
  