anchor.diff:  
   (defun do-log (level-name log-level package-keyword format-str args)
     "The given data to the current *log-stream* stream."
  -  (declare (optimize (speed 3) (safety 0) (debug 0))
  +  (declare (optimize (cl:speed 3) (cl:safety 0) (cl:debug 0))
              (type keyword level-name package-keyword)
              (type integer log-level)
              (type string format-str)
  
positive.code:                 #:+ #:- #:> #:< #:<= #:>=
                  #:apply #:funcall
                  #:append #:list #:length)
    (:export #:config
             #:*log-stream*
             
  
negative.code:                 #:eval
                  #:defun #:defmacro
                  #:defvar #:defparameter
                  #:declare #:optimize #:type
                  #:keyword #:integer
                  #:assert
                  #:member
  