(progn
(clsql:insert-records :into [employee]
:attributes '(emplid groupid first_name last_name
- email companyid managerid)
+ email ecompanyid managerid)
:values '(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
1 1))
(values
(first_name "Yuri")
(last_name "Gagarin")
(email "gagarin@soviet.org")
- (companyid 1) (managerid 1)))
+ (ecompanyid 1) (managerid 1)))
(values
(clsql:select [first-name] [last-name] [email] :from [employee]
:where [= [emplid] 11])
(deftest :fdml/select/15
(multiple-value-bind (rows field-names)
(clsql:select [addressid] [street-number] [street-name] [city_field] [zip]
- :from [address]
+ :from [addr]
:where [= 1 [addressid]])
(values
rows
(deftest :fdml/loop/2
(loop for (addressid)
being each tuple in
- [select [addressid] :from [address] :order-by [addressid]]
+ [select [addressid] :from [addr] :order-by [addressid]]
collect addressid)
(1 2))
(deftest :fdml/loop/3
(loop for addressid
being each tuple in
- [select [addressid] :from [address] :order-by [addressid]]
+ [select [addressid] :from [addr] :order-by [addressid]]
collect addressid)
(1 2))