;@ (define cl:list* (letrec ((list*1 (lambda (obj) (if (null? (cdr obj)) (car obj) (cons (car obj) (list*1 (cdr obj))))))) (lambda (obj1 . obj2) (if (null? obj2) obj1 (cons obj1 (list*1 obj2)))))) ;@