On 15 Feb 2008, at 15:25, Sven Van Caekenberghe wrote: > I commited your patch to CVS as : > > (:|double| (let ((*read-eval* nil) > (*read-default-float-format* 'double)) > (read-from-string seed))) Make that 'double-float ;-)