From c352b499379cd4724cd70bc1224f3df593edf941 Mon Sep 17 00:00:00 2001
From: digikar <shubhamkarayare@gmail.com>
Date: Wed, 8 May 2024 09:01:29 +0530
Subject: [PATCH] [add] ecl: add a lispifier for long double

---
 src/lispifiers.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/lispifiers.lisp b/src/lispifiers.lisp
index 7547d64..83b19a2 100644
--- 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)