Skip to content

Instantly share code, notes, and snippets.

@martialboniou
Created January 3, 2012 16:13
Show Gist options
  • Save martialboniou/1555560 to your computer and use it in GitHub Desktop.
Save martialboniou/1555560 to your computer and use it in GitHub Desktop.
weblocks hello world on sbcl and clbuild
;; go to your favorite web site directory in order to create a simple-blog bundle and start sbcl
;; NOTE: you may start sbcl via: 'clbuild lisp'
(use-package :ql-dist)
(available-versions (dist "quicklisp"))
(install-dist "http://beta.quicklisp.org/dist/quicklisp/2011-11-07/distinfo.txt" :replace t)
(ql:quickload "cl-precedence")
(ql:quickload "weblocks")
(require :weblocks-scripts)
(weblocks-scripts:make-application 'simple-blog (truename "."))
(push (make-pathname :directory '(:relative "simple-blog"))
asdf:*central-registry*)
(require :simple-blog)
(simple-blog:start-simple-blog)
;; see you at http://localhost:8080
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment