anchor.diff:                 (error "~s does not match any log levels" arg))))
           ((and (numberp arg)
                 (>= arg +min-log-level+)
  -              (<= arg +max-log-level+))
  +              (<= arg +log-level-unset+))
            arg)
           (t (error "~s does not match any log levels" arg))))
   
  
positive.code:       (and (>= logger-level level)
  	   (have-appenders logger)))))
  
  (defun adjust-logger (logger)
    (let ((appdata (current-appdata logger))
  	(mask 0))
      (declare (type fixnum mask))
      (loop
         for level from +min-log-level+ upto +max-log-level+
         if (have-appenders-for-level logger level)
         do (setf mask (logior mask (ash 1 level))))
      (setf (logger-app-data-mask appdata) mask))
    (let ((child-hash (logger-children logger)))
      (when child-hash
        (maphash (lambda (name logger)
                   (declare (ignore name))
                   (adjust-logger logger))
                 child-hash)))
    (values logger))
  
  (defun shortest-package-name (package)
    "Return the shortest name or nickname of the package"
  
negative.code: (defparameter +log-level-from-string+ 
    '("OFF" "FATAL" "ERROR" "WARN" "INFO"
      "DEBUG" "USER1" "USER2" "USER3" "USER4" "TRACE"
      "USER5" "USER6" "USER7" "USER8" "USER9" "UNSET"))
  
  
  (defun make-log-level (arg)
  