[add] ecl: add a lispifier for long double

digikar99 · May 8, 2024 · c352b49 · c352b49
1 parent 5a87721
commit c352b49
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/lispifiers.lisp b/src/lispifiers.lisp
@@ -129,6 +129,12 @@
   (def "numpy.int16"  :int16)
   (def "numpy.int8"   :int8))
 
+#+ecl
+(define-lispifier "numpy.longdouble" (o)
+  (let ((o (ffi:make-pointer (pointer-address (inc-pointer o 16))
+                             :long-double)))
+    (ffi:deref-pointer o :long-double)))
+
 (defun array-element-type-num-bytes (array)
   (eswitch ((array-element-type array) :test #'type=)
     ('single-float 4)