[bknr-cvs] r1926 - trunk/projects/hello-web/src

[bknr at bknr.net]

Author: troussanov
Date: 2006-03-12 16:15:02 -0500 (Sun, 12 Mar 2006)
New Revision: 1926

Modified:
   trunk/projects/hello-web/src/load.lisp
   trunk/projects/hello-web/src/packages.lisp
   trunk/projects/hello-web/src/webserver.lisp
Log:
Make hello-web wirking again with CMUL



Modified: trunk/projects/hello-web/src/load.lisp
===================================================================
--- trunk/projects/hello-web/src/load.lisp	2006-03-12 21:13:40 UTC (rev 1925)
+++ trunk/projects/hello-web/src/load.lisp	2006-03-12 21:15:02 UTC (rev 1926)
@@ -6,4 +6,5 @@
 (swank::create-swank-server 4005 :spawn #'swank::simple-announce-function t)
 (hello-web::startup)
 
+#-sbcl
 (mp::startup-idle-and-top-level-loops)

Modified: trunk/projects/hello-web/src/packages.lisp
===================================================================
--- trunk/projects/hello-web/src/packages.lisp	2006-03-12 21:13:40 UTC (rev 1925)
+++ trunk/projects/hello-web/src/packages.lisp	2006-03-12 21:15:02 UTC (rev 1926)
@@ -11,7 +11,10 @@
 (defpackage :hello-web.tags
   (:use :cl
 	:cl-user
-;	:ext
+	#-sbcl
+	:ext
+	#+sbcl
+	:sb-ext
 	:bknr.web
 	:xhtml-generator
 	:hello-web.config)
@@ -32,7 +35,10 @@
 (defpackage :hello-web
   (:use :cl
 	:cl-user
-;	:ext
+	#-sbcl
+	:ext
+	#+sbcl
+	:sb-ext
 	:cl-interpol
 	:cl-ppcre
 	:bknr.utils

Modified: trunk/projects/hello-web/src/webserver.lisp
===================================================================
--- trunk/projects/hello-web/src/webserver.lisp	2006-03-12 21:13:40 UTC (rev 1925)
+++ trunk/projects/hello-web/src/webserver.lisp	2006-03-12 21:15:02 UTC (rev 1926)
@@ -24,7 +24,7 @@
 							    (:bknr . :bknr.web)
 							    (:menu . :bknr.site-menu)))
 					("/static" directory-handler
-					 :destination ,(#-sbcl unix-namestring #+sbcl sb-ext:native-namestring 
+					 :destination ,(#-sbcl unix-namestring #+sbcl native-namestring 
 							       (merge-pathnames #p"static/" *website-directory*))
 					 ))
 		 :modules '(images user)