Changeset 14741


Ignore:
Timestamp:
Apr 27, 2011, 11:06:55 PM (9 years ago)
Author:
gb
Message:

Define/export DPAREF, SPAREF.

Location:
trunk/source/lib
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/ccl-export-syms.lisp

    r14359 r14741  
    400400     rref
    401401     paref
     402     dparef
     403     sparef
    402404     with-cstrs
    403405     with-encoded-cstrs
  • trunk/source/lib/macros.lisp

    r14519 r14741  
    30623062    (%foreign-array-access-form  pointer (%foreign-type-or-record type-name) index)))
    30633063
     3064;;; Shorter versions for paref of :double, :float arrays
     3065(defmacro dparef (pointer index)
     3066  `(paref ,pointer :double ,index))
     3067
     3068(defmacro sparef (pointer index)
     3069  `(paref ,pointer :float ,index))
     3070
    30643071(defmacro rref (pointer accessor &key (storage :pointer storage-p))
    30653072  (when storage-p
Note: See TracChangeset for help on using the changeset viewer.