anchor.diff:  ;;;; templates.lisp
   
  -(in-package #:cu-openstack)
  +(in-package #:views)
   
   ;;; Template functions that generate HTML are defined here.
   
  
positive.code: 
  ;;; Template definitions
  
  (defun make-login-page ()
    "Creates the log-in page."
    (cl-who:with-html-output-to-string (output-string nil :prologue t :indent t)
      (with-default-html-template (output-string "Welcome to CU OpenStack System"
  
negative.code:             (:div :id "login-box-header"
                    (:p "Welcome to CU OpenStack System"))
              (:div :id "login-box-body"
                    (:form :action "/login" :method "post"
                           (:p "Username:" (:br)
                               (:input :type "text" :name "username"))
                           (:br)
  