aesthetic.computer
Monorepo for Aesthetic.Computer
aesthetic.computer
1; This file is old now and was
2; meant for getting sbcl running in a unikernel.
3
4;(declaim (optimize (debug 3))) ; Set the debugging level
5;(sb-ext:enable-debugger) ; Enable the SBCL debugger
6
7(format t "Hello!~%")
8
9(load "quicklisp.lisp")
10
11(cond
12 ((probe-file "./quicklisp/setup.lisp") ; Condition
13 (format t "Setup found...~%")
14 (load "./quicklisp/setup.lisp") ; True branch
15 (format t "Quicklisp setup loaded.~%"))
16 (t ; Else branch
17 (format t "Quicklisp setup not found.~%")
18 (quicklisp-quickstart:install :path "./quicklisp")
19 (format t "Installed quicklisp...~%")))
20
21(ql:quickload "hunchentoot")
22
23(format t "Loaded hunchentoot!")
24
25(hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port 8083))