ken restivo kenrestivo

## save-lisp-tree-shake-and-die.lisp
;; -*- mode: lisp -*-
;;
;; A quick and dirty tree shaker for SBCL.  Basically, it destroys the
;; package system and does a gc before saving the lisp image.  Gives
;; about a 40% reduction in image size on a basic hello world test.
;; Would like to hear how it works on larger projects.
;;
;; Original idea from: https://groups.google.com/d/msg/comp.lang.lisp/6zpZsWFFW18/WMy4PyA9B4kJ
;;
;; Burton Samograd

## fuck-you-lein.sh
lein deploy file://$HOME/.m2/repository ARTIFACT VERSION PATH-TO-JAR

## gist:2495345
(ns interface.boot
  "This namespace is only used while developing
   to start and stop an internal webserver."
  (:use [ring.adapter.jetty :only [run-jetty]]
        [ring.middleware.stacktrace :only [wrap-stacktrace]])
  (:require [interface.routes :as routes])
  (:gen-class))

(def ^:dynamic *port* 8081)
	;; -- mode: lisp --
	;;
	;; A quick and dirty tree shaker for SBCL. Basically, it destroys the
	;; package system and does a gc before saving the lisp image. Gives
	;; about a 40% reduction in image size on a basic hello world test.
	;; Would like to hear how it works on larger projects.
	;;
	;; Original idea from: https://groups.google.com/d/msg/comp.lang.lisp/6zpZsWFFW18/WMy4PyA9B4kJ
	;;
	;; Burton Samograd
	(ns interface.boot
	"This namespace is only used while developing
	to start and stop an internal webserver."
	(:use [ring.adapter.jetty :only [run-jetty]]
	[ring.middleware.stacktrace :only [wrap-stacktrace]])
	(:require [interface.routes :as routes])
	(:gen-class))

	(def ^:dynamic port 8081)