anchor.diff:                                          (list
                                            ,@(loop for x in required-args 
                                                 collect (make-keyword (car x))
  -                                              collect (intern (symbol-name (car x)))))))))
  +                                              collect (intern (symbol-name (car x)) package)))))))
                (log5:log-for (rest-server)  "Request: ~A ~A" ,(request-method api-function) ,request-url)
                ,(when (member (request-method api-function) 
                               '(:post :put))
  
positive.code:                                                    `(cons 
                                                       ,(symbol-name (car x))
                                                       (format nil "~A" ,(intern (symbol-name 
                                                                                  (car x)))))))))))
                 (log5:log-for (rest-server) "Response: ~A" ,response)
                 ,response)))))))
  
  
negative.code:                            name
                             (getf options :method)
                             options
                             args))
  			(or (and (getf options :package)
  				 (find-package (getf options :package)))
  			    *package*))))))
  
  (defun start-api (api address port &optional (api-implementation-package *package*))
    "Start an api at address and port.
  