(define-syntax add-sql!
 (ir-macro-transformer
  (lambda (x i c)
   `(set! ,(cadr x) (cons ,(caddr x) ,(cadr x))))
  ))

(let ((ssql '())
(add-sql! ssql (object-create object)))