Get current month

Hi all,

Sorry but I can't get current month .
How can I do it?

Thanks,
bye

Stiv wrote:Hi all,

Sorry but I can't get current month .
How can I do it?

Thanks,
bye

I'm thinking you're going to want at least two of these functions:

multiple-value-bind
decode-universal-time
get-universal-time

Look them up if you don't know what they are.

Thanks very much,

I've done so:

(multiple-value-bind (s min b gg m a b2 b3 b4) 
     (decode-universal-time (get-universal-time))
   (list m))

but it generates many style-warning, how can I improve it?

Thanks,

Bye

Try this:

(multiple-value-bind (s min b gg m a b2 b3 b4) 
     (decode-universal-time (get-universal-time))
   (declare (ignore s min b gg a b2 b3 b4))
   (list m))

Thanks, it works.

A 1-liner:

(fifth (multiple-value-list (decode-universal-time (get-universal-time))))

Another 1-liner =)

(nth-value 4 (decode-universal-time (get-universal-time)))

Thanks very much