[log4cl-devel] PATCH: defconstant fix for SBCL compilation

[Nicolas Lamirault]

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