Welcome to the CHICKEN Scheme pasting service

(define q
'(select
  (columns
    (col objects
         name
         type
         description
         node-id
         seqno
         version-ts
         version-node-id
         created
         last-modified
         created-by-node-id
         created-by-seqno
         last-modified-by-node-id
         last-modified-by-seqno
         rating-hint
         image-version-ts
         image-version-node-id))
  (from objects)
  (where (and (or (and (= (col objects version-node-id) 6)
                       (> (col objects version-ts) 0))
                  (not (in (col objects version-node-id) (6))))))
  (order (asc (col objects version-ts)) (asc (col objects version-node-id))))
)

#;5> (ssql->sql #f q)

Error: message not understood: (6 ())

(define p '(select (columns (col objects a)) (from objects) (where (in (col objects b) #(1 2)))))