in the following code:

(define-macro (assert-equal lhs rhs)                                                    
  (let ((g-lhs (gensym))                                                                
        (g-rhs (gensym)))                                                               
    `(let ((,g-lhs ,lhs) (,g-rhs ,rhs))                                                 
       (if (not (equal? ,g-lhs ,g-rhs))                                                 
           (raise (list ',lhs '= ,g-lhs '<> ,g-rhs '= ',rhs))))))  

used like this:

(assert-equal (+ 1 2) (- 3 4))

is there anyway to rewirte that last line:

(raise (list ...)) somehow in the format of:

(raise '(....))