anchor.diff:  
   (defun make-user-url (username)
     (strcat *base-url* "u/" username "/"))
  +
  +
   
   (defun make-opinion-url (username opinid)
     (format nil "~a~d" (make-user-url username) opinid))
  
positive.code:                   opinion))))
  
  (defun save-opinion (opin)
    (with-keys (:author :target :id :votevalue :datestamp :url :comment
                        :reference :flag) (alist->hash opin)
      (let* ((user (assoc-cdr :author opin))
  
negative.code:        (car it)))))
  
  (defun insert-new-author (atype value)
    "Why only one atype/value?"
    (let ((aid (next-val "author_id_seq"))
          (atype (kebab:to-snake-case (mkstr atype))))
      (insert-records :into 'author
                      :attributes '(:id :type :value)
                      :values (list aid atype (sql-escape value)))
      aid))
  
  (def-query user-lister (&key limit offset order-by)
  