anchor.diff:                 (cl-who:fmt "~A, " year))
                "Smith Dhumbumroong")))))
   
  -(defun create-vm-provisioning-main-content (output-stream has_instant)
  -  (cond (t
  +(defun create-vm-provisioning-main-content (output-stream vm-name vm-status)
  +  (cond ((string= "ACTIVE" (getf vm-status :status))
  +         (cl-who:with-html-output (output-stream nil :indent t)
  +           (:p "You have 1 active virtual machine instant:")
  +           (:br)
  +           (:div :class "vm-spec-container"
  +                 (:h4 (cl-who:str vm-name))
  +                 (:hr)
  +                 (:br)
  +                 (:table
  +                  (:tr
  +                   (:td (:b "Status:"))
  +                   (:td (cl-who:str (getf vm-status :status))))
  +                  (:tr
  +                   (:td (:b "CPU:"))
  +                   (:td "1 vCPU"))
  +                  (:tr
  +                   (:td (:b "Memory:"))
  +                   (:td "512 MB"))
  +                  (:tr
  +                   (:td (:b "HDD:"))
  +                   (:td "1 GB"))
  +                  (:tr
  +                   (:td (:b "Floating IP:"))
  +                   (:td (cl-who:str (cdr (assoc "floating" (getf vm-status :addresses)
  +                                                :test #'string=)))))))))
  +        (t
            (cl-who:with-html-output (output-stream nil :indent t)
              (:p "Currently, you don't have any active virtual machine instant.")
              (:br)
              (:p "Based on your credential, you have access to the following virtual machine:" )
              (:br)
              (:div :class "vm-spec-container"
  -                 (:h4 "cirros-0.3.4-x86_64-uec")
  +                 (:h4 (cl-who:str vm-name))
                    (:hr)
                    (:br)
                    (:table
  
positive.code:                   (:h1 "Your Virtual Machine Status")
                    (:hr)
                    (:br)
                    (create-vm-provisioning-main-content output-string nil)))
        (:div :id "watermark"
              (:p
               "Copyright "
  
negative.code:                    (:td "1 GB"))))
             (:br)
             (:div :class "link-container"
                   (:a :href "/launch-a-new-instant" "Launch a new instant"))))))
  
  (defun create-vm-provisioning-main-page (&key vm-name vm-status (page-uri "/") (realname "nil"))
    (cl-who:with-html-output-to-string (output-string nil :prologue t :indent t)
      (with-default-html-template (output-string "CU OpenStack System"
                                                 "/static/css/main-page.css")
  