anchor.diff:    (concatenate 'string (random-word (max 3 (random 8))) " " (random-word (max 3 (random 8)))))
   
    
  -(hunchentoot:define-easy-handler (some-handler-post :uri "/rest/all-posts") ()
  +(hunchentoot:define-easy-handler (get-all-posts-handler :uri "/rest/all-posts") ()
     (setf (hunchentoot:content-type*) "application/json")
     (let* ((request-type (hunchentoot:request-method hunchentoot:*request*)))
       (cond ((eq request-type :get)
              (send-json *posts*)))))
   
  -(hunchentoot:define-easy-handler (some-handler :uri "/rest/create-post") ()
  +(hunchentoot:define-easy-handler (post-handler :uri "/rest") (verb)
     (setf (hunchentoot:content-type*) "application/json")
     (let* ((request-type (hunchentoot:request-method hunchentoot:*request*)))
       (cond  ((eq request-type :post)
  
positive.code:     (incf *post-count*)
      *post-count*))
  
  (defclass post ()
    ((title :initarg :title :accessor title :initform (random-word-s 5))
     (post-id :accessor post-id :initform (get-post-id))
     (post-time :initform (timestamp-to-unix (now)))
     (author :initarg :author :accessor author :initform (random-word-s 2))
     (summary :initarg :summary :accessor summary :initform (random-word-s 25))
     (text :initarg :text :accessor text :initform (random-word-s 200))))
  
  (defmethod ms:class-persistant-slots ((self post))
    '(title post-id post-time author summary text))
  
  (defmethod print-object ((object post) stream)
      (print-unreadable-object (object stream :type t)
            (with-slots (title post-id) object
                    (format stream "~%title: ~a~%post-id:~a" title post-id))))
  
  (defun create-post (&key title summary text author)
    (progn
      (push (make-instance 'post :title title :summary summary :text text :author author) *posts*)
      (save-db)))
    
  (defun create-random-post ()
    (push (make-instance 'post) *posts*))
  
negative.code: 
  (defvar *h-server*) 
  (defvar *posts* ())
  (defvar *comments* ())
  (defvar *saved-posts* ())
  (defvar *sample-post-data*)
  (defvar *post-count* 0)
  (defvar *comment-count* 0)
  
  ;; Save and Restore and Flush Database
  (defun save-db ()
  