Subject: Re: Would you please criticize this routine?
From: Erik Naggum <erik@naggum.no>
Date: 2000/01/11
Newsgroups: comp.lang.lisp
Message-ID: <3156569854878998@naggum.no>

* Shin <fxn@retemail.es>
| Should read:
| 
|     (do* ((to-filter result (rest to-filter))
|           (p (first to-filter) (first to-filter)))
|       ((< upper-bound p) (cons 2 result))
|       (rplacd to-filter
|          (delete-if (lambda (a) (zerop (mod a p))) (rest to-filter))))))

  I'd highly recommend (setf (rest to-filter) ...) over RPLACD, or at least
  using CDR instead of REST if you use RPLACD.

#:Erik