19.4.3.1 Examples

[select 'employee]

-> #<SQL-OBJECT-QUERY (EMPLOYEE)>

(select 'employee 

        :where [= [slot-value 'employee 'employee-job]

                  "SALESMAN"])

((#<db-instance EMPLOYEE 8067092>) 

 (#<db-instance EMPLOYEE 8069536>)

 (#<db-instance EMPLOYEE 8069176>))

(list-classes)

(#<db-class EMPLOYEE> #<db-class DEPARTMENT>)