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