Subject: Re: Problem with iteration
From: Erik Naggum <>
Date: 1998/03/22
Newsgroups: comp.lang.lisp
Message-ID: <>

* 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 )))


(defun my-reverse (list)
  (do ((reversed (list (pop list))
		 (cons (pop list) reversed)))
      ((endp list) reversed)))

  religious cult update in light of new scientific discoveries:
  "when we cannot go to the comet, the comet must come to us."