Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
80 lines (69 sloc) 3.1 KB
;;; -*- 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.
(defpackage :log4cl.system
(:use #:cl #:asdf))
(in-package :log4cl.system)
(defsystem :log4cl
:version "1.1.2"
:depends-on (:bordeaux-threads)
:components
((module "src" :serial t
:components ((:file "impl-package")
(:file "defs")
(:file "naming")
#+sbcl (:file "naming-sbcl")
#+ccl (:file "naming-ccl")
(:file "appender-base")
(:file "hierarchy-base")
(:file "hierarchy")
(:file "logger")
(:file "logging-macros")
(:file "self-logger")
(:file "layout")
(:file "simple-layout")
(:file "pattern-layout")
(:file "appender")
(:file "watcher")
(:file "configurator")
(:file "property-parser")
(:file "property-configurator")
(:file "package")))))
(defsystem :log4cl-test
:version "1.1.2"
:depends-on (:log4cl :stefil)
:components ((:module "tests"
:serial t
:components ((:file "test-defs")
(:file "test-logger")
(:file "test-category-separator")
(:file "test-layouts")
(:file "test-appenders")
(:file "test-configurator")
(:file "test-speed")
(:file "test-file-category")
(:file "test-compat")))))
(defmethod perform ((op test-op) (system (eql (find-system :log4cl))))
(operate 'load-op :log4cl-test)
(let ((*package* (find-package :log4cl-test)))
(eval (read-from-string "(stefil:funcall-test-with-feedback-message 'log4cl-test::test)")))
(values))
(defmethod perform :after ((op load-op) (system (eql (find-system :log4cl))))
(when (find-package :log4cl)
(let ((*package* (find-package :log4cl))
(foo (find-symbol (symbol-name '#:%fix-root-logger-check)
(find-package :log4cl))))
(when foo
(funcall foo))))
(values))