[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Issue: FUNCTION-COMPOSITION (Version 2)
- To: Kent M Pitman <KMP%STONY-BROOK.SCRC.Symbolics.COM@multimax>
- Subject: Re: Issue: FUNCTION-COMPOSITION (Version 2)
- From: Dan L. Pierson <pierson%mist@multimax.ARPA>
- Date: Wed, 05 Oct 88 15:08:52 EDT
- Cc: CL-Cleanup%SAIL.Stanford.EDU@multimax
- In-reply-to: Your message of Wed, 05 Oct 88 14:00:00 -0400. <881005140026.3.KMP@BOBOLINK.SCRC.Symbolics.COM>
(MAPCAR #'(LAMBDA (X) (AND (NUMBERP X) (ZEROP X))) '(3 A 0.0))
==
(MAPCAR (CONJOIN #'NUMBERP #'ZEROP) '(3 A 0.0))
=> (NIL NIL T)
(FIND-IF #'(LAMBDA (X) (AND (INTEGERP X) (SYMBOLP X))) '(3.0 A 4))
==
(FIND-IF (DISJOIN #'INTEGERP #'SYMBOLP) '(3.0 A 4))
=> A
Shouldn't that be #'(LAMBDA ... (OR ...))?
Pitman and van Roggen support the proposal.
You can add me as a supporter.