anchor.diff:                    (progn 
                       (setf (slot-value emp1 'height) 1.0S0)
                       (clsql:update-record-from-slot emp1 'height)
  -                    (car (clsql:select [height] :from [employee] 
  -                                       :where [= [emplid] 1] 
  -                                       :flatp t 
  -                                       :field-names nil)))
  +                    (= (car (clsql:select [height] :from [employee] 
  +                                          :where [= [emplid] 1] 
  +                                          :flatp t 
  +                                          :field-names nil))
  +                       1))
                   (setf (slot-value emp1 'height) height)
                   (clsql:update-record-from-slot emp1 'height)))
  -          1.0d0)
  +         t)
   
           (deftest :oodml/float/3
               (let* ((emp1 (car (select 'employee 
  
positive.code:                   (progn 
                      (setf (slot-value emp1 'height) 1.0E0)
                      (clsql:update-record-from-slot emp1 'height)
                      (car (clsql:select [height] :from [employee] 
                                         :where [= [emplid] 1] 
                                         :flatp t 
                                         :field-names nil)))
                  (setf (slot-value emp1 'height) height)
                  (clsql:update-record-from-slot emp1 'height)))
            1.0d0)
  
          (deftest :oodml/float/2
              (let* ((emp1 (car (select 'employee 
  
negative.code:                   (progn 
                      (setf (slot-value emp1 'height) 1.0L0)
                      (clsql:update-record-from-slot emp1 'height)
                      (= (car (clsql:select [height] :from [employee] 
                                            :where [= [emplid] 1] 
                                            :flatp t 
                                            :field-names nil))
                         1))
                  (setf (slot-value emp1 'height) height)
                  (clsql:update-record-from-slot emp1 'height)))
           t)
  
  	))
  
  