From ...
From: Erik Naggum <erik@naggum.no>
Subject: Re: Would you please criticize this routine?
Date: 2000/01/11
Message-ID: <3156569854878998@naggum.no>#1/1
X-Deja-AN: 571673719
References: <pv5j7sgi41tfnmkf0rj9sihpit2ejetgm5@4ax.com> <cpbj7sokis5bdhieff8cmrg91u5fqdf4h8@4ax.com>
mail-copies-to: never
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: newsmaster@eunet.no
X-Trace: oslo-nntp.eunet.no 947692550 7309 195.0.192.66 (12 Jan 2000 15:55:50 GMT)
Organization: Naggum Software; +47 8800 8879 or +1 510 435 8604; fax: +47 2210 9077; http://www.naggum.no
User-Agent: Gnus/5.0802 (Gnus v5.8.2) Emacs/20.5
Mime-Version: 1.0
NNTP-Posting-Date: 12 Jan 2000 15:55:50 GMT
Newsgroups: comp.lang.lisp

* 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