- ((atom (cadr form)) (cadr form))
- ((and (consp (cadr form))
- (member (caadr form) *backq-tokens*))
- (backq-unparse-expr form splicing))
- (t (cons (backq-unparse `(quote ,(caadr form)))
- (backq-unparse `(quote ,(cdadr form)))))))
+ ((atom (cadr form)) (cadr form))
+ ((and (consp (cadr form))
+ (member (caadr form) *backq-tokens*))
+ (backq-unparse-expr form splicing))
+ (t (cons (backq-unparse `(quote ,(caadr form)))
+ (backq-unparse `(quote ,(cdadr form)))))))