Re: GETF Speedup?

This probably also explains why ASSOC is slower unless you specify :TEST 'EQ.

-- 
Martin Simmons
LispWorks Ltd
http://www.lispworks.com/



>>>>> On Mon, 13 Oct 2025 08:49:12 +0100, Tim Bradshaw (as tfb at cley dot com) said:
> 
> Ouch: you're right.  That makes my code technically unsafe.  And getf really is useful only for properties which are symbols
> 
> > On 13 Oct 2025, at 08:32, Devon Sean McCullough (as LispWorks at jovi dot net) <[email protected]> wrote:
> > 
> > On 2025-10-12 11:07, Tim Bradshaw (as tfb at cley dot com) wrote:
> >> Note that getf is very limited: it can only use eql tests.
> > 
> > GET, GETF, etc. use only EQ, never EQL.
> > 
> >        Peace
> >            --Devon
> > 
> > P.S.  In CCL or SBCL
> > (defvar k (1+ most-positive-fixnum))
> > (defvar k* (1+ most-positive-fixnum))
> > (let ((x '()))
> >  (setf (getf x k) 'cd)
> >  (list (getf x k) (getf x k*) (eq k k*) (eql k k*)))
> > => (CD NIL NIL T)
> > 
> > _______________________________________________
> > Lisp Hug - the mailing list for LispWorks users
> > [email protected]
> > http://www.lispworks.com/support/lisp-hug.html
> 
> _______________________________________________
> Lisp Hug - the mailing list for LispWorks users
> [email protected]
> http://www.lispworks.com/support/lisp-hug.html
> 

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
[email protected]
http://www.lispworks.com/support/lisp-hug.html