Received: by 10.68.196.130 with SMTP id im2mr248413pbc.3.1326296713096;
        Wed, 11 Jan 2012 07:45:13 -0800 (PST)
Path: lh20ni167770pbb.0!nntp.google.com!news2.google.com!postnews.google.com!p42g2000vbt.googlegroups.com!not-for-mail
From: Matus Kmit <simply.nit...@gmail.com>
Newsgroups: comp.lang.lisp
Subject: Odd length keyword list
Date: Wed, 11 Jan 2012 07:45:12 -0800 (PST)
Organization: http://groups.google.com
Lines: 22
Message-ID: <f374b2d4-6ed0-4eb8-976e-c856429e9529@p42g2000vbt.googlegroups.com>
NNTP-Posting-Host: 193.17.194.226
Mime-Version: 1.0
X-Trace: posting.google.com 1326296712 6629 127.0.0.1 (11 Jan 2012 15:45:12 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Wed, 11 Jan 2012 15:45:12 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: p42g2000vbt.googlegroups.com; posting-host=193.17.194.226; posting-account=FAR37woAAACR16CNgT-Q8XKu1Ntqq0pg
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.7
 (KHTML, like Gecko) Chrome/16.0.912.75 Safari/535.7,gzip(gfe)
Content-Type: text/plain; charset=ISO-8859-1

Hi

I have this macro:

(defmacro format-time (one &optional two &key format-fn)
  (let ((one* (eval one))
	(two* (eval two)))
    (if two*
	`(,format-fn t "(~a:~a - ~a:~a)" ,@one* ,@two*)
	`(,format-fn t "~a:~a" ,@one*))))

If I try to macroexpand it with (macroexpand '(format-time (normalize-
consed-time '(1 . 2)) :format-fn format)) I am getting the following
error:

Odd length keyword list: (FORMAT)
   [Condition of type CCL::SIMPLE-PROGRAM-ERROR]

What is wrong?

Thanks
Matus