anchor.diff:  (defpackage #:cl-emoji
     (:use #:cl)
     (:nicknames #:emoji)
  -  (:export code name annot group subgroup +versions+ *current-version*))
  +  (:export
  +   codepoint
  +   name
  +   annotation
  +   group
  +   subgroup
  +   group-apropos
  +   subgroup-apropos
  +   annotation-apropos
  +   +versions+
  +   *current-version*))
   (in-package #:cl-emoji)
   
   (defvar +versions+ '("4.0_release-30"
  
positive.code:   (emoji-apropos-list
     :subgroup subgroup
     :test #'string=))
  
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))))
  
  