Changeset 6176


Ignore:
Timestamp:
Apr 8, 2007, 2:54:52 AM (13 years ago)
Author:
gb
Message:

Operators of %SINGLE-FLOAT, %DOUBLE-FLOAT.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/nxenv.lisp

    r5530 r6176  
    408408     (require-s64 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
    409409     (require-u64 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
    410      (general-aref2 .  #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask)))))
     410     (general-aref2 .  #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
     411     (%single-float .  #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
     412     (%double-float . #. #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask)))))
    411413
    412414(defmacro %nx1-operator (sym)
Note: See TracChangeset for help on using the changeset viewer.