[bug #62707] fxbit-count

[anonymous]

URL:
  <https://savannah.gnu.org/bugs/?62707>

                 Summary: fxbit-count
                 Project: MIT/GNU Scheme
               Submitter: None
               Submitted: Tue 05 Jul 2022 09:13:30 AM UTC
                Category: microcode
                Severity: 3 - Normal
                Priority: 5 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
         Originator Name: Swedish Chef
        Originator Email: 
             Open/Closed: Open
         Discussion Lock: Any
                Keywords: 


    _______________________________________________________

Follow-up Comments:


-------------------------------------------------------
Date: Tue 05 Jul 2022 09:13:30 AM UTC By: Anonymous
;; strange microcode

((make-primitive-procedure 'fxbit-count) fx-greatest) ;Value: 57
((make-primitive-procedure 'fxbit-count) fx-least) ;Value: 7
((make-primitive-procedure 'fxbit-count) -1) ;Value: 64

;; srfi 143

(fxbit-count fx-greatest)               ;Value: 57
(fxbit-count fx-least)                  ;Value: 7
(fxbit-count -1)                        ;Value: 64

;; srfi 142/151

(bit-count fx-greatest)                 ;Value: 57
(bit-count fx-least)                    ;Value: 57
(bit-count -1)                          ;Value: 0









    _______________________________________________________

Reply to this item at:

  <https://savannah.gnu.org/bugs/?62707>

_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/