-(define-macro (pushnew elem list)
- `(cond ((not (find (lambda (e) (eq? e ,elem)) ,list))
- (set! ,list (cons ,elem ,list)))))
+;(define-macro (pushnew elem list)
+; `(cond ((not (find (lambda (e) (eq? e ,elem)) ,list))
+; (set! ,list (cons ,elem ,list)))))