From ...
Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!colt.net!newspeer.clara.net!news.clara.net!skynet.be!skynet.be!ossa.telenet-ops.be!nmaster.kpnqwest.net!nreader2.kpnqwest.net.POSTED!not-for-mail
Newsgroups: comp.lang.lisp
Subject: Re: CMUCL18d on Alpha?
References: <3CBA8472.48774F5C@ilt.fhg.de> <wzin0w5nxgy.fsf@melbourne.laas.fr> <3CBBE1E6.93F85F44@ilt.fhg.de> <3CBBF4AC.39CD4A4C@kfunigraz.ac.at> <3CBE88D1.6A17BCE1@ilt.fhg.de> <neBv8.33860$%s3.13041432@typhoon.ne.ipsvc.net> <3CBFBF03.31766207@ilt.fhg.de> <l5Xv8.34291$%s3.13937798@typhoon.ne.ipsvc.net> <87g01r384r.fsf@nkapi.internal> <3228232604375936@naggum.net> <87k7r31mn5.fsf@nkapi.internal> <3228242118692057@naggum.net> <4nlmbfkgu2.fsf@rtp.ericsson.se> <0%Vw8.38252$%s3.16267967@typhoon.ne.ipsvc.net> <4n8z7fk7cz.fsf@rtp.ericsson.se> <TVYw8.38289$%s3.16387555@typhoon.ne.ipsvc.net> <4n662iijxw.fsf@rtp.ericsson.se>
Mail-Copies-To: never
From: Erik Naggum <erik@naggum.net>
Message-ID: <3228572189632087@naggum.net>
Organization: Naggum Software, Oslo, Norway
Lines: 22
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Date: Tue, 23 Apr 2002 17:36:33 GMT
X-Complaints-To: newsmaster@KPNQwest.no
X-Trace: nreader2.kpnqwest.net 1019583393 193.71.199.50 (Tue, 23 Apr 2002 19:36:33 MET DST)
NNTP-Posting-Date: Tue, 23 Apr 2002 19:36:33 MET DST
Xref: archiver1.google.com comp.lang.lisp:32225

* Raymond Toy
| I do think it is a small problem in lisp where 
| 
|    (= (1+ double-float-epsilon) 1)
| 
| may or may not be T depending on whether there was a store between the
| comparison or not.

  Hm.  Neither Allegro CL, CMUCL, or CLISP manage to distinguish 1d0 from
  (1+ double-float-epsilon), but with an identical epsilon, LispWorks does.

  (scale-float double-float-epsilon (float-precision double-float-epsilon))
  should in theory be identical to (1+ double-float-epsilon), but couriously,
  (1- (scale-float ...)) yields a value twice as big as the epsilon.  This
  is really weird."
  
///
-- 
  In a fight against something, the fight has value, victory has none.
  In a fight for something, the fight is a loss, victory merely relief.

  Post with compassion: http://home.chello.no/~xyzzy/kitten.jpg