anchor.diff:                             name
                              (getf options :method)
                              options
  -                           args)))))))
  +                           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.
  
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:                                         (list
                                           ,@(loop for x in required-args 
                                                collect (make-keyword (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))
  