anchor.diff:    (progn
       (dotimes (n length n) (create-random-post))))
     
  -(defun set-post-timestamp (id timestamp)
  +(defun set-post (id &key timestamp comments)
     (dolist (lst *posts* lst)
  -    (with-slots (post-id post-time) lst
  -      (if (eq post-id id) (setf post-time timestamp)))))
  -  
  +    (progn
  +      (if timestamp
  +        (with-slots (post-id post-time) lst
  +          (if (eq post-id id) (setf post-time timestamp))))
  +      (if (eq comments 0)
  +        (with-slots (post-id (com comments)) lst
  +          (format t "post-id: ~a~%comments: ~a" post-id com)
  +          (if (eq post-id id) (setf com '())))))))
  +
   ;; Random post generation utilities
   
   (defun random-word-s (length)
  
positive.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-id)
    (progn
      (let ((new-comment (make-instance 'comment :author author :text text :post-id post-ref-id)))
        (push new-comment *comments*)
        (dolist (lst *posts* nil)
          (with-slots (post-id comments) lst
            (if (eq post-ref-id post-id) (push new-comment comments)))))))
    
  (defun create-random-post ()
    (push (make-instance 'post) *posts*))
  
negative.code:                   (json-obj data-string))
               (setf *sample-post-data* (json:decode-json-from-string data-string))
               (apply #'create-post (post-to-plist (json:decode-json-from-string data-string)))
               json-obj)))))
  
  (hunchentoot:define-easy-handler (create-post-handler :uri "/rest/create-comment") ()
    (setf (hunchentoot:content-type*) "application/json")
    (let* ((request-type (hunchentoot:request-method hunchentoot:*request*)))
      (cond  ((eq request-type :post)
             (let* ((data-string (hunchentoot:raw-post-data :force-text t))
                    (json-obj data-string))
               (print (post-to-plist (json:decode-json-from-string data-string)))
               (apply #'create-comment (post-to-plist (json:decode-json-from-string data-string)))
               json-obj)))))
  
  ;; Server io utilities 
  