Path: g2news2.google.com!news1.google.com!news.glorb.com!news2.glorb.com!dotsrc.org!filter.dotsrc.org!news.dotsrc.org!not-for-mail
From: "Captain Obvious" <udode...@users.sourceforge.net>
Newsgroups: comp.lang.lisp
References: <il1esk01q62@enews5.newsguy.com>
Subject: Re: PCL trash 2
Date: Mon, 7 Mar 2011 10:13:11 +0200
MIME-Version: 1.0
Content-Type: text/plain;
	format=flowed;
	charset="iso-8859-1";
	reply-type=original
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.3264
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3264
X-Comment-To: WJ
FL-Build: Fidolook 2006 Xmas Edition (HL) 6.0.2800.95 - 24/12/2006 14:46:33
Lines: 20
Message-ID: <4d74939b$0$23756$14726298@news.sunsite.dk>
Organization: SunSITE.dk - Supporting Open source
NNTP-Posting-Host: 195.225.156.132
X-Trace: news.sunsite.dk DXC=>4aiee?aYE8\:k25BLkF8;YSB=nbEKnk;3LlDMZ4XbV98KiOXb5<Ig3f5nKDcjD?X7aLJ0dm;[g74U44d?Oa?>U2OeIdjMXlGN>oU9Z1d5@TT?
X-Complaints-To: staff@sunsite.dk

 W> Bigloo will need these preliminaries:

Dude, do you think there's anybody who won't be able to see through your 
bullshit?
Obvious troll is obvious.

 W> (module example (library srfi1)) ; List functions.
 W> (define (curry f . args)
 W>   (lambda x (apply f (append args x))))
 W> (define (rcurry f . last-args)
 W>   (lambda x (apply f (append x last-args))))
 W> (define (cap f g) (lambda xs (f (apply g xs))))

Believe me or not, but you can define curry and other stuff in CL as well.
Moreover, you could use one of libraries which do it for you.

 W> (mapcar #'(lambda (x) (* 2 x)) (list 1 2 3)) ==> (2 4 6)

#' is not necessary here because lambda is a macro.