anchor.diff:  (defun emoji-apropos-list (key value &key test)
     (loop for r in (load-emoji) if (test value (getf r key)) collect r))
   
  -(defun code (code)
  +(defun codepoint (code)
     (first (emoji-apropos :codepoint code :test #'equalp)))
   
   (defun name (name)
     (first (emoji-apropos :name name :test #'string=)))
   
  -(defun annot (annot)
  +(defun annotation (annot)
     (emoji-apropos-list
      :annotation annot
  -   :test (bind #'member :test #'string=)))
  +   :test (bind2 #'member :test #'string=)))
   
   (defun group (group)
     (emoji-apropos-list
  
positive.code: (defpackage #:cl-emoji
    (:use #:cl)
    (:nicknames #:emoji)
    (:export code name annot group subgroup +versions+ *current-version*))
  (in-package #:cl-emoji)
  
  (defvar +versions+ '("4.0_release-30"
  
negative.code: 	  (setf *emoji-cache* (read s))
  	  *emoji-cache*))))
  
  (defun bind1 (function &rest args1)
    (lambda (&rest args2)
      (apply function (append args1 args2))))
  
  (defun bind2 (function &rest args2)
    (lambda (&rest args1)
      (apply function (append args1 args2))))
  
  