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)