Changeset 14741

Timestamp:

Apr 27, 2011, 4:06:55 PM (14 years ago)

Author:

Gary Byers

Message:

Define/export DPAREF, SPAREF.

Location:

trunk/source/lib

Files:

• ccl-export-syms.lisp (modified) (1 diff)
• macros.lisp (modified) (1 diff)

trunk/source/lib/ccl-export-syms.lisp

@@ -400 +400 @@
      rref
      paref
+     dparef
+     sparef
      with-cstrs
      with-encoded-cstrs

trunk/source/lib/macros.lisp

@@ -3062 +3062 @@
     (%foreign-array-access-form  pointer (%foreign-type-or-record type-name) index)))
 
+;;; Shorter versions for paref of :double, :float arrays
+(defmacro dparef (pointer index)
+  `(paref ,pointer :double ,index))
+
+(defmacro sparef (pointer index)
+  `(paref ,pointer :float ,index))
+
 (defmacro rref (pointer accessor &key (storage :pointer storage-p))
   (when storage-p