Re: color definitions

• To: george@hsvaic.hv.boeing.com
• Subject: Re: color definitions
• From: "Peter Norvig - Sun Microsystems Labs Inc." <pnorvig@norvig.east.sun.com>
• Date: Wed, 9 Mar 1994 09:25:20 +0500
• Cc: clim@BBN.COM
• Content-Length: 559

Oops - one of my local macros slipped into my last post:

(defmacro with-collection ((&optional (fn 'collect)) &body body)
  "Within the body each call to (collect x) will collect x in a list.
  The FN argument defaults to COLLECT, but you can rename it if you want.
  Example: (with-collection () (collect 1) (collect (+ 1 1))) => (1 2)"
  ;; Note: in Lucid, nreverse at end is faster than tconc structures.
  (let ((var (gensym "COLLECT")))
    `(let ((,var nil))
      (flet ((,fn (x) (push x ,var)))
	(declare (inline ,fn))
	,@body
	(nreverse ,var)))))

• Prev: Motif look for "menu-choose-command-from-command-table" ?
• Next: shared input buffers ...
• Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
• Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)