;;;@ From: hugh@ear.mit.edu (Hugh Secker-Walker) (define (cl:make-list k . init) (set! init (if (pair? init) (car init))) (do ((k (+ -1 k) (+ -1 k)) (result '() (cons init result))) ((negative? k) result)))