anchor.diff:  
   ;; Server io utilities 
   
  -(defun plist-to-hash (x)
  -  (let ((y (make-hash-table)))
  -    (do ((property-name (car x) (car x))
  -         (property-value (cadr x) (cadr x)))
  -      ((equal nil (car x)) y)
  -      (setf (gethash property-name y) property-value)
  -      (setf x (cddr x)))))
  - 
   (defun send-json (x)
       (json:encode-json-to-string x))
   
  
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: (defun two-words () 
    (concatenate 'string (random-word (max 3 (random 8))) " " (random-word (max 3 (random 8)))))
  
  ;; Hunchentoot Definitions 
   
  (hunchentoot:define-easy-handler (some-handler-post :uri "/rest/all-posts") ()
  