From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Jeff Clough Newsgroups: gmane.emacs.help Subject: Re: LISP Questions - random, random elements and memory management Date: Wed, 18 Nov 2009 08:09:39 -0500 (EST) Message-ID: <20091118.080939.42107716.jeff@chaosphere.com> References: <20091118.075428.224836459.jeff@chaosphere.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: Text/Plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1258549776 18876 80.91.229.12 (18 Nov 2009 13:09:36 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 18 Nov 2009 13:09:36 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Nov 18 14:09:30 2009 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1NAkHq-0004Hv-FI for geh-help-gnu-emacs@m.gmane.org; Wed, 18 Nov 2009 14:09:30 +0100 Original-Received: from localhost ([127.0.0.1]:59715 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NAkHp-0001EC-EB for geh-help-gnu-emacs@m.gmane.org; Wed, 18 Nov 2009 08:09:29 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NAkHS-0001Dq-Sg for help-gnu-emacs@gnu.org; Wed, 18 Nov 2009 08:09:06 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NAkHS-0001DV-6E for help-gnu-emacs@gnu.org; Wed, 18 Nov 2009 08:09:06 -0500 Original-Received: from [199.232.76.173] (port=51650 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NAkHS-0001DS-22 for help-gnu-emacs@gnu.org; Wed, 18 Nov 2009 08:09:06 -0500 Original-Received: from hrndva-omtalb.mail.rr.com ([71.74.56.125]:54565) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NAkHR-0005f9-Lu for help-gnu-emacs@gnu.org; Wed, 18 Nov 2009 08:09:05 -0500 Original-Received: from localhost ([74.70.71.134]) by hrndva-omta03.mail.rr.com with ESMTP id <20091118130905181.OBWO8997@hrndva-omta03.mail.rr.com> for ; Wed, 18 Nov 2009 13:09:05 +0000 In-Reply-To: <20091118.075428.224836459.jeff@chaosphere.com> X-Mailer: Mew version 6.3rc1 on Emacs 23.1 / Mule 6.0 (HANACHIRUSATO) X-detected-operating-system: by monty-python.gnu.org: Solaris 10 (1203?) X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:69873 Archived-At: From: Jeff Clough Date: Wed, 18 Nov 2009 07:54:28 -0500 (EST) > (defun get-random-element (list) > "Returns a random element of LIST." > (if (not (and (list) (listp list))) > (nth (random (1- (1+ (length list)))) list) > (error "Argument to get-random-element not a list or the list is empty"))) > Yay for not being awake! The above should be this: (defun get-random-element (list) "Returns a random element of LIST." (if (and list (listp list)) (nth (random (1- (1+ (length list)))) list) (error "Argument to get-random-element not a list or the list is empty"))) Jeff