- collect (if (consp b) b (list b nil))))
- (vars (mapcar #'car bindings))
- (binding-forms (mapcar #'cadr bindings)))
- (funcall
- (the function
- (eval `(lambda (,(car vars) &aux ,@(cdr bindings)) ,@(cddr form))))
- (eval (car binding-forms)))))
+ collect (if (consp b) b (list b nil))))
+ (vars (mapcar #'car bindings))
+ (binding-forms (mapcar #'cadr bindings)))
+ (funcall
+ (the function
+ (eval `(lambda (,(car vars) &aux ,@(cdr bindings)) ,@(cddr form))))
+ (eval (car binding-forms)))))