 
 (defgroup log4slime nil
   "Customization for log4slime Slime integration"
-  :prefix "log4slime-")
+  :prefix "log4slime-"
+  :group 'slime)
 
 (defface log4slime-package-face
   '((((background dark)) (:foreground "#7474FFFFFFFF" :background "DimGray")) ; ~ cyan

              (end (line-end-position))
              (prop 'face)
              (object nil)
              next)
          (while (/= start end)
            (setq next (next-single-property-change start prop object end)
                  prev (get-text-property start prop object))

specializers.
")


(defun log4slime-lisp-current-defun ()
  "Extract the current defun name in the manner that is similar
