Re: CLtL2 `(lambda ...)

Article View: fj.lang.lisp

Article #453

#453

From: Kageyama Bonze Tatsuro
Date: Wed, 20 May 1992 11:06

31 lines
1947 bytes

$B$+$2$d$^!w(BNEC$B$H?=$7$^$9!#(B

In article <KURODA.92May19140430@dwarf.msi.co.jp> kuroda@msi.co.jp (Hisao Kuroda) writes:
 |	(setf (value-changed-callback (class-search-text doc))
 |	      `(lambda (ignore)
 |			 (xtk:with-immediate-update-enabled
 |			  (when (value ',(class-filter-button doc))
 |			    (setf (value ',(class-filter-button doc)) nil)
 |			    (refresh-class-list ',doc :new-mode nil)))))
 |$B$N$h$&$K$+$1$k$H$3$m$r!"(B
 |	(setf (value-changed-callback (class-search-text doc))
 |	      (eval `#'(lambda (ignore)
 |		  $B!#!#!#(B)))

$BL$$@$K<ALd$N0U?^$,$o$+$C$F$J$$$;$$$+!"2?8N(B

(let ((filter-button (class-filter-button doc)))
  (setf (value-changed-callback (class-search-text doc))
	#'(lambda (ignore)
	    (xtk:with-immediate-update-enabled
		(when (value filter-button)
		  (setf (value filter-button) nil)
		  (refresh-class-list doc :new-mode nil))))))

$B$GBLL\$J$N$+H=$j$^$;$s!#(B

--
$B$?$D(B@NEC					$BF|K\EE5$3t<02q<R(B
$B7J;3C$O:(B					$B#C!u#C6&DL%=%U%H%&%'%"3+H/K\It(B
(kageyama@ccs.mt.nec.co.jp)			$B4D6-%7%9(B$B%F%`3+H/It(B

Technical Details

Message-ID: <KAGEYAMA.92May20110603@sple151.ccs.mt.nec.co.jp>

Path: arc1-ca.pugleaf.net!sparky!uunet!wupost!think.com!mips!nec-gw!netkeeper!necspl!ccsnews!ccsnews!kageyama

References:

<KURODA.92May16173740@dwarf.msi.co.jp> <HONDA.92May16213707@unicorn.csl.sony.co.jp> <KURODA.92May19140430@dwarf.msi.co.jp>

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: 1421c0,7b3e23a0f31d44ad
X-Google-Attributes: gid1421c0,public
X-Google-ArrivalTime: 1992-05-19 18:28:04 PST
Newsgroups: fj.lang.lisp
Path: arc1-ca.pugleaf.net!sparky!uunet!wupost!think.com!mips!nec-gw!netkeeper!necspl!ccsnews!ccsnews!kageyama
From: kageyama@ccs.mt.nec.co.jp (Kageyama Bonze Tatsuro)
Subject: Re: CLtL2 `(lambda ...)
Sender: news@ccsnews.ccs.mt.nec.co.jp ( News server)
Message-ID: <KAGEYAMA.92May20110603@sple151.ccs.mt.nec.co.jp>
In-Reply-To: kuroda@msi.co.jp's message of 19 May 92 05:04:30 GMT
Date: Wed, 20 May 1992 11:06:03 GMT
Distribution: fj
References: <KURODA.92May16173740@dwarf.msi.co.jp>
 <HONDA.92May16213707@unicorn.csl.sony.co.jp>
 <KURODA.92May19140430@dwarf.msi.co.jp>
Organization: NEC C&C Common Software Dev. Lab., Tokyo, Japan.
Lines: 31

Reply to Parent Message