anchor.diff:  
   ;; Connect to the database (see the CLSQL documentation for vendor
   ;; specific connection specs).
  -(sql:connect `(,*tutorial-database-server* 
  +(clsql:connect `(,*tutorial-database-server* 
   	       ,*tutorial-database-name*
   	       ,*tutorial-database-user* 
   	       ,*tutorial-database-password*)
  
positive.code: 			  :set nil)))
    (:base-table employee))
  
  (sql:def-view-class company ()
    ((companyid
      :db-type :key
      :db-constraints :not-null
  
negative.code: 
  ;; Record the sql going out, helps us learn what is going
  ;; on behind the scenes
  (clsql:start-sql-recording)
  
  ;; Create the tables for our view classes
  ;; First we drop them, ignoring any errors
  (ignore-errors
   (clsql:drop-view-from-class 'employee)
   (clsql:drop-view-from-class 'company))
  
  (clsql:create-view-from-class 'employee)
  (clsql:create-view-from-class 'company)
  
  
  ;; Create some instances of our view classes
  