I am the world's biggest plist fan#

Tue, 28 Feb 2006 22:12:29 +0000

I am the world's biggest plist fan. Possibly. Anyway, as part of the same tidying up process that led to the release of trivial-sockets 0.3, also new to the world but not to me is net-telent-date 0.42, which has the additional function decode-universal-time/plist. Just because I can't always remember the order of the values in a decoded universal-time (and sometimes you just want the month and year anyway).

(let ((dt (net.telent.date:decode-universal-time/plist (get-universal-time))))
  (format nil "~2,'0D:~2,'0D:~2,'0D ~D/~D/~D"
	  (ref dt :hour) (ref dt :minute) (ref dt :second)
	  (ref dt :year) (ref dt :month) (ref dt :day)))
=> "22:19:16 2006/2/28"

[ Please see also my previous apology for the name of this package ]