UPDATE-RECORD-FROM-SLOT — Updates database from slot value.Function
objectAn instance of a View Class.
slot
	      The name of a slot in object.
	    
databaseA database object. This will default to the value of *default-database*.
Updates the value stored in the column represented by the
      slot, specified by the CLOS slot name
      slot, of View Class instance
      object. database
      specifies the database in which the update is made only if
      object is not associated with a
      database. In this case, a record is created in
      database and the attribute represented by
      slot is initialised from the value of the
      supplied slots with other attributes having default
      values. Furthermore, object becomes
      associated with database.
      
(select [email] :from [employee] :where [= [emplid] 1] :field-names nil :flatp t)
=> ("lenin@soviet.org")
(defvar *e1* (car (select 'employee :where [= [slot-value 'employee 'emplid] 1] :flatp t)))
=> *E1* 
(slot-value *e1* 'email)
=> "lenin@soviet.org"
(setf (slot-value *e1* 'email) "v.lenin@soviet.org")
=> "v.lenin@soviet.org"
(update-record-from-slot *e1* 'email)
=> 
(select [email] :from [employee] :where [= [emplid] 1] :field-names nil :flatp t)
=> ("v.lenin@soviet.org")