[bknr-cvs] hans changed trunk/projects/lisp-ecoop/src/

[BKNR Commits]

Revision: 4318
Author: hans
URL: http://bknr.net/trac/changeset/4318

Fix loading, / redirection.

U   trunk/projects/lisp-ecoop/src/load.lisp
U   trunk/projects/lisp-ecoop/src/webserver.lisp

Modified: trunk/projects/lisp-ecoop/src/load.lisp
===================================================================
--- trunk/projects/lisp-ecoop/src/load.lisp	2009-02-23 17:24:33 UTC (rev 4317)
+++ trunk/projects/lisp-ecoop/src/load.lisp	2009-02-24 10:27:56 UTC (rev 4318)
@@ -5,7 +5,7 @@
 #+sbcl (require 'sb-posix)
 #+sbcl (assert (eql sb-impl::*default-external-format* :utf-8))
 
-(load (compile-file "../../../thirdparty/asdf/asdf.lisp"))
+(load "../../../thirdparty/asdf/asdf.fasl")
 
 (defun setup-registry ()
   (format t "; setting up ASDF registry, please be patient...")
@@ -20,7 +20,11 @@
 (setup-registry)
 
 (push :cl-gd-gif *features*)
+(asdf:oos 'asdf:load-op :cffi)
+(cffi:load-foreign-library "../../../thirdparty/cl-gd/cl-gd-glue.so")
 
+(format t "~&; loaded cl-gd-glue.so~%")
+
 (asdf:oos 'asdf:load-op :lisp-ecoop)
 (asdf:oos 'asdf:load-op :swank)
 

Modified: trunk/projects/lisp-ecoop/src/webserver.lisp
===================================================================
--- trunk/projects/lisp-ecoop/src/webserver.lisp	2009-02-23 17:24:33 UTC (rev 4317)
+++ trunk/projects/lisp-ecoop/src/webserver.lisp	2009-02-24 10:27:56 UTC (rev 4318)
@@ -24,7 +24,7 @@
                                         mailinglist
                                         mailinglist-registration
 					participants schedule
-					("/" redirect-handler :to "/home")
+					("/" redirect-handler :to "http://elw2009.bknr.net/home")
 					("/static" directory-handler
 					 :destination ,(probe-file (merge-pathnames #p"static/" *website-directory*))))
 		 :admin-navigation nil