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: 
  (defclass comment ()
     ((comment-id :accessor comment-id :initform (get-comment-id))
      (post-id :initarg :post-id :accessor post-id :initform 1)
      (comment-time :initform (timestamp-to-unix (now)))
      (author :initarg :author :accessor author :initform "anonymous")
      (text :initarg :text :accessor text :initform "")))
  