Newsgroups: comp.lang.lisp
Path: cantaloupe.srv.cs.cmu.edu!das-news2.harvard.edu!news2.near.net!news.mathworks.com!newshost.marcam.com!usc!howland.reston.ans.net!news.sprintlink.net!EU.net!julienas!news.fnet.fr!ilog!news
From: davis@ilog.fr (Harley Davis)
Subject: Re: SETQ is to SET as LET is to ???
In-Reply-To: geddis@CS.Stanford.EDU's message of 16 Nov 1994 00:06:42 GMT
Message-ID: <DAVIS.94Nov16111714@passy.ilog.fr>
Lines: 22
Sender: news@ilog.fr
Nntp-Posting-Host: passy
Organization: Ilog SA, Gentilly, France
References: <3abiei$33o@Radon.Stanford.EDU>
Date: 16 Nov 1994 10:17:14 GMT


In article <3abiei$33o@Radon.Stanford.EDU> geddis@CS.Stanford.EDU (Don Geddis) writes:

   Is there a Common Lisp function/special form to do the analogy I suggest?
   Assume I have a list of "bindings":
	   (defparameter *bindings* '((*x* 1) (*y* 2)))

progv, CLtL p 152

(defmacro my-progv (bindings &body body)
  `(progv ,(mapcar #'car bindings) ,(mapcar #'cadr bindings) ,@body))

-- Harley Davis
-- 

------------------------------------------------------------------------------
Harley Davis                            net: davis@ilog.fr
ILOG S.A.                               tel: +33 1 46 63 66 66
2 Avenue Gallini, BP 85                fax: +33 1 46 63 15 82
94253 Gentilly Cedex, France            url: http://www.ilog.fr/

           Ilog Talk information: info@ilog.com
