anchor.diff:  (defun two-words () 
     (concatenate 'string (random-word (max 3 (random 8))) " " (random-word (max 3 (random 8)))))
   
  -;; Hard-coded First Post
  -
  -(defun make-first-post ()
  -  (create-post :title "Hard-coded, Hard-coding" 
  -               :author "Nate Wildermuth"
  -               :summary "Common Lisp has always intruiged me. Its been called the most powerful language that exists. But is it true? This blog explores that claim. It is driven by a LISP-powered REST server. The front-end is AngularJS."
  -               :text "This post is hard-coded into a variable. Is the word 'variable' even the right word to use? It's a property list. This paragraph comes from the :text property on a list. The list is transformed into a hash that the CL-JSON library then transforms into JSON that the AngularJS is capable of transforming into a post. But these are technicalities. Why LISP? Why CL? Why not PHP, Python, Ruby, Nodejs, or any other proper language? Why an old language that no one seems to use? For me, two words suffice: <a href=\"http://www.paulgraham.com/avg.html\">Paul Graham.</a>"))
  -
  - 
   ;; Hunchentoot Definitions 
    
   (hunchentoot:define-easy-handler (some-handler-post :uri "/rest/all-posts") ()
  
positive.code: (defvar *post-count* 0)
  
  ;; Save and Restore and Flush Database
  
  (defun save-db ()
    (setf *saved-posts* *posts*))
  
  (defun restore-db ()
    (setf *posts* *saved-posts*))
  
negative.code: 
  ;; Server io utilities 
  
  (defun send-json (x)
      (json:encode-json-to-string x))
  
  