[bknr-cvs] r1843 - in trunk/bknr/src: rss sysclasses utils web xhtmlgen

[bknr at bknr.net]

Author: hhubner
Date: 2006-02-18 02:42:44 -0600 (Sat, 18 Feb 2006)
New Revision: 1843

Modified:
   trunk/bknr/src/rss/rss.lisp
   trunk/bknr/src/sysclasses/cron.lisp
   trunk/bknr/src/utils/package.lisp
   trunk/bknr/src/web/site.lisp
   trunk/bknr/src/xhtmlgen/xhtmlgen.lisp
Log:
Tchadvar Roussanov:

Here are several more SBCL fixes. Now SBCL compiles the whole bknr/src tree
(with a lot of warnings).


Modified: trunk/bknr/src/rss/rss.lisp
===================================================================
--- trunk/bknr/src/rss/rss.lisp	2006-02-17 21:15:22 UTC (rev 1842)
+++ trunk/bknr/src/rss/rss.lisp	2006-02-18 08:42:44 UTC (rev 1843)
@@ -1,9 +1,9 @@
 (in-package :bknr.rss)
 
-(defconstant +rdf-ns+ "http://www.w3.org/1999/02/22-rdf-syntax-ns#")
-(defconstant +rss-ns+ "http://purl.org/rss/1.0/")
-(defconstant +dc-ns+ "http://purl.org/dc/elements/1.1/")
-(defconstant +content-ns+ "http://purl.org/rss/1.0/modules/content/")
+(define-constant +rdf-ns+ "http://www.w3.org/1999/02/22-rdf-syntax-ns#")
+(define-constant +rss-ns+ "http://purl.org/rss/1.0/")
+(define-constant +dc-ns+ "http://purl.org/dc/elements/1.1/")
+(define-constant +content-ns+ "http://purl.org/rss/1.0/modules/content/")
 
 (defgeneric rss-to-xml (rss-element))
 

Modified: trunk/bknr/src/sysclasses/cron.lisp
===================================================================
--- trunk/bknr/src/sysclasses/cron.lisp	2006-02-17 21:15:22 UTC (rev 1842)
+++ trunk/bknr/src/sysclasses/cron.lisp	2006-02-18 08:42:44 UTC (rev 1843)
@@ -10,7 +10,7 @@
        (>= hour 0)
        (< hour 24)))
 
-(defconstant +day-list+ '(:monday :tuesday :wednesday :thursday :friday :saturday :sunday))
+(define-constant +day-list+ '(:monday :tuesday :wednesday :thursday :friday :saturday :sunday))
 
 (defun day-p (day)
   (or (and (numberp day)
@@ -27,7 +27,7 @@
 	    (1+ num)
 	    (error "Could not find day in day-list")))))
 
-(defconstant +month-list+ '(:january :february :march :april :may :june :july
+(define-constant +month-list+ '(:january :february :march :april :may :june :july
 			    :august :september :october :november :december))
 
 (defun month-p (month)
@@ -161,4 +161,4 @@
     (setq *cron* (make-instance 'cron-actor)))
   (when (actor-running-p *cron*)
     (actor-stop *cron*))
-  (actor-start *cron*))
\ No newline at end of file
+  (actor-start *cron*))

Modified: trunk/bknr/src/utils/package.lisp
===================================================================
--- trunk/bknr/src/utils/package.lisp	2006-02-17 21:15:22 UTC (rev 1842)
+++ trunk/bknr/src/utils/package.lisp	2006-02-18 08:42:44 UTC (rev 1843)
@@ -141,6 +141,7 @@
 
 	   ;; Package cleaning for the build process
 	   #:within-temporary-package
+	   #:define-constant
 
 	   ;; mp compatibility
 	   #:mp-make-lock

Modified: trunk/bknr/src/web/site.lisp
===================================================================
--- trunk/bknr/src/web/site.lisp	2006-02-17 21:15:22 UTC (rev 1842)
+++ trunk/bknr/src/web/site.lisp	2006-02-18 08:42:44 UTC (rev 1843)
@@ -6,5 +6,5 @@
 (defparameter *thumbnail-max-height* 54)
 
 ;; default billboard to show on home page
-(defconstant *default-billboard* "main")
+(define-constant *default-billboard* "main")
 

Modified: trunk/bknr/src/xhtmlgen/xhtmlgen.lisp
===================================================================
--- trunk/bknr/src/xhtmlgen/xhtmlgen.lisp	2006-02-17 21:15:22 UTC (rev 1842)
+++ trunk/bknr/src/xhtmlgen/xhtmlgen.lisp	2006-02-18 08:42:44 UTC (rev 1843)
@@ -159,7 +159,13 @@
   ;; das ist fuer WPDISPLAY
   (let ((s (cxml::chained-handler *html-sink*)))
     (cxml::maybe-close-tag s)
-    (map nil (lambda (c) (cxml::write-rune (char-code c) s)) str)))
+    (map nil 
+	 (lambda (c) 
+	       #-sbcl
+	       (cxml::write-rune (char-code c) s)
+	       #+sbcl
+	       (cxml::write-rune c s))
+	 str)))
 
 (defun princ-http (val)
   #+(or)