Changeset 8577


Ignore:
Timestamp:
Feb 25, 2008, 11:00:42 AM (11 years ago)
Author:
gb
Message:

natural-right-shift by constant: pin constant to word size.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx1.lisp

    r8515 r8577  
    20892089                           (nx1-form num)
    20902090                           (make-acode (%nx1-operator fixnum)
    2091                                        (- amt)))
     2091                                       (min (1- max) (- amt))))
    20922092               (nx1-treat-as-call call))))
    20932093          ((and (fixnump amt)
Note: See TracChangeset for help on using the changeset viewer.