From ... From: Erik Naggum Subject: Re: Problem with iteration Date: 1998/03/22 Message-ID: <3099551227196509@naggum.no>#1/1 X-Deja-AN: 336494803 References: <351203BC.3158@ibm.net> <6f1f9b$sdv@news-central.tiac.net> mail-copies-to: never Organization: Naggum Software; +47 8800 8879; http://www.naggum.no Newsgroups: comp.lang.lisp * Raffael Cavallaro | (defun my-reverse (a-list) | (do ((n (- 1) (incf n)) (result '() (cons (nth n a-list) result))) | ((= n (- (length a-list) 1)) result ))) yikes. (defun my-reverse (list) (do ((reversed (list (pop list)) (cons (pop list) reversed))) ((endp list) reversed))) #:Erik -- religious cult update in light of new scientific discoveries: "when we cannot go to the comet, the comet must come to us."