anchor.diff:    (format stream "~&@~A{~A"
   	  (bib-entry-type entry)
   	  (bib-entry-cite-key entry))
  -  (loop for field being each hash-key in entry
  -	and value being each hash-value in entry
  -	unless (or (eql field +entry-type+)
  -		   (eql field +cite-key+))
  +  (loop for field being each hash-key in (bib-entry-dict entry)
  +	and value being each hash-value in (bib-entry-dict entry)
   	do (format stream ",~%  ~A = {~A}" field value))
     (format stream "~%}~%"))
   
  
positive.code:   (read-bib-database s))
  
  (let ((*bibtex-split-initials* t))
    (parse-bibtex-name-list (gethash 'editor (gethash "johnson-trick-96" *bib-database*))))
  
  (defun show-author (id)
    (let ((*bibtex-split-initials* t))
      (parse-bibtex-name-list (gethash "author" (gethash id *bib-database*)))))
  
  (let ((*bibtex-split-initials* t))
    (remove-duplicates
     (sort 
      (loop for entry being each hash-value in *bib-database*
  	  appending (mapcar #'(lambda (name) (format-bibtex-name nil "{f.~}{vv~}{ll}{, jj}" name))
  			    (parse-bibtex-name-list (gethash "author" entry))))
      #'string<=)
     :test #'equal))
     
  
negative.code:       (bib-error "Expected `~A' sign" close-char))))
  
  
  (defstruct bib-entry
    (type nil)
    (cite-key "")
    (sort-key% nil)
    (dict (make-hash-table :size 16 :test 'equalp) :read-only t))
  
  (defun bib-entry-ref (key entry &optional default)
    (gethash key (bib-entry-dict entry) default))
  
  (defun (setf bib-entry-ref) (value key entry &optional default)
    (declare (ignore default))
    (setf (gethash key (bib-entry-dict entry)) value))
  
  (defvar *generate-sort-key* #'identity)
  
  (defun bib-entry-sort-key (entry)
    (or (bib-entry-sort-key% entry)
        (setf (bib-entry-sort-key% entry)
  	  (funcall *generate-sort-key* (bib-entry-ref "SORT.KEY$" entry "")))))
  
  (defmethod cmp ((a bib-entry) (b bib-entry))
    (cmp (bib-entry-sort-key a) (bib-entry-sort-key b)))
  
  (defmethod hash ((entry bib-entry))
    (hash (bib-entry-sort-key entry)))
  
  (defun process-bib-entry-command (entry-type)
    (let* ((open-char (peek-char t *bib-stream*))
  