- (with-dataset *ds-nodes*
- (values
- (print-loc loc2)
- (print-subloc subloc2)
- (progn
- (clsql:update-records [node]
- :av-pairs '(([title] "altered title"))
- :where [= [node-id] 9])
- (clsql:update-slot-from-record loc2 'title)
- (print-loc loc2))
- (progn
- (clsql:update-records [subloc]
- :av-pairs '(([loc] "altered loc"))
- :where [= [subloc-id] 11])
- (clsql:update-slot-from-record subloc2 'loc)
- (print-subloc subloc2)))))
+ (with-dataset *ds-nodes*
+ (values
+ (print-loc loc2)
+ (print-subloc subloc2)
+ (progn
+ (clsql:update-records [node]
+ :av-pairs '(([title] "altered title"))
+ :where [= [node-id] 9])
+ (clsql:update-slot-from-record loc2 'title)
+ (print-loc loc2))
+ (progn
+ (clsql:update-records [subloc]
+ :av-pairs '(([loc] "altered loc"))
+ :where [= [subloc-id] 11])
+ (clsql:update-slot-from-record subloc2 'loc)
+ (print-subloc subloc2)))))