Groups | Search | Server Info | Login | Register

Groups > comp.lang.lisp > #60729

Re: the unsigned right shift operator in CL >>>

Show all headers | View raw

 Ar an séú lá déag de mí Deireadh Fómhair, scríobh Alan Bawden: 

 > Aidan Kehoe <kehoea@parhasard.net> writes:
 > 
 >     Ar an cúigiú lá déag de mí Deireadh Fómhair, scríobh Madhu: 
 > 
 >    Something like:
 > 
 >    (defun fixed-width-ash (width value count)
 >      (ash (logand value (lognot (ash -1 width))) count))

To comment on my own code; this won’t do the desired fixed-width treatment of
COUNT is positive, the logand would need to be done on the result of the #'ash.
But the discussion was about implementing >>>, where COUNT is negative.

 >    Construct an integer of the desired width that is all 1s, logand it
 >    with VALUE, then shift by COUNT.
 > 
 > Your compiler will probably recognize that this is equivalent to:
 > 
 >    (defun fixed-width-ash (width value count)
 >      (ash (logandc2 value (ash -1 width)) count))
 > 
 > But I would write it that way in the first place because I like to
 > remember that the PDP-10 had an ANDCM instruction...

I don’t expect to remember any other PDP-10 instructions, but I might remember
this one. Thanks!

-- 
‘As I sat looking up at the Guinness ad, I could never figure out /
How your man stayed up on the surfboard after fourteen pints of stout’
(C. Moore)

Back to comp.lang.lisp | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

the unsigned right shift operator in CL >>> Madhu <enometh@meer.net> - 2025-10-15 12:34 +0530
  Re: the unsigned right shift operator in CL >>> Aidan Kehoe <kehoea@parhasard.net> - 2025-10-16 19:04 +0100
    Re: the unsigned right shift operator in CL >>> Alan Bawden <alan@csail.mit.edu> - 2025-10-16 16:06 -0400
      Re: the unsigned right shift operator in CL >>> Aidan Kehoe <kehoea@parhasard.net> - 2025-10-16 21:55 +0100
        Re: the unsigned right shift operator in CL >>> Madhu <enometh@meer.net> - 2025-10-23 16:34 +0530
          Re: the unsigned right shift operator in CL >>> Alan Bawden <alan@csail.mit.edu> - 2025-10-24 02:29 -0400
            Re: the unsigned right shift operator in CL >>> Madhu <enometh@meer.net> - 2025-10-25 21:00 +0530
            Re: the unsigned right shift operator in CL >>> Kaz Kylheku <046-301-5902@kylheku.com> - 2026-03-12 18:00 +0000
              Re: the unsigned right shift operator in CL >>> Stefan Monnier <monnier@iro.umontreal.ca> - 2026-03-12 16:34 -0400
                Re: the unsigned right shift operator in CL >>> Kaz Kylheku <046-301-5902@kylheku.com> - 2026-03-16 20:14 +0000
  Re: the unsigned right shift operator in CL >>> Madhu <enometh@meer.net> - 2025-10-23 16:38 +0530

csiph-web