From ...
Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!deine.net!hamster.europeonline.net!newsfeed.europeonline.net!nslave.kpnqwest.net!nloc2.kpnqwest.net!nloc.kpnqwest.net!nmaster.kpnqwest.net!nreader1.kpnqwest.net.POSTED!not-for-mail
Newsgroups: comp.lang.lisp
Subject: Re: data hygiene [Re: Why is Scheme not a Lisp?]
References: <871yej1v0h.fsf@becket.becket.net> <3225566321428508@naggum.net> <3C97C8EA.38FFD47A@motorola.com> <3225571208798099@naggum.net> <3C9806B8.B239D290@interaccess.com> <3225694232096978@naggum.net> <3C99D8D6.CA34A3D6@interaccess.com> <3225739029050571@naggum.net> <sfwk7s5o7gy.fsf@shell01.TheWorld.com> <gat-2103021907160001@192.168.1.50> <41yedf67z.fsf@beta.franz.com> <gat-2103022339250001@192.168.1.50> <4sn6tdlln.fsf@beta.franz.com> <3225784077592910@naggum.net> <uvgbkwv7z.fsf@globalgraphics.com> < <sfwn0wwinqm.fsf@shell01.TheWorld.com>
Mail-Copies-To: never
From: Erik Naggum <erik@naggum.net>
Message-ID: <3226090781415284@naggum.net>
Organization: Naggum Software, Oslo, Norway
Lines: 34
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Date: Tue, 26 Mar 2002 00:19:27 GMT
X-Complaints-To: newsmaster@KPNQwest.no
X-Trace: nreader1.kpnqwest.net 1017101967 193.71.199.50 (Tue, 26 Mar 2002 01:19:27 MET)
NNTP-Posting-Date: Tue, 26 Mar 2002 01:19:27 MET
Xref: archiver1.google.com comp.lang.lisp:30108

* Kent M Pitman <pitman@world.std.com>
| The problem is probably less that it's not doing an optimization and more
| that both the default optimize settings vary among implementations, and
| also that the _meanings_ of the optimize settings are not standard...

  The code I compiled looked like this:

(in-package :cl-user)

(declaim (optimize (safety 0) (speed 3)))

(defun plist-get-expand (plist key)
  (tagbody
   loop
    (cond ((eq plist nil) (go end))
	  ((eq key (car plist)) (go end)))
    (setq plist (cddr plist))
    (go loop)
   end))

  The declaim caused all other implementations to compile to the fastest
  inline code they could.  LispWorks still makes calls to cddr-1arg.

| I'm a little leary of using trial editions as proof of what a commercial
| implementation is capable of, btw.

  Well, I think that if anyone purposefully crippled the compiler in the
  trial edition, they would seriously have hurt their possibility of
  getting new customers.

///
-- 
  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.