```common lisp
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;
;;; Copyright (c) 2012, Max Mikhanosha. All rights reserved.
;;;
;;; This file is licensed to You under the Apache License, Version 2.0
;;; (the "License"); you may not use this file except in compliance
;;; with the License.  You may obtain a copy of the License at
;;; http://www.apache.org/licenses/LICENSE-2.0
;;;
;;; Unless required by applicable law or agreed to in writing, software
;;; distributed under the License is distributed on an "AS IS" BASIS,
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;;; See the License for the specific language governing permissions and
;;; limitations under the License.

(cl:in-package #:log4cl-impl)

(defmethod package-wrapper ((pkg (eql *package*)) categories explitic-p)
  "Make default logger in the log4cl package to be log4cl:self"
  (if explitic-p categories
      `(log4cl-impl self ,@categories)))

(defvar *self-log-config* '(:sane :warn :own :two-line))

(defvar +self-logger+
  (let ((logger (make-logger '(:log4cl-impl :self))))
    (setf (logger-additivity logger) nil)
    logger))
```

Add :immediate-flush to self-config options also
user
```common lisp
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;
;;; Copyright (c) 2012, Max Mikhanosha. All rights reserved.
;;;
;;; This file is licensed to You under the Apache License, Version 2.0
;;; (the "License"); you may not use this file except in compliance
;;; with the License.  You may obtain a copy of the License at
;;; http://www.apache.org/licenses/LICENSE-2.0
;;;
;;; Unless required by applicable law or agreed to in writing, software
;;; distributed under the License is distributed on an "AS IS" BASIS,
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;;; See the License for the specific language governing permissions and
;;; limitations under the License.

(cl:in-package #:log4cl-impl)

(defmethod package-wrapper ((pkg (eql *package*)) categories explitic-p)
  "Make default logger in the log4cl package to be log4cl:self"
  (if explitic-p categories
      `(log4cl-impl self ,@categories)))

(defvar *self-log-config* '(:sane :warn :own :two-line :immediate-flush))

(defvar +self-logger+
  (let ((logger (make-logger '(:log4cl-impl :self))))
    (setf (logger-additivity logger) nil)
    logger))
```
assistant