anchor.diff: -;;; Blog Package for un-common-lisp.com
  +;;; blog package for un-common-lisp.com
   
   (in-package :com.un-common-lisp.blog)
   
  
positive.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") ()
    (setf (hunchentoot:content-type*) "application/json")
  
negative.code:    (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*))
    
  (defun populate-db (length)
    (progn
      (dotimes (n length n) (create-random-post))))
    
  (defun set-post-timestamp (id timestamp)
    (dolist (lst *posts* lst)
  