home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / lisp / mcl / 1618 < prev    next >
Encoding:
Internet Message Format  |  1992-11-18  |  1.3 KB
  1. Path: sparky!uunet!charon.amdahl.com!pacbell.com!sgiblab!zaphod.mps.ohio-state.edu!cs.utexas.edu!sun-barr!ames!data.nas.nasa.gov!taligent!apple!cambridge.apple.com!kab
  2. From: kab (Kim Barrett)
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Re: Making a lambda-expr more like a fn
  5. Message-ID: <9211181648.AA09391@cambridge.apple.com>
  6. Date: 18 Nov 92 16:48:34 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 28
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10.  
  11. > While reading the messages about turning lambda expressions
  12. > into functions, it seemed to me that the following might be reasonable...
  13. > 
  14. > (defmacro with-environment ((var) &body body &environment env)
  15. >     `(let ((,var ',env))
  16. >        ,@body))
  17. > 
  18. > In an artificial example..
  19. > 
  20. > (let ((x 0))
  21. >         (with-environment (env)
  22. >                 (setf counter-fn
  23. >                                                                                 
  24. (enclose '(lambda () (incf x)) env))))
  25. > 
  26. > However...
  27. > 
  28. > ? (let ((x 'non-nil-environment))
  29. >     (declare (ignore x))
  30. >     (with-environment (var) var))
  31. > #<BOGUS object @ #x5DF871>
  32. > ?
  33. > 
  34. > Does this work in any Lisp?
  35. > Should it?
  36.  
  37. Macro environments are specified to have dynamic extent.  See CLtL2, p.203, in 
  38. the paragraph beginning "X3J13 voted in March 1989 <117> ...".
  39.