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:   (if (cdr keys)
        (apply #'mget* (mget mapping (car keys)) (cdr keys))
        (mget mapping (car keys))))
  
  (defgeneric ->string (obj)
    (:documentation "Convert an object to a string."))
  
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)
  
  