Index: /trunk/source/lib/ccl-export-syms.lisp
===================================================================
--- /trunk/source/lib/ccl-export-syms.lisp	(revision 14740)
+++ /trunk/source/lib/ccl-export-syms.lisp	(revision 14741)
@@ -400,4 +400,6 @@
      rref
      paref
+     dparef
+     sparef
      with-cstrs
      with-encoded-cstrs
Index: /trunk/source/lib/macros.lisp
===================================================================
--- /trunk/source/lib/macros.lisp	(revision 14740)
+++ /trunk/source/lib/macros.lisp	(revision 14741)
@@ -3062,4 +3062,11 @@
     (%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