anchor.diff:  
   (setf *app* (lack:builder :accesslog (:static :path #'path-selector) *app*))
   
  -(clack:clackup *app*)
  +(setf *server* (clack:clackup *app*))
  
positive.code: (ql:quickload '(cl-who parenscript clack ningle lack))
  
  (defpackage :text-list-server
    (:use :cl :cl-who))
  
  (in-package :text-list-server)
  
  (defparameter text-list nil)
  (defparameter text-id 0)
  
  (setf (html-mode) :html5)
  
  (defparameter *app* (make-instance 'ningle:<app>))
  
  (setf (ningle:route *app* "/") "Hey there I'm a default response")
  
  
negative.code: 
  (setf (ningle:route *app* "/texts/:id" :method :PUT) 
        #'(lambda (params)
  	  (let ((id (cdr (assoc "id" params :test #'string=)))
  		(val 
  		  (cdr (assoc "value" 
  			(lack.request:request-body-parameters ningle:*request*) :test #'string=))))
  	    (setf (nth id text-list) (cons id val))
  	    "{}")))
  
  (setf (ningle:route *app* "/texts" :method :POST)
        #'(lambda (params)
  	  (push (acons text-id "" nil) text-list)
  	  (incf text-id)
  	  (format nil "{\"id\" : ~a}" (1- text-id)))) ; oh that's horrid style sorry
  
  (setf (ningle:route *app* "/texts" :method :GET)
        #'(lambda (params)
  	  (list->jsarray text-list)))
  
  
  ;;; so routes in ningle appear to be really similar to routes in something like Express
  ;;; let's try making this work with a little bit of backbone code that already exists
  