anchor.diff:  (setf (employee-email employee1) "lenin-nospam@soviets.org")
   
   ;; Update the database
  -(sql:update-records-from-instance employee1)
  +(clsql:update-records-from-instance employee1)
   
   (let ((new-lenin (car
  -		  (sql:select 'employee
  +		  (clsql:select 'employee
   			      :where [= [slot-value 'employee 'emplid] 1]))))
     (format t "His new email is ~A"
   	  (employee-email new-lenin)))
  
positive.code: 
  ;; Record the sql going out, helps us learn what is going
  ;; on behind the scenes
  (sql:start-sql-recording)
  
  ;; Create the tables for our view classes
  ;; First we drop them, ignoring any errors
  (ignore-errors
   (sql:drop-view-from-class 'employee)
   (sql:drop-view-from-class 'company))
  
  (sql:create-view-from-class 'employee)
  (sql:create-view-from-class 'company)
  
  
  ;; Create some instances of our view classes
  
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 
  