anchor.diff:    (concatenate 'string (random-word (max 3 (random 8))) " " (random-word (max 3 (random 8)))))
   
    
  -(hunchentoot:define-easy-handler (get-all-posts-handler :uri "/rest/all-posts") ()
  +(hunchentoot:define-easy-handler (some-handler-post :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 (post-handler :uri "/rest") (verb)
  +(hunchentoot:define-easy-handler (create-post-handler :uri "/rest/create-post") ()
     (setf (hunchentoot:content-type*) "application/json")
     (let* ((request-type (hunchentoot:request-method hunchentoot:*request*)))
       (cond  ((eq request-type :post)
  
positive.code:   (progn
      (dotimes (n length n) (create-random-post))))
    
  (defun set-post-timestamp (id timestamp)
    (dolist (lst *posts* lst)
      (with-slots (post-id post-time) lst
        (if (eq post-id id) (setf post-time timestamp)))))
    
  ;; Random post generation utilities
  
  (defun random-word-s (length)
  
negative.code: (defun create-post (&key title summary text author)
    (push (make-instance 'post :title title :summary summary :text text :author author) *posts*))
  
  (defun create-comment (&key author text post-ref)
    (progn
      (let ((new-comment (make-instance 'comment :author author :text text :post-id post-ref)))
        (push new-comment *comments*)
        (dolist (lst *posts* nil)
          (with-slots (post-id comments) lst
            (if (eq post-ref post-id) (push new-comment comments)))))))
    
  (defun create-random-post ()
    (push (make-instance 'post) *posts*))
  