From mkennedy at gentoo.org  Tue Jul 12 15:45:15 2005
From: mkennedy at gentoo.org (Matthew Kennedy)
Date: Tue, 12 Jul 2005 10:45:15 -0500
Subject: [log4cl-devel] PATCH: defconstant fix for SBCL compilation
Message-ID: <871x64hvuc.fsf@azathoth.shacknet.nu>

The attached patch fixes the problem described here:

    http://www.sbcl.org/manual/Defining-Constants.html#Defining%20Constants

It depends on a new component: "cl-plus" which is often used for resolving this
specific problem in Debian and Gentoo.  cl-plus can be found here:

    http://packages.debian.org/unstable/devel/cl-plus

-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: log4cl-defconstant-gentoo.diff
URL: <https://mailman.common-lisp.net/pipermail/log4cl-devel/attachments/20050712/b9faa904/attachment.ksh>
-------------- next part --------------

-- 
Matthew Kennedy

From lam at tuxfamily.org  Tue Jul 12 17:14:12 2005
From: lam at tuxfamily.org (Nicolas Lamirault)
Date: Tue, 12 Jul 2005 19:14:12 +0200
Subject: [log4cl-devel] PATCH: defconstant fix for SBCL compilation
In-Reply-To: <871x64hvuc.fsf@azathoth.shacknet.nu> (Matthew Kennedy's message
	of "Tue, 12 Jul 2005 10:45:15 -0500")
References: <871x64hvuc.fsf@azathoth.shacknet.nu>
Message-ID: <87d5poeyl7.fsf@no-log.org>


thanks a lot !
i have  a more  recent log4cl version  at home,  and i define  on this
version +colors+ like this :

(unless (boundp +colors+) 
  (defconstant +colors+ 
    '(("debug" . "#339933") 
      ("info" . "#000000") 
    ("warning" . "#993300") 
      ("error" . "#993300") 
      ("fatal" . "#993300")))) 

Matthew Kennedy <mkennedy at gentoo.org> writes:

> The attached patch fixes the problem described here:
>
>     http://www.sbcl.org/manual/Defining-Constants.html#Defining%20Constants
>
> It depends on a new component: "cl-plus" which is often used for resolving this
> specific problem in Debian and Gentoo.  cl-plus can be found here:
>
>     http://packages.debian.org/unstable/devel/cl-plus
>
> Index: layout.lisp
> ===================================================================
> RCS file: /project/log4cl/cvsroot/log4cl/layout.lisp,v
> retrieving revision 1.3
> diff -u -r1.3 layout.lisp
> --- layout.lisp	1 Mar 2004 18:35:38 -0000	1.3
> +++ layout.lisp	12 Jul 2005 15:32:11 -0000
> @@ -132,7 +132,7 @@
>     (line-number :initarg :line :initform nil)))
>  
>  
> -(defconstant +colors+ 
> +(cl+:defconst +colors+ 
>    '(("debug" . "#339933")
>      ("info" . "#000000")
>      ("warning" . "#993300")
> Index: log4cl.asd
> ===================================================================
> RCS file: /project/log4cl/cvsroot/log4cl/log4cl.asd,v
> retrieving revision 1.5
> diff -u -r1.5 log4cl.asd
> --- log4cl.asd	24 Apr 2004 09:26:55 -0000	1.5
> +++ log4cl.asd	12 Jul 2005 15:32:11 -0000
> @@ -43,7 +43,8 @@
>  	       (:file "appender" :depends-on ("package" "tools"))
>  	       (:file "layout" :depends-on ("package" "tools"))
>  	       (:file "package-logger" :depends-on ("logger"))
> -               (:file "tools" :depends-on ("package"))))
> +               (:file "tools" :depends-on ("package")))
> +  :depends-on (#:cl-plus))
>  
>  (defsystem :log4cl.syslog
>    :components ((:file "appender-syslog" :depends-on ("cl-syslog"))
> Index: debian/control
> ===================================================================
> RCS file: /project/log4cl/cvsroot/log4cl/debian/control,v
> retrieving revision 1.1.1.1
> diff -u -r1.1.1.1 control
> --- debian/control	20 Feb 2004 09:00:08 -0000	1.1.1.1
> +++ debian/control	12 Jul 2005 15:32:11 -0000
> @@ -7,7 +7,7 @@
>  
>  Package: log4cl
>  Architecture: i386
> -Depends: common-lisp-controller (>= 3.37) 
> +Depends: common-lisp-controller (>= 3.37), cl-plus (>= 1.0)
>  Description: Common Lisp utility to logging 
>   log4cl is a Common Lisp utility to logging. log4cl can use Syslog 
>   database, html file, a file or console to print message

-- 
Nicolas Lamirault