Changeset 14947


Ignore:
Timestamp:
Aug 21, 2011, 6:48:05 AM (9 years ago)
Author:
gb
Message:

Define %FIXNUM-REF-DOUBLE-FLOAT and %FIXNUM-SET-DOUBLE-FLOAT at runtime
via %EVAL-REDEF.
Make %FIXNUM-SET-DOUBLE-FLOAT the setf inverse of %FIXNUM-REF-DOUBLE-FLOAT.

Location:
trunk/source/lib
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/level-2.lisp

    r13067 r14947  
    420420               (%set-single-float p o new))
    421421  (%eval-redef assq (item list))
     422  (%eval-redef %fixnum-ref-double-float (base &optional (index 0))
     423               (%fixnum-ref-double-float base index))
     424  (%eval-redef %fixnum-set-double-float (base index &optional (new (prog1 index (setq index 0))))
     425               (%fixnum-set-double-float base index new))
    422426)
    423427
  • trunk/source/lib/setf.lisp

    r14258 r14947  
    463463
    464464(defsetf %fixnum-ref %fixnum-set)
     465(defsetf %fixnum-ref-double-float %fixnum-set-double-float)
    465466
    466467(define-setf-method the (typespec expr &environment env)
Note: See TracChangeset for help on using the changeset viewer.