anchor.diff:                    (format stream "~%title: ~a~%post-id:~a" title post-id))))
   
   (defun create-post (&key title summary text author)
  -  (push (make-instance 'post :title title :summary summary :text text :author author) *posts*) 
  +  (push (make-instance 'post :title title :summary summary :text text :author author) *posts*) )
     
   (defun create-random-post ()
  -  (push (make-instance 'post) *posts*) 
  +  (push (make-instance 'post) *posts*))
     
   (defun populate-db (length)
     (progn
       (dotimes (n length n) (create-random-post))
  -    (make-first-post)) 
  +    (make-first-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
   
  
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") ()
  