anchor.diff:    (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)
   
  
positive.code:     (assert (equal (type-of h) 'hash-table))
      (assert (equal (keys h) '(:a :b :c)))
      (assert (equal (mget h :b) 2))))
  
negative.code: 
  (defpackage :cjf-stdlib
    (:use :cl)
    (:export :mget :mget* :println :-> :->string :keys :ht :plist->alist :hset)
    )
  
  (defpackage :cjf-stdlib-test
    (:use :cl :cjf-stdlib)
    (:export :mget-test :mget*-test :threading-test :plist->alist-test :hset-test))
  
  (in-package :cjf-stdlib)
  
  