anchor.diff:  			       :email "stalin@soviet.org"))
   
   ;; Lenin manages Stalin (for now)
  -(sql:add-to-relation employee2 'manager employee1)
  +(clsql:add-to-relation employee2 'manager employee1)
   
   ;; Lenin and Stalin both work for Widgets Inc.
  -(sql:add-to-relation company1 'employees employee1)
  -(sql:add-to-relation company1 'employees employee2)
  +(clsql:add-to-relation company1 'employees employee1)
  +(clsql:add-to-relation company1 'employees employee2)
   
   ;; Lenin is president of Widgets Inc.
  -(sql:add-to-relation company1 'president employee1)
  +(clsql:add-to-relation company1 'president employee1)
   
  -(sql:update-records-from-instance employee1)
  -(sql:update-records-from-instance employee2)
  -(sql:update-records-from-instance company1)
  +(clsql:update-records-from-instance employee1)
  +(clsql:update-records-from-instance employee2)
  +(clsql:update-records-from-instance company1)
   
   ;; lets us use the functional
   ;; sql interface 
  -(sql:locally-enable-sql-reader-syntax)
  +(clsql:locally-enable-sql-reader-syntax)
   
   
   (format t "The email address of ~A ~A is ~A"
  
positive.code: (defvar *tutorial-database-password* "" 
    "The password if required")
  
  (sql:def-view-class employee ()
    ((emplid
      :db-kind :key
      :db-constraints :not-null
  
negative.code: (asdf:operate 'asdf:load-op 'clsql)
  
  (in-package #:clsql-user)
  
  ;; You must set these variables to appropriate values. 
  (defvar *tutorial-database-type* nil 
  