Next Prev Up Top Contents Index

16.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>)

LispWorks User Guide - 18 Feb 2003

Next Prev Up Top Contents Index