home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / lisp / 3390 < prev    next >
Encoding:
Text File  |  1993-01-28  |  1018 b   |  38 lines
  1. Newsgroups: comp.lang.lisp
  2. Path: sparky!uunet!stanford.edu!lucid.com!karoshi!fy
  3. From: fy@lucid.com (Frank Yellin)
  4. Subject: Re: Need help with macro writing
  5. In-Reply-To: schneide@divsun.unige.ch's message of Tue, 26 Jan 1993 21:50:13 GMT
  6. Message-ID: <FY.93Jan26161803@hardwick.lucid.com>
  7. Sender: usenet@lucid.com
  8. Organization: Lucid, Inc., Menlo Park, CA
  9. References: <1993Jan26.215013.12107@news.unige.ch>
  10. Date: 26 Jan 93 16:18:03
  11. Lines: 25
  12.  
  13.  
  14. In article <1993Jan26.215013.12107@news.unige.ch> schneide@divsun.unige.ch
  15. (SCHNEIDER daniel) writes: 
  16.  
  17. >
  18. >   Hi folks,
  19. >
  20. >   I am a bit stuck with macro writing. I'd like to translate this:
  21. >
  22. >   (with-output-as-presentation1 (:stream t :type tt :object ttt)
  23. >         (print object) (bla bla))
  24. >
  25. >   into this:
  26. >
  27. >   (WITH-OUTPUT-AS-PRESENTATION (T TT TTT) (PRINT OBJECT) (BLA BLA))
  28.  
  29. How about
  30.  
  31. (defmacro with-output-as-presentation1 ((&key stream type object) &body body)
  32.    `(with-output-as-presentation (,stream ,type ,object) ,@body))
  33.  
  34.  
  35. -- Frank Yellin
  36.    fy@lucid.com
  37.  
  38.