(define object-INSERT
  `(insert (into objects)
	  (columns node-id seqno
		   version created last-modified
		   created-by-node-id created-by-seqno
		   last-modified-by-node-id last-modified-by-seqno)
	  (values "nod';e-id" "seqno"
		  "version" "created" "last-modified"
		  "created-by-node-id" "created-by-seqno"
		  "last-modified-by-node-id" "last-modified-by-seqno"))
  )

#;13> (define other-INSERT `((columns name) (values "my name")))
#;14> (ssql-compose #f object-INSERT other-INSERT)
(insert (into objects objects objects) (columns node-id seqno version created last-modified created-by-node-id created-by-seqno last-modified-by-node-id last-modified-by-seqno name name name name) (values "nod';e-id" "seqno" "version" "created" "last-modified" "created-by-node-id" "created-by-seqno" "last-modified-by-node-id" "last-modified-by-seqno" "my name" "my name" "my name" "my name"))
#;15>