((1 10 "Park Place" "Leningrad" 123))
("emplid" "street_number" "street_name" "city_field" "zip"))
+(deftest :fdml/select/16
+ (clsql:select [emplid] :from [employee] :where [= 1 [emplid]]
+ :field-names nil)
+ ((1)))
+
;(deftest :fdml/select/11
; (clsql:select [emplid] :from [employee]
; :where [= [emplid] [any [select [companyid] :from [company]]]]
"Josef Stalin" "Leon Trotsky" "Boris Yeltsin"))
(deftest :fdml/loop/2
- (loop for emplid
+ (loop for (emplid)
being each tuple in
[select [emplid] :from [address] :order-by [emplid]]
- collect emplid)
- ((1) (2)))
+ collect emplid)
+ (1 2))
(deftest :fdml/loop/3
(loop for emplid
being each tuple in
- [select [emplid] :from [address] :order-by [emplid] :flatp t]
+ [select [emplid] :from [address] :order-by [emplid]]
collect emplid)
(1 2))