- (select [title] :from [node]
- :where [= [title] "test-theme"]
- :flatp t :field-names nil)
- (select [vars] :from [setting]
- :where [= [vars] "test-vars"]
- :flatp t :field-names nil)
- (select [doc] :from [theme]
- :where [= [doc] "test-doc"]
- :flatp t :field-names nil)
- (select [title] :from [node]
- :where [= [title] "alternate-test-theme"]
- :flatp t :field-names nil)))
+ (or (select [title] :from [node]
+ :where [= [title] "test-theme"]
+ :flatp t :field-names nil) "NIL")
+ (or (select [vars] :from [setting]
+ :where [= [vars] "test-vars"]
+ :flatp t :field-names nil) "NIL")
+ (or (select [doc] :from [theme]
+ :where [= [doc] "test-doc"]
+ :flatp t :field-names nil) "NIL")
+ (or (select [title] :from [node]
+ :where [= [title] "alternate-test-theme"]
+ :flatp t :field-names nil) "NIL")))