From 9b6ea2a38ed816ae3c2f498244560988b7f7a383 Mon Sep 17 00:00:00 2001 From: Yarin Heffes Date: Wed, 18 Jun 2025 10:29:21 -0700 Subject: [PATCH] return pointer values which may have been mutated by foreign funcalls --- src/bindings/lapack-cffi.lisp | 4752 ++++++++++------- src/extensions/lapack/lapack-templates.lisp | 24 +- .../generate-interface.lisp | 27 +- 3 files changed, 2718 insertions(+), 2085 deletions(-) diff --git a/src/bindings/lapack-cffi.lisp b/src/bindings/lapack-cffi.lisp index d6559110..e592d944 100644 --- a/src/bindings/lapack-cffi.lisp +++ b/src/bindings/lapack-cffi.lisp @@ -1,4 +1,4 @@ -;;;; Generated on 7/30/2024 at 20:38:42 (UTC-8). +;;;; Generated on 6/18/2025 at 10:15:16 (UTC-8). (COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY @@ -100,24 +100,29 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF1775 ':INT32) (N-REF1776 ':INT32) - (LDA-REF1778 ':INT32) (SDIM-REF1779 ':INT32) - (LDVS-REF1782 ':INT32) (LWORK-REF1784 ':INT32) - (INFO-REF1787 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF1775 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1776 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1778 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1779 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF1782 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1784 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1787 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1777 A) (W-REF1780 W) - (VS-REF1781 VS) (WORK-REF1783 WORK) - (RWORK-REF1785 RWORK) - (BWORK-REF1786 BWORK)) - (%%CGEES JOBVS SORT SELECT-REF1775 N-REF1776 A-REF1777 LDA-REF1778 - SDIM-REF1779 W-REF1780 VS-REF1781 LDVS-REF1782 WORK-REF1783 - LWORK-REF1784 RWORK-REF1785 BWORK-REF1786 INFO-REF1787)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF3 ':INT32) (N-REF4 ':INT32) + (LDA-REF6 ':INT32) (SDIM-REF7 ':INT32) + (LDVS-REF10 ':INT32) (LWORK-REF12 ':INT32) + (INFO-REF15 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF3 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF7 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF10 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5 A) (W-REF8 W) (VS-REF9 VS) + (WORK-REF11 WORK) + (RWORK-REF13 RWORK) + (BWORK-REF14 BWORK)) + (COMMON-LISP:VALUES + (%%CGEES JOBVS SORT SELECT-REF3 N-REF4 A-REF5 LDA-REF6 SDIM-REF7 W-REF8 + VS-REF9 LDVS-REF10 WORK-REF11 LWORK-REF12 RWORK-REF13 BWORK-REF14 + INFO-REF15) + (CFFI:MEM-REF SELECT-REF3 ':INT32) (CFFI:MEM-REF N-REF4 ':INT32) + (CFFI:MEM-REF LDA-REF6 ':INT32) (CFFI:MEM-REF SDIM-REF7 ':INT32) + (CFFI:MEM-REF LDVS-REF10 ':INT32) (CFFI:MEM-REF LWORK-REF12 ':INT32) + (CFFI:MEM-REF INFO-REF15 ':INT32))))) (CFFI:DEFCFUN ("cgeesx_" %%CGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -183,28 +188,33 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF1790 ':INT32) (N-REF1792 ':INT32) - (LDA-REF1794 ':INT32) (SDIM-REF1795 ':INT32) - (LDVS-REF1798 ':INT32) (RCONDE-REF1799 ':FLOAT) - (RCONDV-REF1800 ':FLOAT) (LWORK-REF1802 ':INT32) - (INFO-REF1805 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF1790 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1792 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1794 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1795 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF1798 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF1799 :FLOAT) RCONDE) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF1800 :FLOAT) RCONDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1802 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1805 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1793 A) (W-REF1796 W) - (VS-REF1797 VS) (WORK-REF1801 WORK) - (RWORK-REF1803 RWORK) - (BWORK-REF1804 BWORK)) - (%%CGEESX JOBVS SORT SELECT-REF1790 SENSE N-REF1792 A-REF1793 LDA-REF1794 - SDIM-REF1795 W-REF1796 VS-REF1797 LDVS-REF1798 RCONDE-REF1799 - RCONDV-REF1800 WORK-REF1801 LWORK-REF1802 RWORK-REF1803 BWORK-REF1804 - INFO-REF1805)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF18 ':INT32) (N-REF20 ':INT32) + (LDA-REF22 ':INT32) (SDIM-REF23 ':INT32) + (LDVS-REF26 ':INT32) (RCONDE-REF27 ':FLOAT) + (RCONDV-REF28 ':FLOAT) (LWORK-REF30 ':INT32) + (INFO-REF33 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF18 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF23 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF26 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF27 :FLOAT) RCONDE) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF28 :FLOAT) RCONDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF30 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF33 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21 A) (W-REF24 W) + (VS-REF25 VS) (WORK-REF29 WORK) + (RWORK-REF31 RWORK) + (BWORK-REF32 BWORK)) + (COMMON-LISP:VALUES + (%%CGEESX JOBVS SORT SELECT-REF18 SENSE N-REF20 A-REF21 LDA-REF22 + SDIM-REF23 W-REF24 VS-REF25 LDVS-REF26 RCONDE-REF27 RCONDV-REF28 + WORK-REF29 LWORK-REF30 RWORK-REF31 BWORK-REF32 INFO-REF33) + (CFFI:MEM-REF SELECT-REF18 ':INT32) (CFFI:MEM-REF N-REF20 ':INT32) + (CFFI:MEM-REF LDA-REF22 ':INT32) (CFFI:MEM-REF SDIM-REF23 ':INT32) + (CFFI:MEM-REF LDVS-REF26 ':INT32) (CFFI:MEM-REF RCONDE-REF27 ':FLOAT) + (CFFI:MEM-REF RCONDV-REF28 ':FLOAT) (CFFI:MEM-REF LWORK-REF30 ':INT32) + (CFFI:MEM-REF INFO-REF33 ':INT32))))) (CFFI:DEFCFUN ("cgeev_" %%CGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -263,22 +273,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1808 ':INT32) (LDA-REF1810 ':INT32) - (LDVL-REF1813 ':INT32) (LDVR-REF1815 ':INT32) - (LWORK-REF1817 ':INT32) (INFO-REF1819 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1808 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1810 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1813 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1815 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1817 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1819 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1809 A) (W-REF1811 W) - (VL-REF1812 VL) (VR-REF1814 VR) - (WORK-REF1816 WORK) - (RWORK-REF1818 RWORK)) - (%%CGEEV JOBVL JOBVR N-REF1808 A-REF1809 LDA-REF1810 W-REF1811 VL-REF1812 - LDVL-REF1813 VR-REF1814 LDVR-REF1815 WORK-REF1816 LWORK-REF1817 - RWORK-REF1818 INFO-REF1819)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF36 ':INT32) (LDA-REF38 ':INT32) + (LDVL-REF41 ':INT32) (LDVR-REF43 ':INT32) + (LWORK-REF45 ':INT32) (INFO-REF47 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF36 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF38 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF41 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF43 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF45 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF47 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF37 A) (W-REF39 W) + (VL-REF40 VL) (VR-REF42 VR) + (WORK-REF44 WORK) + (RWORK-REF46 RWORK)) + (COMMON-LISP:VALUES + (%%CGEEV JOBVL JOBVR N-REF36 A-REF37 LDA-REF38 W-REF39 VL-REF40 + LDVL-REF41 VR-REF42 LDVR-REF43 WORK-REF44 LWORK-REF45 RWORK-REF46 + INFO-REF47) + (CFFI:MEM-REF N-REF36 ':INT32) (CFFI:MEM-REF LDA-REF38 ':INT32) + (CFFI:MEM-REF LDVL-REF41 ':INT32) (CFFI:MEM-REF LDVR-REF43 ':INT32) + (CFFI:MEM-REF LWORK-REF45 ':INT32) (CFFI:MEM-REF INFO-REF47 ':INT32))))) (CFFI:DEFCFUN ("cgeevx_" %%CGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -359,31 +373,37 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1824 ':INT32) (LDA-REF1826 ':INT32) - (LDVL-REF1829 ':INT32) (LDVR-REF1831 ':INT32) - (ILO-REF1832 ':INT32) (IHI-REF1833 ':INT32) - (ABNRM-REF1835 ':FLOAT) (LWORK-REF1839 ':INT32) - (INFO-REF1841 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1824 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1826 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1829 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1831 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1832 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1833 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF1835 :FLOAT) ABNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1839 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1841 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1825 A) (W-REF1827 W) - (VL-REF1828 VL) (VR-REF1830 VR) - (SCALE-REF1834 SCALE) - (RCONDE-REF1836 RCONDE) - (RCONDV-REF1837 RCONDV) - (WORK-REF1838 WORK) - (RWORK-REF1840 RWORK)) - (%%CGEEVX BALANC JOBVL JOBVR SENSE N-REF1824 A-REF1825 LDA-REF1826 - W-REF1827 VL-REF1828 LDVL-REF1829 VR-REF1830 LDVR-REF1831 ILO-REF1832 - IHI-REF1833 SCALE-REF1834 ABNRM-REF1835 RCONDE-REF1836 RCONDV-REF1837 - WORK-REF1838 LWORK-REF1839 RWORK-REF1840 INFO-REF1841)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF52 ':INT32) (LDA-REF54 ':INT32) + (LDVL-REF57 ':INT32) (LDVR-REF59 ':INT32) + (ILO-REF60 ':INT32) (IHI-REF61 ':INT32) + (ABNRM-REF63 ':FLOAT) (LWORK-REF67 ':INT32) + (INFO-REF69 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF52 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF54 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF57 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF59 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF60 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF61 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF63 :FLOAT) ABNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF67 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF69 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF53 A) (W-REF55 W) + (VL-REF56 VL) (VR-REF58 VR) + (SCALE-REF62 SCALE) + (RCONDE-REF64 RCONDE) + (RCONDV-REF65 RCONDV) + (WORK-REF66 WORK) + (RWORK-REF68 RWORK)) + (COMMON-LISP:VALUES + (%%CGEEVX BALANC JOBVL JOBVR SENSE N-REF52 A-REF53 LDA-REF54 W-REF55 + VL-REF56 LDVL-REF57 VR-REF58 LDVR-REF59 ILO-REF60 IHI-REF61 SCALE-REF62 + ABNRM-REF63 RCONDE-REF64 RCONDV-REF65 WORK-REF66 LWORK-REF67 + RWORK-REF68 INFO-REF69) + (CFFI:MEM-REF N-REF52 ':INT32) (CFFI:MEM-REF LDA-REF54 ':INT32) + (CFFI:MEM-REF LDVL-REF57 ':INT32) (CFFI:MEM-REF LDVR-REF59 ':INT32) + (CFFI:MEM-REF ILO-REF60 ':INT32) (CFFI:MEM-REF IHI-REF61 ':INT32) + (CFFI:MEM-REF ABNRM-REF63 ':FLOAT) (CFFI:MEM-REF LWORK-REF67 ':INT32) + (CFFI:MEM-REF INFO-REF69 ':INT32))))) (CFFI:DEFCFUN ("cgelqf_" %%CGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -418,18 +438,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1842 ':INT32) (N-REF1843 ':INT32) - (LDA-REF1845 ':INT32) (LWORK-REF1848 ':INT32) - (INFO-REF1849 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1842 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1843 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1845 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1848 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1849 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1844 A) (TAU-REF1846 TAU) - (WORK-REF1847 WORK)) - (%%CGELQF M-REF1842 N-REF1843 A-REF1844 LDA-REF1845 TAU-REF1846 - WORK-REF1847 LWORK-REF1848 INFO-REF1849)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF70 ':INT32) (N-REF71 ':INT32) + (LDA-REF73 ':INT32) (LWORK-REF76 ':INT32) + (INFO-REF77 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF70 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF71 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF73 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF76 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF77 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF72 A) (TAU-REF74 TAU) + (WORK-REF75 WORK)) + (COMMON-LISP:VALUES + (%%CGELQF M-REF70 N-REF71 A-REF72 LDA-REF73 TAU-REF74 WORK-REF75 + LWORK-REF76 INFO-REF77) + (CFFI:MEM-REF M-REF70 ':INT32) (CFFI:MEM-REF N-REF71 ':INT32) + (CFFI:MEM-REF LDA-REF73 ':INT32) (CFFI:MEM-REF LWORK-REF76 ':INT32) + (CFFI:MEM-REF INFO-REF77 ':INT32))))) (CFFI:DEFCFUN ("cgeqlf_" %%CGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -464,18 +488,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1850 ':INT32) (N-REF1851 ':INT32) - (LDA-REF1853 ':INT32) (LWORK-REF1856 ':INT32) - (INFO-REF1857 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1850 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1851 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1853 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1856 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1857 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1852 A) (TAU-REF1854 TAU) - (WORK-REF1855 WORK)) - (%%CGEQLF M-REF1850 N-REF1851 A-REF1852 LDA-REF1853 TAU-REF1854 - WORK-REF1855 LWORK-REF1856 INFO-REF1857)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF78 ':INT32) (N-REF79 ':INT32) + (LDA-REF81 ':INT32) (LWORK-REF84 ':INT32) + (INFO-REF85 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF78 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF79 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF81 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF84 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF85 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF80 A) (TAU-REF82 TAU) + (WORK-REF83 WORK)) + (COMMON-LISP:VALUES + (%%CGEQLF M-REF78 N-REF79 A-REF80 LDA-REF81 TAU-REF82 WORK-REF83 + LWORK-REF84 INFO-REF85) + (CFFI:MEM-REF M-REF78 ':INT32) (CFFI:MEM-REF N-REF79 ':INT32) + (CFFI:MEM-REF LDA-REF81 ':INT32) (CFFI:MEM-REF LWORK-REF84 ':INT32) + (CFFI:MEM-REF INFO-REF85 ':INT32))))) (CFFI:DEFCFUN ("cgeqrf_" %%CGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -510,18 +538,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1858 ':INT32) (N-REF1859 ':INT32) - (LDA-REF1861 ':INT32) (LWORK-REF1864 ':INT32) - (INFO-REF1865 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1858 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1859 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1861 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1864 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1865 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1860 A) (TAU-REF1862 TAU) - (WORK-REF1863 WORK)) - (%%CGEQRF M-REF1858 N-REF1859 A-REF1860 LDA-REF1861 TAU-REF1862 - WORK-REF1863 LWORK-REF1864 INFO-REF1865)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF86 ':INT32) (N-REF87 ':INT32) + (LDA-REF89 ':INT32) (LWORK-REF92 ':INT32) + (INFO-REF93 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF86 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF87 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF89 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF92 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF93 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF88 A) (TAU-REF90 TAU) + (WORK-REF91 WORK)) + (COMMON-LISP:VALUES + (%%CGEQRF M-REF86 N-REF87 A-REF88 LDA-REF89 TAU-REF90 WORK-REF91 + LWORK-REF92 INFO-REF93) + (CFFI:MEM-REF M-REF86 ':INT32) (CFFI:MEM-REF N-REF87 ':INT32) + (CFFI:MEM-REF LDA-REF89 ':INT32) (CFFI:MEM-REF LWORK-REF92 ':INT32) + (CFFI:MEM-REF INFO-REF93 ':INT32))))) (CFFI:DEFCFUN ("cgeqrfp_" %%CGEQRFP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -557,18 +589,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1866 ':INT32) (N-REF1867 ':INT32) - (LDA-REF1869 ':INT32) (LWORK-REF1872 ':INT32) - (INFO-REF1873 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1866 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1867 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1869 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1872 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1873 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1868 A) (TAU-REF1870 TAU) - (WORK-REF1871 WORK)) - (%%CGEQRFP M-REF1866 N-REF1867 A-REF1868 LDA-REF1869 TAU-REF1870 - WORK-REF1871 LWORK-REF1872 INFO-REF1873)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF94 ':INT32) (N-REF95 ':INT32) + (LDA-REF97 ':INT32) (LWORK-REF100 ':INT32) + (INFO-REF101 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF94 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF95 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF97 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF100 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF101 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF96 A) (TAU-REF98 TAU) + (WORK-REF99 WORK)) + (COMMON-LISP:VALUES + (%%CGEQRFP M-REF94 N-REF95 A-REF96 LDA-REF97 TAU-REF98 WORK-REF99 + LWORK-REF100 INFO-REF101) + (CFFI:MEM-REF M-REF94 ':INT32) (CFFI:MEM-REF N-REF95 ':INT32) + (CFFI:MEM-REF LDA-REF97 ':INT32) (CFFI:MEM-REF LWORK-REF100 ':INT32) + (CFFI:MEM-REF INFO-REF101 ':INT32))))) (CFFI:DEFCFUN ("cgerqf_" %%CGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -603,18 +639,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1874 ':INT32) (N-REF1875 ':INT32) - (LDA-REF1877 ':INT32) (LWORK-REF1880 ':INT32) - (INFO-REF1881 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1874 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1875 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1877 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1880 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1881 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1876 A) (TAU-REF1878 TAU) - (WORK-REF1879 WORK)) - (%%CGERQF M-REF1874 N-REF1875 A-REF1876 LDA-REF1877 TAU-REF1878 - WORK-REF1879 LWORK-REF1880 INFO-REF1881)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF102 ':INT32) (N-REF103 ':INT32) + (LDA-REF105 ':INT32) (LWORK-REF108 ':INT32) + (INFO-REF109 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF102 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF103 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF105 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF108 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF109 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF104 A) (TAU-REF106 TAU) + (WORK-REF107 WORK)) + (COMMON-LISP:VALUES + (%%CGERQF M-REF102 N-REF103 A-REF104 LDA-REF105 TAU-REF106 WORK-REF107 + LWORK-REF108 INFO-REF109) + (CFFI:MEM-REF M-REF102 ':INT32) (CFFI:MEM-REF N-REF103 ':INT32) + (CFFI:MEM-REF LDA-REF105 ':INT32) (CFFI:MEM-REF LWORK-REF108 ':INT32) + (CFFI:MEM-REF INFO-REF109 ':INT32))))) (CFFI:DEFCFUN ("cgesvd_" %%CGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -671,24 +711,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1884 ':INT32) (N-REF1885 ':INT32) - (LDA-REF1887 ':INT32) (LDU-REF1890 ':INT32) - (LDVT-REF1892 ':INT32) (LWORK-REF1894 ':INT32) - (INFO-REF1896 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1884 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1885 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1887 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1890 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF1892 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1894 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1896 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1886 A) (S-REF1888 S) - (U-REF1889 U) (VT-REF1891 VT) - (WORK-REF1893 WORK) - (RWORK-REF1895 RWORK)) - (%%CGESVD JOBU JOBVT M-REF1884 N-REF1885 A-REF1886 LDA-REF1887 S-REF1888 - U-REF1889 LDU-REF1890 VT-REF1891 LDVT-REF1892 WORK-REF1893 LWORK-REF1894 - RWORK-REF1895 INFO-REF1896)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF112 ':INT32) (N-REF113 ':INT32) + (LDA-REF115 ':INT32) (LDU-REF118 ':INT32) + (LDVT-REF120 ':INT32) (LWORK-REF122 ':INT32) + (INFO-REF124 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF112 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF113 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF115 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF118 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF120 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF122 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF124 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF114 A) (S-REF116 S) + (U-REF117 U) (VT-REF119 VT) + (WORK-REF121 WORK) + (RWORK-REF123 RWORK)) + (COMMON-LISP:VALUES + (%%CGESVD JOBU JOBVT M-REF112 N-REF113 A-REF114 LDA-REF115 S-REF116 + U-REF117 LDU-REF118 VT-REF119 LDVT-REF120 WORK-REF121 LWORK-REF122 + RWORK-REF123 INFO-REF124) + (CFFI:MEM-REF M-REF112 ':INT32) (CFFI:MEM-REF N-REF113 ':INT32) + (CFFI:MEM-REF LDA-REF115 ':INT32) (CFFI:MEM-REF LDU-REF118 ':INT32) + (CFFI:MEM-REF LDVT-REF120 ':INT32) (CFFI:MEM-REF LWORK-REF122 ':INT32) + (CFFI:MEM-REF INFO-REF124 ':INT32))))) (CFFI:DEFCFUN ("cgesvdq_" %%CGESVDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -764,30 +809,38 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1902 ':INT32) (N-REF1903 ':INT32) - (LDA-REF1905 ':INT32) (LDU-REF1908 ':INT32) - (LDV-REF1910 ':INT32) (NUMRANK-REF1911 ':INT32) - (LIWORK-REF1913 ':INT32) (LCWORK-REF1915 ':INT32) - (LRWORK-REF1917 ':INT32) (INFO-REF1918 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1902 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1903 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1905 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1908 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1910 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF1911 :INT32) NUMRANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1913 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF1915 :INT32) LCWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1917 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1918 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1904 A) (S-REF1906 S) - (U-REF1907 U) (V-REF1909 V) - (IWORK-REF1912 IWORK) - (CWORK-REF1914 CWORK) - (RWORK-REF1916 RWORK)) - (%%CGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF1902 N-REF1903 A-REF1904 - LDA-REF1905 S-REF1906 U-REF1907 LDU-REF1908 V-REF1909 LDV-REF1910 - NUMRANK-REF1911 IWORK-REF1912 LIWORK-REF1913 CWORK-REF1914 - LCWORK-REF1915 RWORK-REF1916 LRWORK-REF1917 INFO-REF1918)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF130 ':INT32) (N-REF131 ':INT32) + (LDA-REF133 ':INT32) (LDU-REF136 ':INT32) + (LDV-REF138 ':INT32) (NUMRANK-REF139 ':INT32) + (LIWORK-REF141 ':INT32) (LCWORK-REF143 ':INT32) + (LRWORK-REF145 ':INT32) (INFO-REF146 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF130 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF131 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF133 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF136 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF138 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF139 :INT32) NUMRANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF141 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF143 :INT32) LCWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF145 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF146 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF132 A) (S-REF134 S) + (U-REF135 U) (V-REF137 V) + (IWORK-REF140 IWORK) + (CWORK-REF142 CWORK) + (RWORK-REF144 RWORK)) + (COMMON-LISP:VALUES + (%%CGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF130 N-REF131 A-REF132 + LDA-REF133 S-REF134 U-REF135 LDU-REF136 V-REF137 LDV-REF138 + NUMRANK-REF139 IWORK-REF140 LIWORK-REF141 CWORK-REF142 LCWORK-REF143 + RWORK-REF144 LRWORK-REF145 INFO-REF146) + (CFFI:MEM-REF M-REF130 ':INT32) (CFFI:MEM-REF N-REF131 ':INT32) + (CFFI:MEM-REF LDA-REF133 ':INT32) (CFFI:MEM-REF LDU-REF136 ':INT32) + (CFFI:MEM-REF LDV-REF138 ':INT32) (CFFI:MEM-REF NUMRANK-REF139 ':INT32) + (CFFI:MEM-REF LIWORK-REF141 ':INT32) + (CFFI:MEM-REF LCWORK-REF143 ':INT32) + (CFFI:MEM-REF LRWORK-REF145 ':INT32) + (CFFI:MEM-REF INFO-REF146 ':INT32))))) (CFFI:DEFCFUN ("cgesvdx_" %%CGESVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -863,33 +916,41 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1922 ':INT32) (N-REF1923 ':INT32) - (LDA-REF1925 ':INT32) (VL-REF1926 ':FLOAT) - (VU-REF1927 ':FLOAT) (IL-REF1928 ':INT32) - (IU-REF1929 ':INT32) (NS-REF1930 ':INT32) - (LDU-REF1933 ':INT32) (LDVT-REF1935 ':INT32) - (LWORK-REF1937 ':INT32) (INFO-REF1940 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1922 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1923 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1925 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1926 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1927 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1928 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1929 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF1930 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1933 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF1935 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1937 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1940 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1924 A) (S-REF1931 S) - (U-REF1932 U) (VT-REF1934 VT) - (WORK-REF1936 WORK) - (RWORK-REF1938 RWORK) - (IWORK-REF1939 IWORK)) - (%%CGESVDX JOBU JOBVT RANGE M-REF1922 N-REF1923 A-REF1924 LDA-REF1925 - VL-REF1926 VU-REF1927 IL-REF1928 IU-REF1929 NS-REF1930 S-REF1931 - U-REF1932 LDU-REF1933 VT-REF1934 LDVT-REF1935 WORK-REF1936 LWORK-REF1937 - RWORK-REF1938 IWORK-REF1939 INFO-REF1940)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF150 ':INT32) (N-REF151 ':INT32) + (LDA-REF153 ':INT32) (VL-REF154 ':FLOAT) + (VU-REF155 ':FLOAT) (IL-REF156 ':INT32) + (IU-REF157 ':INT32) (NS-REF158 ':INT32) + (LDU-REF161 ':INT32) (LDVT-REF163 ':INT32) + (LWORK-REF165 ':INT32) (INFO-REF168 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF150 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF151 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF153 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF154 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF155 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF156 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF157 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF158 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF161 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF163 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF165 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF168 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF152 A) (S-REF159 S) + (U-REF160 U) (VT-REF162 VT) + (WORK-REF164 WORK) + (RWORK-REF166 RWORK) + (IWORK-REF167 IWORK)) + (COMMON-LISP:VALUES + (%%CGESVDX JOBU JOBVT RANGE M-REF150 N-REF151 A-REF152 LDA-REF153 + VL-REF154 VU-REF155 IL-REF156 IU-REF157 NS-REF158 S-REF159 U-REF160 + LDU-REF161 VT-REF162 LDVT-REF163 WORK-REF164 LWORK-REF165 RWORK-REF166 + IWORK-REF167 INFO-REF168) + (CFFI:MEM-REF M-REF150 ':INT32) (CFFI:MEM-REF N-REF151 ':INT32) + (CFFI:MEM-REF LDA-REF153 ':INT32) (CFFI:MEM-REF VL-REF154 ':FLOAT) + (CFFI:MEM-REF VU-REF155 ':FLOAT) (CFFI:MEM-REF IL-REF156 ':INT32) + (CFFI:MEM-REF IU-REF157 ':INT32) (CFFI:MEM-REF NS-REF158 ':INT32) + (CFFI:MEM-REF LDU-REF161 ':INT32) (CFFI:MEM-REF LDVT-REF163 ':INT32) + (CFFI:MEM-REF LWORK-REF165 ':INT32) + (CFFI:MEM-REF INFO-REF168 ':INT32))))) (CFFI:DEFCFUN ("cgetrf_" %%CGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -915,15 +976,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1941 ':INT32) (N-REF1942 ':INT32) - (LDA-REF1944 ':INT32) (INFO-REF1946 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1941 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1942 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1944 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1946 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1943 A) (IPIV-REF1945 IPIV)) - (%%CGETRF M-REF1941 N-REF1942 A-REF1943 LDA-REF1944 IPIV-REF1945 - INFO-REF1946)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF169 ':INT32) (N-REF170 ':INT32) + (LDA-REF172 ':INT32) (INFO-REF174 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF169 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF170 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF172 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF174 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF171 A) (IPIV-REF173 IPIV)) + (COMMON-LISP:VALUES + (%%CGETRF M-REF169 N-REF170 A-REF171 LDA-REF172 IPIV-REF173 INFO-REF174) + (CFFI:MEM-REF M-REF169 ':INT32) (CFFI:MEM-REF N-REF170 ':INT32) + (CFFI:MEM-REF LDA-REF172 ':INT32) (CFFI:MEM-REF INFO-REF174 ':INT32))))) (CFFI:DEFCFUN ("cgetrf2_" %%CGETRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -950,15 +1013,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1947 ':INT32) (N-REF1948 ':INT32) - (LDA-REF1950 ':INT32) (INFO-REF1952 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1947 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1948 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1950 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1952 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1949 A) (IPIV-REF1951 IPIV)) - (%%CGETRF2 M-REF1947 N-REF1948 A-REF1949 LDA-REF1950 IPIV-REF1951 - INFO-REF1952)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF175 ':INT32) (N-REF176 ':INT32) + (LDA-REF178 ':INT32) (INFO-REF180 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF175 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF176 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF178 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF180 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF177 A) (IPIV-REF179 IPIV)) + (COMMON-LISP:VALUES + (%%CGETRF2 M-REF175 N-REF176 A-REF177 LDA-REF178 IPIV-REF179 + INFO-REF180) + (CFFI:MEM-REF M-REF175 ':INT32) (CFFI:MEM-REF N-REF176 ':INT32) + (CFFI:MEM-REF LDA-REF178 ':INT32) (CFFI:MEM-REF INFO-REF180 ':INT32))))) (CFFI:DEFCFUN ("cgetri_" %%CGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -990,16 +1056,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1953 ':INT32) (LDA-REF1955 ':INT32) - (LWORK-REF1958 ':INT32) (INFO-REF1959 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1953 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1955 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1958 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1959 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1954 A) (IPIV-REF1956 IPIV) - (WORK-REF1957 WORK)) - (%%CGETRI N-REF1953 A-REF1954 LDA-REF1955 IPIV-REF1956 WORK-REF1957 - LWORK-REF1958 INFO-REF1959)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF181 ':INT32) (LDA-REF183 ':INT32) + (LWORK-REF186 ':INT32) (INFO-REF187 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF181 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF183 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF186 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF187 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF182 A) (IPIV-REF184 IPIV) + (WORK-REF185 WORK)) + (COMMON-LISP:VALUES + (%%CGETRI N-REF181 A-REF182 LDA-REF183 IPIV-REF184 WORK-REF185 + LWORK-REF186 INFO-REF187) + (CFFI:MEM-REF N-REF181 ':INT32) (CFFI:MEM-REF LDA-REF183 ':INT32) + (CFFI:MEM-REF LWORK-REF186 ':INT32) + (CFFI:MEM-REF INFO-REF187 ':INT32))))) (CFFI:DEFCFUN ("cgetrs_" %%CGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -1035,18 +1105,22 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1961 ':INT32) (NRHS-REF1962 ':INT32) - (LDA-REF1964 ':INT32) (LDB-REF1967 ':INT32) - (INFO-REF1968 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1961 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1962 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1964 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1967 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1968 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1963 A) (IPIV-REF1965 IPIV) - (B-REF1966 B)) - (%%CGETRS TRANS N-REF1961 NRHS-REF1962 A-REF1963 LDA-REF1964 IPIV-REF1965 - B-REF1966 LDB-REF1967 INFO-REF1968)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF189 ':INT32) (NRHS-REF190 ':INT32) + (LDA-REF192 ':INT32) (LDB-REF195 ':INT32) + (INFO-REF196 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF189 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF190 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF192 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF195 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF196 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF191 A) (IPIV-REF193 IPIV) + (B-REF194 B)) + (COMMON-LISP:VALUES + (%%CGETRS TRANS N-REF189 NRHS-REF190 A-REF191 LDA-REF192 IPIV-REF193 + B-REF194 LDB-REF195 INFO-REF196) + (CFFI:MEM-REF N-REF189 ':INT32) (CFFI:MEM-REF NRHS-REF190 ':INT32) + (CFFI:MEM-REF LDA-REF192 ':INT32) (CFFI:MEM-REF LDB-REF195 ':INT32) + (CFFI:MEM-REF INFO-REF196 ':INT32))))) (CFFI:DEFCFUN ("cgges_" %%CGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -1130,31 +1204,36 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1972 ':INT32) (N-REF1973 ':INT32) - (LDA-REF1975 ':INT32) (LDB-REF1977 ':INT32) - (SDIM-REF1978 ':INT32) (LDVSL-REF1982 ':INT32) - (LDVSR-REF1984 ':INT32) (LWORK-REF1986 ':INT32) - (INFO-REF1989 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1972 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1973 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1975 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1977 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1978 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1982 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1984 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1986 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1989 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1974 A) (B-REF1976 B) - (ALPHA-REF1979 ALPHA) - (BETA-REF1980 BETA) - (VSL-REF1981 VSL) (VSR-REF1983 VSR) - (WORK-REF1985 WORK) - (RWORK-REF1987 RWORK) - (BWORK-REF1988 BWORK)) - (%%CGGES JOBVSL JOBVSR SORT SELCTG-REF1972 N-REF1973 A-REF1974 - LDA-REF1975 B-REF1976 LDB-REF1977 SDIM-REF1978 ALPHA-REF1979 - BETA-REF1980 VSL-REF1981 LDVSL-REF1982 VSR-REF1983 LDVSR-REF1984 - WORK-REF1985 LWORK-REF1986 RWORK-REF1987 BWORK-REF1988 INFO-REF1989)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF200 ':INT32) (N-REF201 ':INT32) + (LDA-REF203 ':INT32) (LDB-REF205 ':INT32) + (SDIM-REF206 ':INT32) (LDVSL-REF210 ':INT32) + (LDVSR-REF212 ':INT32) (LWORK-REF214 ':INT32) + (INFO-REF217 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF200 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF201 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF203 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF205 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF206 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF210 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF212 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF214 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF217 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF202 A) (B-REF204 B) + (ALPHA-REF207 ALPHA) + (BETA-REF208 BETA) (VSL-REF209 VSL) + (VSR-REF211 VSR) (WORK-REF213 WORK) + (RWORK-REF215 RWORK) + (BWORK-REF216 BWORK)) + (COMMON-LISP:VALUES + (%%CGGES JOBVSL JOBVSR SORT SELCTG-REF200 N-REF201 A-REF202 LDA-REF203 + B-REF204 LDB-REF205 SDIM-REF206 ALPHA-REF207 BETA-REF208 VSL-REF209 + LDVSL-REF210 VSR-REF211 LDVSR-REF212 WORK-REF213 LWORK-REF214 + RWORK-REF215 BWORK-REF216 INFO-REF217) + (CFFI:MEM-REF SELCTG-REF200 ':INT32) (CFFI:MEM-REF N-REF201 ':INT32) + (CFFI:MEM-REF LDA-REF203 ':INT32) (CFFI:MEM-REF LDB-REF205 ':INT32) + (CFFI:MEM-REF SDIM-REF206 ':INT32) (CFFI:MEM-REF LDVSL-REF210 ':INT32) + (CFFI:MEM-REF LDVSR-REF212 ':INT32) (CFFI:MEM-REF LWORK-REF214 ':INT32) + (CFFI:MEM-REF INFO-REF217 ':INT32))))) (CFFI:DEFCFUN ("cgges3_" %%CGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -1238,31 +1317,36 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1993 ':INT32) (N-REF1994 ':INT32) - (LDA-REF1996 ':INT32) (LDB-REF1998 ':INT32) - (SDIM-REF1999 ':INT32) (LDVSL-REF2003 ':INT32) - (LDVSR-REF2005 ':INT32) (LWORK-REF2007 ':INT32) - (INFO-REF2010 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1993 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1994 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1996 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1998 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1999 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF2003 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF2005 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2007 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2010 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1995 A) (B-REF1997 B) - (ALPHA-REF2000 ALPHA) - (BETA-REF2001 BETA) - (VSL-REF2002 VSL) (VSR-REF2004 VSR) - (WORK-REF2006 WORK) - (RWORK-REF2008 RWORK) - (BWORK-REF2009 BWORK)) - (%%CGGES3 JOBVSL JOBVSR SORT SELCTG-REF1993 N-REF1994 A-REF1995 - LDA-REF1996 B-REF1997 LDB-REF1998 SDIM-REF1999 ALPHA-REF2000 - BETA-REF2001 VSL-REF2002 LDVSL-REF2003 VSR-REF2004 LDVSR-REF2005 - WORK-REF2006 LWORK-REF2007 RWORK-REF2008 BWORK-REF2009 INFO-REF2010)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF221 ':INT32) (N-REF222 ':INT32) + (LDA-REF224 ':INT32) (LDB-REF226 ':INT32) + (SDIM-REF227 ':INT32) (LDVSL-REF231 ':INT32) + (LDVSR-REF233 ':INT32) (LWORK-REF235 ':INT32) + (INFO-REF238 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF221 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF222 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF224 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF226 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF227 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF231 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF233 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF235 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF238 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF223 A) (B-REF225 B) + (ALPHA-REF228 ALPHA) + (BETA-REF229 BETA) (VSL-REF230 VSL) + (VSR-REF232 VSR) (WORK-REF234 WORK) + (RWORK-REF236 RWORK) + (BWORK-REF237 BWORK)) + (COMMON-LISP:VALUES + (%%CGGES3 JOBVSL JOBVSR SORT SELCTG-REF221 N-REF222 A-REF223 LDA-REF224 + B-REF225 LDB-REF226 SDIM-REF227 ALPHA-REF228 BETA-REF229 VSL-REF230 + LDVSL-REF231 VSR-REF232 LDVSR-REF233 WORK-REF234 LWORK-REF235 + RWORK-REF236 BWORK-REF237 INFO-REF238) + (CFFI:MEM-REF SELCTG-REF221 ':INT32) (CFFI:MEM-REF N-REF222 ':INT32) + (CFFI:MEM-REF LDA-REF224 ':INT32) (CFFI:MEM-REF LDB-REF226 ':INT32) + (CFFI:MEM-REF SDIM-REF227 ':INT32) (CFFI:MEM-REF LDVSL-REF231 ':INT32) + (CFFI:MEM-REF LDVSR-REF233 ':INT32) (CFFI:MEM-REF LWORK-REF235 ':INT32) + (CFFI:MEM-REF INFO-REF238 ':INT32))))) (CFFI:DEFCFUN ("cggesx_" %%CGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -1364,36 +1448,43 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF2014 ':INT32) (N-REF2016 ':INT32) - (LDA-REF2018 ':INT32) (LDB-REF2020 ':INT32) - (SDIM-REF2021 ':INT32) (LDVSL-REF2025 ':INT32) - (LDVSR-REF2027 ':INT32) (LWORK-REF2031 ':INT32) - (LIWORK-REF2034 ':INT32) (INFO-REF2036 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF2014 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2016 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2018 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2020 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF2021 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF2025 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF2027 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2031 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2034 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2036 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2017 A) (B-REF2019 B) - (ALPHA-REF2022 ALPHA) - (BETA-REF2023 BETA) - (VSL-REF2024 VSL) (VSR-REF2026 VSR) - (RCONDE-REF2028 RCONDE) - (RCONDV-REF2029 RCONDV) - (WORK-REF2030 WORK) - (RWORK-REF2032 RWORK) - (IWORK-REF2033 IWORK) - (BWORK-REF2035 BWORK)) - (%%CGGESX JOBVSL JOBVSR SORT SELCTG-REF2014 SENSE N-REF2016 A-REF2017 - LDA-REF2018 B-REF2019 LDB-REF2020 SDIM-REF2021 ALPHA-REF2022 - BETA-REF2023 VSL-REF2024 LDVSL-REF2025 VSR-REF2026 LDVSR-REF2027 - RCONDE-REF2028 RCONDV-REF2029 WORK-REF2030 LWORK-REF2031 RWORK-REF2032 - IWORK-REF2033 LIWORK-REF2034 BWORK-REF2035 INFO-REF2036)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF242 ':INT32) (N-REF244 ':INT32) + (LDA-REF246 ':INT32) (LDB-REF248 ':INT32) + (SDIM-REF249 ':INT32) (LDVSL-REF253 ':INT32) + (LDVSR-REF255 ':INT32) (LWORK-REF259 ':INT32) + (LIWORK-REF262 ':INT32) (INFO-REF264 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF242 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF244 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF246 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF248 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF249 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF253 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF255 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF259 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF262 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF264 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF245 A) (B-REF247 B) + (ALPHA-REF250 ALPHA) + (BETA-REF251 BETA) (VSL-REF252 VSL) + (VSR-REF254 VSR) + (RCONDE-REF256 RCONDE) + (RCONDV-REF257 RCONDV) + (WORK-REF258 WORK) + (RWORK-REF260 RWORK) + (IWORK-REF261 IWORK) + (BWORK-REF263 BWORK)) + (COMMON-LISP:VALUES + (%%CGGESX JOBVSL JOBVSR SORT SELCTG-REF242 SENSE N-REF244 A-REF245 + LDA-REF246 B-REF247 LDB-REF248 SDIM-REF249 ALPHA-REF250 BETA-REF251 + VSL-REF252 LDVSL-REF253 VSR-REF254 LDVSR-REF255 RCONDE-REF256 + RCONDV-REF257 WORK-REF258 LWORK-REF259 RWORK-REF260 IWORK-REF261 + LIWORK-REF262 BWORK-REF263 INFO-REF264) + (CFFI:MEM-REF SELCTG-REF242 ':INT32) (CFFI:MEM-REF N-REF244 ':INT32) + (CFFI:MEM-REF LDA-REF246 ':INT32) (CFFI:MEM-REF LDB-REF248 ':INT32) + (CFFI:MEM-REF SDIM-REF249 ':INT32) (CFFI:MEM-REF LDVSL-REF253 ':INT32) + (CFFI:MEM-REF LDVSR-REF255 ':INT32) (CFFI:MEM-REF LWORK-REF259 ':INT32) + (CFFI:MEM-REF LIWORK-REF262 ':INT32) + (CFFI:MEM-REF INFO-REF264 ':INT32))))) (CFFI:DEFCFUN ("cheev_" %%CHEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -1431,17 +1522,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2039 ':INT32) (LDA-REF2041 ':INT32) - (LWORK-REF2044 ':INT32) (INFO-REF2046 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2039 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2041 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2044 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2046 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2040 A) (W-REF2042 W) - (WORK-REF2043 WORK) - (RWORK-REF2045 RWORK)) - (%%CHEEV JOBZ UPLO N-REF2039 A-REF2040 LDA-REF2041 W-REF2042 WORK-REF2043 - LWORK-REF2044 RWORK-REF2045 INFO-REF2046)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF267 ':INT32) (LDA-REF269 ':INT32) + (LWORK-REF272 ':INT32) (INFO-REF274 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF267 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF269 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF272 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF274 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF268 A) (W-REF270 W) + (WORK-REF271 WORK) + (RWORK-REF273 RWORK)) + (COMMON-LISP:VALUES + (%%CHEEV JOBZ UPLO N-REF267 A-REF268 LDA-REF269 W-REF270 WORK-REF271 + LWORK-REF272 RWORK-REF273 INFO-REF274) + (CFFI:MEM-REF N-REF267 ':INT32) (CFFI:MEM-REF LDA-REF269 ':INT32) + (CFFI:MEM-REF LWORK-REF272 ':INT32) + (CFFI:MEM-REF INFO-REF274 ':INT32))))) (CFFI:DEFCFUN ("cheev_2stage_" %%CHEEV_2STAGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -1480,17 +1575,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2049 ':INT32) (LDA-REF2051 ':INT32) - (LWORK-REF2054 ':INT32) (INFO-REF2056 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2049 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2051 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2054 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2056 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2050 A) (W-REF2052 W) - (WORK-REF2053 WORK) - (RWORK-REF2055 RWORK)) - (%%CHEEV_2STAGE JOBZ UPLO N-REF2049 A-REF2050 LDA-REF2051 W-REF2052 - WORK-REF2053 LWORK-REF2054 RWORK-REF2055 INFO-REF2056)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF277 ':INT32) (LDA-REF279 ':INT32) + (LWORK-REF282 ':INT32) (INFO-REF284 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF277 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF279 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF282 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF284 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF278 A) (W-REF280 W) + (WORK-REF281 WORK) + (RWORK-REF283 RWORK)) + (COMMON-LISP:VALUES + (%%CHEEV_2STAGE JOBZ UPLO N-REF277 A-REF278 LDA-REF279 W-REF280 + WORK-REF281 LWORK-REF282 RWORK-REF283 INFO-REF284) + (CFFI:MEM-REF N-REF277 ':INT32) (CFFI:MEM-REF LDA-REF279 ':INT32) + (CFFI:MEM-REF LWORK-REF282 ':INT32) + (CFFI:MEM-REF INFO-REF284 ':INT32))))) (CFFI:DEFCFUN ("cheevd_" %%CHEEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -1539,22 +1638,27 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2059 ':INT32) (LDA-REF2061 ':INT32) - (LWORK-REF2064 ':INT32) (LRWORK-REF2066 ':INT32) - (LIWORK-REF2068 ':INT32) (INFO-REF2069 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2059 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2061 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2064 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2066 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2068 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2069 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2060 A) (W-REF2062 W) - (WORK-REF2063 WORK) - (RWORK-REF2065 RWORK) - (IWORK-REF2067 IWORK)) - (%%CHEEVD JOBZ UPLO N-REF2059 A-REF2060 LDA-REF2061 W-REF2062 - WORK-REF2063 LWORK-REF2064 RWORK-REF2065 LRWORK-REF2066 IWORK-REF2067 - LIWORK-REF2068 INFO-REF2069)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF287 ':INT32) (LDA-REF289 ':INT32) + (LWORK-REF292 ':INT32) (LRWORK-REF294 ':INT32) + (LIWORK-REF296 ':INT32) (INFO-REF297 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF287 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF289 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF292 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF294 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF296 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF297 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF288 A) (W-REF290 W) + (WORK-REF291 WORK) + (RWORK-REF293 RWORK) + (IWORK-REF295 IWORK)) + (COMMON-LISP:VALUES + (%%CHEEVD JOBZ UPLO N-REF287 A-REF288 LDA-REF289 W-REF290 WORK-REF291 + LWORK-REF292 RWORK-REF293 LRWORK-REF294 IWORK-REF295 LIWORK-REF296 + INFO-REF297) + (CFFI:MEM-REF N-REF287 ':INT32) (CFFI:MEM-REF LDA-REF289 ':INT32) + (CFFI:MEM-REF LWORK-REF292 ':INT32) (CFFI:MEM-REF LRWORK-REF294 ':INT32) + (CFFI:MEM-REF LIWORK-REF296 ':INT32) + (CFFI:MEM-REF INFO-REF297 ':INT32))))) (CFFI:DEFCFUN ("cheevd_2stage_" %%CHEEVD_2STAGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -1604,22 +1708,27 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2072 ':INT32) (LDA-REF2074 ':INT32) - (LWORK-REF2077 ':INT32) (LRWORK-REF2079 ':INT32) - (LIWORK-REF2081 ':INT32) (INFO-REF2082 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2072 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2074 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2077 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2079 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2081 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2082 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2073 A) (W-REF2075 W) - (WORK-REF2076 WORK) - (RWORK-REF2078 RWORK) - (IWORK-REF2080 IWORK)) - (%%CHEEVD_2STAGE JOBZ UPLO N-REF2072 A-REF2073 LDA-REF2074 W-REF2075 - WORK-REF2076 LWORK-REF2077 RWORK-REF2078 LRWORK-REF2079 IWORK-REF2080 - LIWORK-REF2081 INFO-REF2082)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF300 ':INT32) (LDA-REF302 ':INT32) + (LWORK-REF305 ':INT32) (LRWORK-REF307 ':INT32) + (LIWORK-REF309 ':INT32) (INFO-REF310 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF300 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF302 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF305 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF307 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF309 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF310 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF301 A) (W-REF303 W) + (WORK-REF304 WORK) + (RWORK-REF306 RWORK) + (IWORK-REF308 IWORK)) + (COMMON-LISP:VALUES + (%%CHEEVD_2STAGE JOBZ UPLO N-REF300 A-REF301 LDA-REF302 W-REF303 + WORK-REF304 LWORK-REF305 RWORK-REF306 LRWORK-REF307 IWORK-REF308 + LIWORK-REF309 INFO-REF310) + (CFFI:MEM-REF N-REF300 ':INT32) (CFFI:MEM-REF LDA-REF302 ':INT32) + (CFFI:MEM-REF LWORK-REF305 ':INT32) (CFFI:MEM-REF LRWORK-REF307 ':INT32) + (CFFI:MEM-REF LIWORK-REF309 ':INT32) + (CFFI:MEM-REF INFO-REF310 ':INT32))))) (CFFI:DEFCFUN ("cheevr_" %%CHEEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -1695,37 +1804,44 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2086 ':INT32) (LDA-REF2088 ':INT32) - (VL-REF2089 ':FLOAT) (VU-REF2090 ':FLOAT) - (IL-REF2091 ':INT32) (IU-REF2092 ':INT32) - (ABSTOL-REF2093 ':FLOAT) (M-REF2094 ':INT32) - (LDZ-REF2097 ':INT32) (LWORK-REF2100 ':INT32) - (LRWORK-REF2102 ':INT32) (LIWORK-REF2104 ':INT32) - (INFO-REF2105 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2086 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2088 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2089 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2090 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2091 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2092 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF2093 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2094 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2097 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2100 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2102 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2104 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2105 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2087 A) (W-REF2095 W) - (Z-REF2096 Z) - (ISUPPZ-REF2098 ISUPPZ) - (WORK-REF2099 WORK) - (RWORK-REF2101 RWORK) - (IWORK-REF2103 IWORK)) - (%%CHEEVR JOBZ RANGE UPLO N-REF2086 A-REF2087 LDA-REF2088 VL-REF2089 - VU-REF2090 IL-REF2091 IU-REF2092 ABSTOL-REF2093 M-REF2094 W-REF2095 - Z-REF2096 LDZ-REF2097 ISUPPZ-REF2098 WORK-REF2099 LWORK-REF2100 - RWORK-REF2101 LRWORK-REF2102 IWORK-REF2103 LIWORK-REF2104 - INFO-REF2105)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF314 ':INT32) (LDA-REF316 ':INT32) + (VL-REF317 ':FLOAT) (VU-REF318 ':FLOAT) + (IL-REF319 ':INT32) (IU-REF320 ':INT32) + (ABSTOL-REF321 ':FLOAT) (M-REF322 ':INT32) + (LDZ-REF325 ':INT32) (LWORK-REF328 ':INT32) + (LRWORK-REF330 ':INT32) (LIWORK-REF332 ':INT32) + (INFO-REF333 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF314 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF316 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF317 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF318 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF319 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF320 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF321 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF322 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF325 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF328 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF330 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF332 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF333 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF315 A) (W-REF323 W) + (Z-REF324 Z) (ISUPPZ-REF326 ISUPPZ) + (WORK-REF327 WORK) + (RWORK-REF329 RWORK) + (IWORK-REF331 IWORK)) + (COMMON-LISP:VALUES + (%%CHEEVR JOBZ RANGE UPLO N-REF314 A-REF315 LDA-REF316 VL-REF317 + VU-REF318 IL-REF319 IU-REF320 ABSTOL-REF321 M-REF322 W-REF323 Z-REF324 + LDZ-REF325 ISUPPZ-REF326 WORK-REF327 LWORK-REF328 RWORK-REF329 + LRWORK-REF330 IWORK-REF331 LIWORK-REF332 INFO-REF333) + (CFFI:MEM-REF N-REF314 ':INT32) (CFFI:MEM-REF LDA-REF316 ':INT32) + (CFFI:MEM-REF VL-REF317 ':FLOAT) (CFFI:MEM-REF VU-REF318 ':FLOAT) + (CFFI:MEM-REF IL-REF319 ':INT32) (CFFI:MEM-REF IU-REF320 ':INT32) + (CFFI:MEM-REF ABSTOL-REF321 ':FLOAT) (CFFI:MEM-REF M-REF322 ':INT32) + (CFFI:MEM-REF LDZ-REF325 ':INT32) (CFFI:MEM-REF LWORK-REF328 ':INT32) + (CFFI:MEM-REF LRWORK-REF330 ':INT32) + (CFFI:MEM-REF LIWORK-REF332 ':INT32) + (CFFI:MEM-REF INFO-REF333 ':INT32))))) (CFFI:DEFCFUN ("cheevr_2stage_" %%CHEEVR_2STAGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -1802,37 +1918,44 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2109 ':INT32) (LDA-REF2111 ':INT32) - (VL-REF2112 ':FLOAT) (VU-REF2113 ':FLOAT) - (IL-REF2114 ':INT32) (IU-REF2115 ':INT32) - (ABSTOL-REF2116 ':FLOAT) (M-REF2117 ':INT32) - (LDZ-REF2120 ':INT32) (LWORK-REF2123 ':INT32) - (LRWORK-REF2125 ':INT32) (LIWORK-REF2127 ':INT32) - (INFO-REF2128 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2109 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2111 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2112 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2113 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2114 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2115 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF2116 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2117 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2120 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2123 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2125 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2127 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2128 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2110 A) (W-REF2118 W) - (Z-REF2119 Z) - (ISUPPZ-REF2121 ISUPPZ) - (WORK-REF2122 WORK) - (RWORK-REF2124 RWORK) - (IWORK-REF2126 IWORK)) - (%%CHEEVR_2STAGE JOBZ RANGE UPLO N-REF2109 A-REF2110 LDA-REF2111 - VL-REF2112 VU-REF2113 IL-REF2114 IU-REF2115 ABSTOL-REF2116 M-REF2117 - W-REF2118 Z-REF2119 LDZ-REF2120 ISUPPZ-REF2121 WORK-REF2122 - LWORK-REF2123 RWORK-REF2124 LRWORK-REF2125 IWORK-REF2126 LIWORK-REF2127 - INFO-REF2128)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF337 ':INT32) (LDA-REF339 ':INT32) + (VL-REF340 ':FLOAT) (VU-REF341 ':FLOAT) + (IL-REF342 ':INT32) (IU-REF343 ':INT32) + (ABSTOL-REF344 ':FLOAT) (M-REF345 ':INT32) + (LDZ-REF348 ':INT32) (LWORK-REF351 ':INT32) + (LRWORK-REF353 ':INT32) (LIWORK-REF355 ':INT32) + (INFO-REF356 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF337 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF339 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF340 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF341 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF342 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF343 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF344 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF345 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF348 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF351 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF353 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF355 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF356 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF338 A) (W-REF346 W) + (Z-REF347 Z) (ISUPPZ-REF349 ISUPPZ) + (WORK-REF350 WORK) + (RWORK-REF352 RWORK) + (IWORK-REF354 IWORK)) + (COMMON-LISP:VALUES + (%%CHEEVR_2STAGE JOBZ RANGE UPLO N-REF337 A-REF338 LDA-REF339 VL-REF340 + VU-REF341 IL-REF342 IU-REF343 ABSTOL-REF344 M-REF345 W-REF346 Z-REF347 + LDZ-REF348 ISUPPZ-REF349 WORK-REF350 LWORK-REF351 RWORK-REF352 + LRWORK-REF353 IWORK-REF354 LIWORK-REF355 INFO-REF356) + (CFFI:MEM-REF N-REF337 ':INT32) (CFFI:MEM-REF LDA-REF339 ':INT32) + (CFFI:MEM-REF VL-REF340 ':FLOAT) (CFFI:MEM-REF VU-REF341 ':FLOAT) + (CFFI:MEM-REF IL-REF342 ':INT32) (CFFI:MEM-REF IU-REF343 ':INT32) + (CFFI:MEM-REF ABSTOL-REF344 ':FLOAT) (CFFI:MEM-REF M-REF345 ':INT32) + (CFFI:MEM-REF LDZ-REF348 ':INT32) (CFFI:MEM-REF LWORK-REF351 ':INT32) + (CFFI:MEM-REF LRWORK-REF353 ':INT32) + (CFFI:MEM-REF LIWORK-REF355 ':INT32) + (CFFI:MEM-REF INFO-REF356 ':INT32))))) (CFFI:DEFCFUN ("cheevx_" %%CHEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -1904,32 +2027,39 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2132 ':INT32) (LDA-REF2134 ':INT32) - (VL-REF2135 ':FLOAT) (VU-REF2136 ':FLOAT) - (IL-REF2137 ':INT32) (IU-REF2138 ':INT32) - (ABSTOL-REF2139 ':FLOAT) (M-REF2140 ':INT32) - (LDZ-REF2143 ':INT32) (LWORK-REF2145 ':INT32) - (INFO-REF2149 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2132 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2134 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2135 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2136 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2137 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2138 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF2139 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2140 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2143 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2145 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2149 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2133 A) (W-REF2141 W) - (Z-REF2142 Z) (WORK-REF2144 WORK) - (RWORK-REF2146 RWORK) - (IWORK-REF2147 IWORK) - (IFAIL-REF2148 IFAIL)) - (%%CHEEVX JOBZ RANGE UPLO N-REF2132 A-REF2133 LDA-REF2134 VL-REF2135 - VU-REF2136 IL-REF2137 IU-REF2138 ABSTOL-REF2139 M-REF2140 W-REF2141 - Z-REF2142 LDZ-REF2143 WORK-REF2144 LWORK-REF2145 RWORK-REF2146 - IWORK-REF2147 IFAIL-REF2148 INFO-REF2149)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF360 ':INT32) (LDA-REF362 ':INT32) + (VL-REF363 ':FLOAT) (VU-REF364 ':FLOAT) + (IL-REF365 ':INT32) (IU-REF366 ':INT32) + (ABSTOL-REF367 ':FLOAT) (M-REF368 ':INT32) + (LDZ-REF371 ':INT32) (LWORK-REF373 ':INT32) + (INFO-REF377 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF360 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF362 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF363 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF364 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF365 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF366 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF367 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF368 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF371 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF373 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF377 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF361 A) (W-REF369 W) + (Z-REF370 Z) (WORK-REF372 WORK) + (RWORK-REF374 RWORK) + (IWORK-REF375 IWORK) + (IFAIL-REF376 IFAIL)) + (COMMON-LISP:VALUES + (%%CHEEVX JOBZ RANGE UPLO N-REF360 A-REF361 LDA-REF362 VL-REF363 + VU-REF364 IL-REF365 IU-REF366 ABSTOL-REF367 M-REF368 W-REF369 Z-REF370 + LDZ-REF371 WORK-REF372 LWORK-REF373 RWORK-REF374 IWORK-REF375 + IFAIL-REF376 INFO-REF377) + (CFFI:MEM-REF N-REF360 ':INT32) (CFFI:MEM-REF LDA-REF362 ':INT32) + (CFFI:MEM-REF VL-REF363 ':FLOAT) (CFFI:MEM-REF VU-REF364 ':FLOAT) + (CFFI:MEM-REF IL-REF365 ':INT32) (CFFI:MEM-REF IU-REF366 ':INT32) + (CFFI:MEM-REF ABSTOL-REF367 ':FLOAT) (CFFI:MEM-REF M-REF368 ':INT32) + (CFFI:MEM-REF LDZ-REF371 ':INT32) (CFFI:MEM-REF LWORK-REF373 ':INT32) + (CFFI:MEM-REF INFO-REF377 ':INT32))))) (CFFI:DEFCFUN ("cheevx_2stage_" %%CHEEVX_2STAGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -2002,32 +2132,39 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2153 ':INT32) (LDA-REF2155 ':INT32) - (VL-REF2156 ':FLOAT) (VU-REF2157 ':FLOAT) - (IL-REF2158 ':INT32) (IU-REF2159 ':INT32) - (ABSTOL-REF2160 ':FLOAT) (M-REF2161 ':INT32) - (LDZ-REF2164 ':INT32) (LWORK-REF2166 ':INT32) - (INFO-REF2170 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2153 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2155 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2156 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2157 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2158 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2159 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF2160 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2161 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2164 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2166 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2170 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2154 A) (W-REF2162 W) - (Z-REF2163 Z) (WORK-REF2165 WORK) - (RWORK-REF2167 RWORK) - (IWORK-REF2168 IWORK) - (IFAIL-REF2169 IFAIL)) - (%%CHEEVX_2STAGE JOBZ RANGE UPLO N-REF2153 A-REF2154 LDA-REF2155 - VL-REF2156 VU-REF2157 IL-REF2158 IU-REF2159 ABSTOL-REF2160 M-REF2161 - W-REF2162 Z-REF2163 LDZ-REF2164 WORK-REF2165 LWORK-REF2166 RWORK-REF2167 - IWORK-REF2168 IFAIL-REF2169 INFO-REF2170)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF381 ':INT32) (LDA-REF383 ':INT32) + (VL-REF384 ':FLOAT) (VU-REF385 ':FLOAT) + (IL-REF386 ':INT32) (IU-REF387 ':INT32) + (ABSTOL-REF388 ':FLOAT) (M-REF389 ':INT32) + (LDZ-REF392 ':INT32) (LWORK-REF394 ':INT32) + (INFO-REF398 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF381 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF383 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF384 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF385 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF386 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF387 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF388 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF389 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF392 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF394 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF398 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF382 A) (W-REF390 W) + (Z-REF391 Z) (WORK-REF393 WORK) + (RWORK-REF395 RWORK) + (IWORK-REF396 IWORK) + (IFAIL-REF397 IFAIL)) + (COMMON-LISP:VALUES + (%%CHEEVX_2STAGE JOBZ RANGE UPLO N-REF381 A-REF382 LDA-REF383 VL-REF384 + VU-REF385 IL-REF386 IU-REF387 ABSTOL-REF388 M-REF389 W-REF390 Z-REF391 + LDZ-REF392 WORK-REF393 LWORK-REF394 RWORK-REF395 IWORK-REF396 + IFAIL-REF397 INFO-REF398) + (CFFI:MEM-REF N-REF381 ':INT32) (CFFI:MEM-REF LDA-REF383 ':INT32) + (CFFI:MEM-REF VL-REF384 ':FLOAT) (CFFI:MEM-REF VU-REF385 ':FLOAT) + (CFFI:MEM-REF IL-REF386 ':INT32) (CFFI:MEM-REF IU-REF387 ':INT32) + (CFFI:MEM-REF ABSTOL-REF388 ':FLOAT) (CFFI:MEM-REF M-REF389 ':INT32) + (CFFI:MEM-REF LDZ-REF392 ':INT32) (CFFI:MEM-REF LWORK-REF394 ':INT32) + (CFFI:MEM-REF INFO-REF398 ':INT32))))) (CFFI:DEFCFUN ("claunhr_col_getrfnp_" %%CLAUNHR_COL_GETRFNP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -2055,15 +2192,18 @@ (COMMON-LISP:*)) D) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2171 ':INT32) (N-REF2172 ':INT32) - (LDA-REF2174 ':INT32) (INFO-REF2176 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2171 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2172 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2174 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2176 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2173 A) (D-REF2175 D)) - (%%CLAUNHR_COL_GETRFNP M-REF2171 N-REF2172 A-REF2173 LDA-REF2174 - D-REF2175 INFO-REF2176)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF399 ':INT32) (N-REF400 ':INT32) + (LDA-REF402 ':INT32) (INFO-REF404 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF399 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF400 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF402 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF404 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF401 A) (D-REF403 D)) + (COMMON-LISP:VALUES + (%%CLAUNHR_COL_GETRFNP M-REF399 N-REF400 A-REF401 LDA-REF402 D-REF403 + INFO-REF404) + (CFFI:MEM-REF M-REF399 ':INT32) (CFFI:MEM-REF N-REF400 ':INT32) + (CFFI:MEM-REF LDA-REF402 ':INT32) (CFFI:MEM-REF INFO-REF404 ':INT32))))) (CFFI:DEFCFUN ("claunhr_col_getrfnp2_" %%CLAUNHR_COL_GETRFNP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -2091,15 +2231,18 @@ (COMMON-LISP:*)) D) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2177 ':INT32) (N-REF2178 ':INT32) - (LDA-REF2180 ':INT32) (INFO-REF2182 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2177 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2178 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2180 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2182 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2179 A) (D-REF2181 D)) - (%%CLAUNHR_COL_GETRFNP2 M-REF2177 N-REF2178 A-REF2179 LDA-REF2180 - D-REF2181 INFO-REF2182)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF405 ':INT32) (N-REF406 ':INT32) + (LDA-REF408 ':INT32) (INFO-REF410 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF405 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF406 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF408 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF410 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF407 A) (D-REF409 D)) + (COMMON-LISP:VALUES + (%%CLAUNHR_COL_GETRFNP2 M-REF405 N-REF406 A-REF407 LDA-REF408 D-REF409 + INFO-REF410) + (CFFI:MEM-REF M-REF405 ':INT32) (CFFI:MEM-REF N-REF406 ':INT32) + (CFFI:MEM-REF LDA-REF408 ':INT32) (CFFI:MEM-REF INFO-REF410 ':INT32))))) (CFFI:DEFCFUN ("cuncsd_" %%CUNCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -2216,41 +2359,49 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2189 ':INT32) (P-REF2190 ':INT32) - (Q-REF2191 ':INT32) (LDX11-REF2193 ':INT32) - (LDX12-REF2195 ':INT32) (LDX21-REF2197 ':INT32) - (LDX22-REF2199 ':INT32) (LDU1-REF2202 ':INT32) - (LDU2-REF2204 ':INT32) (LDV1T-REF2206 ':INT32) - (LDV2T-REF2208 ':INT32) (LWORK-REF2210 ':INT32) - (LRWORK-REF2212 ':INT32) (INFO-REF2214 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2189 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF2190 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF2191 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF2193 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF2195 :INT32) LDX12) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF2197 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF2199 :INT32) LDX22) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF2202 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF2204 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF2206 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF2208 :INT32) LDV2T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2210 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2212 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2214 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF2192 X11) (X12-REF2194 X12) - (X21-REF2196 X21) (X22-REF2198 X22) - (THETA-REF2200 THETA) - (U1-REF2201 U1) (U2-REF2203 U2) - (V1T-REF2205 V1T) (V2T-REF2207 V2T) - (WORK-REF2209 WORK) - (RWORK-REF2211 RWORK) - (IWORK-REF2213 IWORK)) - (%%CUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF2189 P-REF2190 - Q-REF2191 X11-REF2192 LDX11-REF2193 X12-REF2194 LDX12-REF2195 - X21-REF2196 LDX21-REF2197 X22-REF2198 LDX22-REF2199 THETA-REF2200 - U1-REF2201 LDU1-REF2202 U2-REF2203 LDU2-REF2204 V1T-REF2205 - LDV1T-REF2206 V2T-REF2207 LDV2T-REF2208 WORK-REF2209 LWORK-REF2210 - RWORK-REF2211 LRWORK-REF2212 IWORK-REF2213 INFO-REF2214)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF417 ':INT32) (P-REF418 ':INT32) + (Q-REF419 ':INT32) (LDX11-REF421 ':INT32) + (LDX12-REF423 ':INT32) (LDX21-REF425 ':INT32) + (LDX22-REF427 ':INT32) (LDU1-REF430 ':INT32) + (LDU2-REF432 ':INT32) (LDV1T-REF434 ':INT32) + (LDV2T-REF436 ':INT32) (LWORK-REF438 ':INT32) + (LRWORK-REF440 ':INT32) (INFO-REF442 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF417 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF418 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF419 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF421 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF423 :INT32) LDX12) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF425 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF427 :INT32) LDX22) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF430 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF432 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF434 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF436 :INT32) LDV2T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF438 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF440 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF442 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF420 X11) (X12-REF422 X12) + (X21-REF424 X21) (X22-REF426 X22) + (THETA-REF428 THETA) (U1-REF429 U1) + (U2-REF431 U2) (V1T-REF433 V1T) + (V2T-REF435 V2T) (WORK-REF437 WORK) + (RWORK-REF439 RWORK) + (IWORK-REF441 IWORK)) + (COMMON-LISP:VALUES + (%%CUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF417 P-REF418 + Q-REF419 X11-REF420 LDX11-REF421 X12-REF422 LDX12-REF423 X21-REF424 + LDX21-REF425 X22-REF426 LDX22-REF427 THETA-REF428 U1-REF429 LDU1-REF430 + U2-REF431 LDU2-REF432 V1T-REF433 LDV1T-REF434 V2T-REF435 LDV2T-REF436 + WORK-REF437 LWORK-REF438 RWORK-REF439 LRWORK-REF440 IWORK-REF441 + INFO-REF442) + (CFFI:MEM-REF M-REF417 ':INT32) (CFFI:MEM-REF P-REF418 ':INT32) + (CFFI:MEM-REF Q-REF419 ':INT32) (CFFI:MEM-REF LDX11-REF421 ':INT32) + (CFFI:MEM-REF LDX12-REF423 ':INT32) (CFFI:MEM-REF LDX21-REF425 ':INT32) + (CFFI:MEM-REF LDX22-REF427 ':INT32) (CFFI:MEM-REF LDU1-REF430 ':INT32) + (CFFI:MEM-REF LDU2-REF432 ':INT32) (CFFI:MEM-REF LDV1T-REF434 ':INT32) + (CFFI:MEM-REF LDV2T-REF436 ':INT32) (CFFI:MEM-REF LWORK-REF438 ':INT32) + (CFFI:MEM-REF LRWORK-REF440 ':INT32) + (CFFI:MEM-REF INFO-REF442 ':INT32))))) (CFFI:DEFCFUN ("cuncsd2by1_" %%CUNCSD2BY1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -2337,35 +2488,40 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2218 ':INT32) (P-REF2219 ':INT32) - (Q-REF2220 ':INT32) (LDX11-REF2222 ':INT32) - (LDX21-REF2224 ':INT32) (LDU1-REF2227 ':INT32) - (LDU2-REF2229 ':INT32) (LDV1T-REF2231 ':INT32) - (LWORK-REF2233 ':INT32) (LRWORK-REF2235 ':INT32) - (INFO-REF2237 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2218 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF2219 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF2220 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF2222 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF2224 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF2227 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF2229 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF2231 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2233 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2235 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2237 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF2221 X11) (X21-REF2223 X21) - (THETA-REF2225 THETA) - (U1-REF2226 U1) (U2-REF2228 U2) - (V1T-REF2230 V1T) - (WORK-REF2232 WORK) - (RWORK-REF2234 RWORK) - (IWORK-REF2236 IWORK)) - (%%CUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF2218 P-REF2219 Q-REF2220 - X11-REF2221 LDX11-REF2222 X21-REF2223 LDX21-REF2224 THETA-REF2225 - U1-REF2226 LDU1-REF2227 U2-REF2228 LDU2-REF2229 V1T-REF2230 - LDV1T-REF2231 WORK-REF2232 LWORK-REF2233 RWORK-REF2234 LRWORK-REF2235 - IWORK-REF2236 INFO-REF2237)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF446 ':INT32) (P-REF447 ':INT32) + (Q-REF448 ':INT32) (LDX11-REF450 ':INT32) + (LDX21-REF452 ':INT32) (LDU1-REF455 ':INT32) + (LDU2-REF457 ':INT32) (LDV1T-REF459 ':INT32) + (LWORK-REF461 ':INT32) (LRWORK-REF463 ':INT32) + (INFO-REF465 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF446 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF447 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF448 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF450 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF452 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF455 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF457 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF459 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF461 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF463 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF465 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF449 X11) (X21-REF451 X21) + (THETA-REF453 THETA) (U1-REF454 U1) + (U2-REF456 U2) (V1T-REF458 V1T) + (WORK-REF460 WORK) + (RWORK-REF462 RWORK) + (IWORK-REF464 IWORK)) + (COMMON-LISP:VALUES + (%%CUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF446 P-REF447 Q-REF448 X11-REF449 + LDX11-REF450 X21-REF451 LDX21-REF452 THETA-REF453 U1-REF454 LDU1-REF455 + U2-REF456 LDU2-REF457 V1T-REF458 LDV1T-REF459 WORK-REF460 LWORK-REF461 + RWORK-REF462 LRWORK-REF463 IWORK-REF464 INFO-REF465) + (CFFI:MEM-REF M-REF446 ':INT32) (CFFI:MEM-REF P-REF447 ':INT32) + (CFFI:MEM-REF Q-REF448 ':INT32) (CFFI:MEM-REF LDX11-REF450 ':INT32) + (CFFI:MEM-REF LDX21-REF452 ':INT32) (CFFI:MEM-REF LDU1-REF455 ':INT32) + (CFFI:MEM-REF LDU2-REF457 ':INT32) (CFFI:MEM-REF LDV1T-REF459 ':INT32) + (CFFI:MEM-REF LWORK-REF461 ':INT32) (CFFI:MEM-REF LRWORK-REF463 ':INT32) + (CFFI:MEM-REF INFO-REF465 ':INT32))))) (CFFI:DEFCFUN ("cunglq_" %%CUNGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -2402,19 +2558,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2238 ':INT32) (N-REF2239 ':INT32) - (K-REF2240 ':INT32) (LDA-REF2242 ':INT32) - (LWORK-REF2245 ':INT32) (INFO-REF2246 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2238 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2239 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2240 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2242 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2245 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2246 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2241 A) (TAU-REF2243 TAU) - (WORK-REF2244 WORK)) - (%%CUNGLQ M-REF2238 N-REF2239 K-REF2240 A-REF2241 LDA-REF2242 TAU-REF2243 - WORK-REF2244 LWORK-REF2245 INFO-REF2246)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF466 ':INT32) (N-REF467 ':INT32) + (K-REF468 ':INT32) (LDA-REF470 ':INT32) + (LWORK-REF473 ':INT32) (INFO-REF474 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF466 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF467 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF468 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF470 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF473 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF474 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF469 A) (TAU-REF471 TAU) + (WORK-REF472 WORK)) + (COMMON-LISP:VALUES + (%%CUNGLQ M-REF466 N-REF467 K-REF468 A-REF469 LDA-REF470 TAU-REF471 + WORK-REF472 LWORK-REF473 INFO-REF474) + (CFFI:MEM-REF M-REF466 ':INT32) (CFFI:MEM-REF N-REF467 ':INT32) + (CFFI:MEM-REF K-REF468 ':INT32) (CFFI:MEM-REF LDA-REF470 ':INT32) + (CFFI:MEM-REF LWORK-REF473 ':INT32) + (CFFI:MEM-REF INFO-REF474 ':INT32))))) (CFFI:DEFCFUN ("cungql_" %%CUNGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -2451,19 +2612,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2247 ':INT32) (N-REF2248 ':INT32) - (K-REF2249 ':INT32) (LDA-REF2251 ':INT32) - (LWORK-REF2254 ':INT32) (INFO-REF2255 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2247 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2248 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2249 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2251 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2254 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2255 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2250 A) (TAU-REF2252 TAU) - (WORK-REF2253 WORK)) - (%%CUNGQL M-REF2247 N-REF2248 K-REF2249 A-REF2250 LDA-REF2251 TAU-REF2252 - WORK-REF2253 LWORK-REF2254 INFO-REF2255)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF475 ':INT32) (N-REF476 ':INT32) + (K-REF477 ':INT32) (LDA-REF479 ':INT32) + (LWORK-REF482 ':INT32) (INFO-REF483 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF475 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF476 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF477 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF479 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF482 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF483 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF478 A) (TAU-REF480 TAU) + (WORK-REF481 WORK)) + (COMMON-LISP:VALUES + (%%CUNGQL M-REF475 N-REF476 K-REF477 A-REF478 LDA-REF479 TAU-REF480 + WORK-REF481 LWORK-REF482 INFO-REF483) + (CFFI:MEM-REF M-REF475 ':INT32) (CFFI:MEM-REF N-REF476 ':INT32) + (CFFI:MEM-REF K-REF477 ':INT32) (CFFI:MEM-REF LDA-REF479 ':INT32) + (CFFI:MEM-REF LWORK-REF482 ':INT32) + (CFFI:MEM-REF INFO-REF483 ':INT32))))) (CFFI:DEFCFUN ("cungqr_" %%CUNGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -2500,19 +2666,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2256 ':INT32) (N-REF2257 ':INT32) - (K-REF2258 ':INT32) (LDA-REF2260 ':INT32) - (LWORK-REF2263 ':INT32) (INFO-REF2264 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2256 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2257 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2258 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2260 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2263 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2264 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2259 A) (TAU-REF2261 TAU) - (WORK-REF2262 WORK)) - (%%CUNGQR M-REF2256 N-REF2257 K-REF2258 A-REF2259 LDA-REF2260 TAU-REF2261 - WORK-REF2262 LWORK-REF2263 INFO-REF2264)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF484 ':INT32) (N-REF485 ':INT32) + (K-REF486 ':INT32) (LDA-REF488 ':INT32) + (LWORK-REF491 ':INT32) (INFO-REF492 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF484 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF485 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF486 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF488 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF491 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF492 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF487 A) (TAU-REF489 TAU) + (WORK-REF490 WORK)) + (COMMON-LISP:VALUES + (%%CUNGQR M-REF484 N-REF485 K-REF486 A-REF487 LDA-REF488 TAU-REF489 + WORK-REF490 LWORK-REF491 INFO-REF492) + (CFFI:MEM-REF M-REF484 ':INT32) (CFFI:MEM-REF N-REF485 ':INT32) + (CFFI:MEM-REF K-REF486 ':INT32) (CFFI:MEM-REF LDA-REF488 ':INT32) + (CFFI:MEM-REF LWORK-REF491 ':INT32) + (CFFI:MEM-REF INFO-REF492 ':INT32))))) (CFFI:DEFCFUN ("cungrq_" %%CUNGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -2549,19 +2720,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2265 ':INT32) (N-REF2266 ':INT32) - (K-REF2267 ':INT32) (LDA-REF2269 ':INT32) - (LWORK-REF2272 ':INT32) (INFO-REF2273 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2265 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2266 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2267 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2269 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2272 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2273 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2268 A) (TAU-REF2270 TAU) - (WORK-REF2271 WORK)) - (%%CUNGRQ M-REF2265 N-REF2266 K-REF2267 A-REF2268 LDA-REF2269 TAU-REF2270 - WORK-REF2271 LWORK-REF2272 INFO-REF2273)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF493 ':INT32) (N-REF494 ':INT32) + (K-REF495 ':INT32) (LDA-REF497 ':INT32) + (LWORK-REF500 ':INT32) (INFO-REF501 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF493 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF494 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF495 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF497 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF500 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF501 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF496 A) (TAU-REF498 TAU) + (WORK-REF499 WORK)) + (COMMON-LISP:VALUES + (%%CUNGRQ M-REF493 N-REF494 K-REF495 A-REF496 LDA-REF497 TAU-REF498 + WORK-REF499 LWORK-REF500 INFO-REF501) + (CFFI:MEM-REF M-REF493 ':INT32) (CFFI:MEM-REF N-REF494 ':INT32) + (CFFI:MEM-REF K-REF495 ':INT32) (CFFI:MEM-REF LDA-REF497 ':INT32) + (CFFI:MEM-REF LWORK-REF500 ':INT32) + (CFFI:MEM-REF INFO-REF501 ':INT32))))) (CFFI:DEFCFUN ("dgees_" %%DGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -2609,24 +2785,29 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF2276 ':INT32) (N-REF2277 ':INT32) - (LDA-REF2279 ':INT32) (SDIM-REF2280 ':INT32) - (LDVS-REF2284 ':INT32) (LWORK-REF2286 ':INT32) - (INFO-REF2288 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF2276 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2277 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2279 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF2280 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF2284 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2286 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2288 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2278 A) (WR-REF2281 WR) - (WI-REF2282 WI) (VS-REF2283 VS) - (WORK-REF2285 WORK) - (BWORK-REF2287 BWORK)) - (%%DGEES JOBVS SORT SELECT-REF2276 N-REF2277 A-REF2278 LDA-REF2279 - SDIM-REF2280 WR-REF2281 WI-REF2282 VS-REF2283 LDVS-REF2284 WORK-REF2285 - LWORK-REF2286 BWORK-REF2287 INFO-REF2288)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF504 ':INT32) (N-REF505 ':INT32) + (LDA-REF507 ':INT32) (SDIM-REF508 ':INT32) + (LDVS-REF512 ':INT32) (LWORK-REF514 ':INT32) + (INFO-REF516 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF504 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF505 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF507 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF508 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF512 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF514 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF516 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF506 A) (WR-REF509 WR) + (WI-REF510 WI) (VS-REF511 VS) + (WORK-REF513 WORK) + (BWORK-REF515 BWORK)) + (COMMON-LISP:VALUES + (%%DGEES JOBVS SORT SELECT-REF504 N-REF505 A-REF506 LDA-REF507 + SDIM-REF508 WR-REF509 WI-REF510 VS-REF511 LDVS-REF512 WORK-REF513 + LWORK-REF514 BWORK-REF515 INFO-REF516) + (CFFI:MEM-REF SELECT-REF504 ':INT32) (CFFI:MEM-REF N-REF505 ':INT32) + (CFFI:MEM-REF LDA-REF507 ':INT32) (CFFI:MEM-REF SDIM-REF508 ':INT32) + (CFFI:MEM-REF LDVS-REF512 ':INT32) (CFFI:MEM-REF LWORK-REF514 ':INT32) + (CFFI:MEM-REF INFO-REF516 ':INT32))))) (CFFI:DEFCFUN ("dgeesx_" %%DGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -2687,30 +2868,37 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF2291 ':INT32) (N-REF2293 ':INT32) - (LDA-REF2295 ':INT32) (SDIM-REF2296 ':INT32) - (LDVS-REF2300 ':INT32) (RCONDE-REF2301 ':DOUBLE) - (RCONDV-REF2302 ':DOUBLE) (LWORK-REF2304 ':INT32) - (LIWORK-REF2306 ':INT32) (INFO-REF2308 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF2291 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2293 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2295 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF2296 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF2300 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF2301 :DOUBLE) RCONDE) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF2302 :DOUBLE) RCONDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2304 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2306 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2308 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2294 A) (WR-REF2297 WR) - (WI-REF2298 WI) (VS-REF2299 VS) - (WORK-REF2303 WORK) - (IWORK-REF2305 IWORK) - (BWORK-REF2307 BWORK)) - (%%DGEESX JOBVS SORT SELECT-REF2291 SENSE N-REF2293 A-REF2294 LDA-REF2295 - SDIM-REF2296 WR-REF2297 WI-REF2298 VS-REF2299 LDVS-REF2300 - RCONDE-REF2301 RCONDV-REF2302 WORK-REF2303 LWORK-REF2304 IWORK-REF2305 - LIWORK-REF2306 BWORK-REF2307 INFO-REF2308)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF519 ':INT32) (N-REF521 ':INT32) + (LDA-REF523 ':INT32) (SDIM-REF524 ':INT32) + (LDVS-REF528 ':INT32) (RCONDE-REF529 ':DOUBLE) + (RCONDV-REF530 ':DOUBLE) (LWORK-REF532 ':INT32) + (LIWORK-REF534 ':INT32) (INFO-REF536 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF519 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF521 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF523 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF524 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF528 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF529 :DOUBLE) RCONDE) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF530 :DOUBLE) RCONDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF532 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF534 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF536 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF522 A) (WR-REF525 WR) + (WI-REF526 WI) (VS-REF527 VS) + (WORK-REF531 WORK) + (IWORK-REF533 IWORK) + (BWORK-REF535 BWORK)) + (COMMON-LISP:VALUES + (%%DGEESX JOBVS SORT SELECT-REF519 SENSE N-REF521 A-REF522 LDA-REF523 + SDIM-REF524 WR-REF525 WI-REF526 VS-REF527 LDVS-REF528 RCONDE-REF529 + RCONDV-REF530 WORK-REF531 LWORK-REF532 IWORK-REF533 LIWORK-REF534 + BWORK-REF535 INFO-REF536) + (CFFI:MEM-REF SELECT-REF519 ':INT32) (CFFI:MEM-REF N-REF521 ':INT32) + (CFFI:MEM-REF LDA-REF523 ':INT32) (CFFI:MEM-REF SDIM-REF524 ':INT32) + (CFFI:MEM-REF LDVS-REF528 ':INT32) (CFFI:MEM-REF RCONDE-REF529 ':DOUBLE) + (CFFI:MEM-REF RCONDV-REF530 ':DOUBLE) + (CFFI:MEM-REF LWORK-REF532 ':INT32) (CFFI:MEM-REF LIWORK-REF534 ':INT32) + (CFFI:MEM-REF INFO-REF536 ':INT32))))) (CFFI:DEFCFUN ("dgeev_" %%DGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -2753,21 +2941,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2311 ':INT32) (LDA-REF2313 ':INT32) - (LDVL-REF2317 ':INT32) (LDVR-REF2319 ':INT32) - (LWORK-REF2321 ':INT32) (INFO-REF2322 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2311 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2313 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF2317 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF2319 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2321 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2322 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2312 A) (WR-REF2314 WR) - (WI-REF2315 WI) (VL-REF2316 VL) - (VR-REF2318 VR) (WORK-REF2320 WORK)) - (%%DGEEV JOBVL JOBVR N-REF2311 A-REF2312 LDA-REF2313 WR-REF2314 - WI-REF2315 VL-REF2316 LDVL-REF2317 VR-REF2318 LDVR-REF2319 WORK-REF2320 - LWORK-REF2321 INFO-REF2322)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF539 ':INT32) (LDA-REF541 ':INT32) + (LDVL-REF545 ':INT32) (LDVR-REF547 ':INT32) + (LWORK-REF549 ':INT32) (INFO-REF550 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF539 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF541 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF545 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF547 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF549 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF550 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF540 A) (WR-REF542 WR) + (WI-REF543 WI) (VL-REF544 VL) + (VR-REF546 VR) (WORK-REF548 WORK)) + (COMMON-LISP:VALUES + (%%DGEEV JOBVL JOBVR N-REF539 A-REF540 LDA-REF541 WR-REF542 WI-REF543 + VL-REF544 LDVL-REF545 VR-REF546 LDVR-REF547 WORK-REF548 LWORK-REF549 + INFO-REF550) + (CFFI:MEM-REF N-REF539 ':INT32) (CFFI:MEM-REF LDA-REF541 ':INT32) + (CFFI:MEM-REF LDVL-REF545 ':INT32) (CFFI:MEM-REF LDVR-REF547 ':INT32) + (CFFI:MEM-REF LWORK-REF549 ':INT32) + (CFFI:MEM-REF INFO-REF550 ':INT32))))) (CFFI:DEFCFUN ("dgeevx_" %%DGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -2838,32 +3031,37 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2327 ':INT32) (LDA-REF2329 ':INT32) - (LDVL-REF2333 ':INT32) (LDVR-REF2335 ':INT32) - (ILO-REF2336 ':INT32) (IHI-REF2337 ':INT32) - (ABNRM-REF2339 ':DOUBLE) (LWORK-REF2343 ':INT32) - (INFO-REF2345 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2327 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2329 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF2333 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF2335 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2336 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2337 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF2339 :DOUBLE) ABNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2343 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2345 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2328 A) (WR-REF2330 WR) - (WI-REF2331 WI) (VL-REF2332 VL) - (VR-REF2334 VR) - (SCALE-REF2338 SCALE) - (RCONDE-REF2340 RCONDE) - (RCONDV-REF2341 RCONDV) - (WORK-REF2342 WORK) - (IWORK-REF2344 IWORK)) - (%%DGEEVX BALANC JOBVL JOBVR SENSE N-REF2327 A-REF2328 LDA-REF2329 - WR-REF2330 WI-REF2331 VL-REF2332 LDVL-REF2333 VR-REF2334 LDVR-REF2335 - ILO-REF2336 IHI-REF2337 SCALE-REF2338 ABNRM-REF2339 RCONDE-REF2340 - RCONDV-REF2341 WORK-REF2342 LWORK-REF2343 IWORK-REF2344 INFO-REF2345)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF555 ':INT32) (LDA-REF557 ':INT32) + (LDVL-REF561 ':INT32) (LDVR-REF563 ':INT32) + (ILO-REF564 ':INT32) (IHI-REF565 ':INT32) + (ABNRM-REF567 ':DOUBLE) (LWORK-REF571 ':INT32) + (INFO-REF573 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF555 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF557 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF561 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF563 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF564 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF565 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF567 :DOUBLE) ABNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF571 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF573 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF556 A) (WR-REF558 WR) + (WI-REF559 WI) (VL-REF560 VL) + (VR-REF562 VR) (SCALE-REF566 SCALE) + (RCONDE-REF568 RCONDE) + (RCONDV-REF569 RCONDV) + (WORK-REF570 WORK) + (IWORK-REF572 IWORK)) + (COMMON-LISP:VALUES + (%%DGEEVX BALANC JOBVL JOBVR SENSE N-REF555 A-REF556 LDA-REF557 + WR-REF558 WI-REF559 VL-REF560 LDVL-REF561 VR-REF562 LDVR-REF563 + ILO-REF564 IHI-REF565 SCALE-REF566 ABNRM-REF567 RCONDE-REF568 + RCONDV-REF569 WORK-REF570 LWORK-REF571 IWORK-REF572 INFO-REF573) + (CFFI:MEM-REF N-REF555 ':INT32) (CFFI:MEM-REF LDA-REF557 ':INT32) + (CFFI:MEM-REF LDVL-REF561 ':INT32) (CFFI:MEM-REF LDVR-REF563 ':INT32) + (CFFI:MEM-REF ILO-REF564 ':INT32) (CFFI:MEM-REF IHI-REF565 ':INT32) + (CFFI:MEM-REF ABNRM-REF567 ':DOUBLE) (CFFI:MEM-REF LWORK-REF571 ':INT32) + (CFFI:MEM-REF INFO-REF573 ':INT32))))) (CFFI:DEFCFUN ("dgelqf_" %%DGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -2891,18 +3089,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2346 ':INT32) (N-REF2347 ':INT32) - (LDA-REF2349 ':INT32) (LWORK-REF2352 ':INT32) - (INFO-REF2353 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2346 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2347 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2349 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2352 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2353 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2348 A) (TAU-REF2350 TAU) - (WORK-REF2351 WORK)) - (%%DGELQF M-REF2346 N-REF2347 A-REF2348 LDA-REF2349 TAU-REF2350 - WORK-REF2351 LWORK-REF2352 INFO-REF2353)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF574 ':INT32) (N-REF575 ':INT32) + (LDA-REF577 ':INT32) (LWORK-REF580 ':INT32) + (INFO-REF581 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF574 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF575 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF577 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF580 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF581 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF576 A) (TAU-REF578 TAU) + (WORK-REF579 WORK)) + (COMMON-LISP:VALUES + (%%DGELQF M-REF574 N-REF575 A-REF576 LDA-REF577 TAU-REF578 WORK-REF579 + LWORK-REF580 INFO-REF581) + (CFFI:MEM-REF M-REF574 ':INT32) (CFFI:MEM-REF N-REF575 ':INT32) + (CFFI:MEM-REF LDA-REF577 ':INT32) (CFFI:MEM-REF LWORK-REF580 ':INT32) + (CFFI:MEM-REF INFO-REF581 ':INT32))))) (CFFI:DEFCFUN ("dgeqlf_" %%DGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -2930,18 +3132,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2354 ':INT32) (N-REF2355 ':INT32) - (LDA-REF2357 ':INT32) (LWORK-REF2360 ':INT32) - (INFO-REF2361 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2354 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2355 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2357 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2360 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2361 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2356 A) (TAU-REF2358 TAU) - (WORK-REF2359 WORK)) - (%%DGEQLF M-REF2354 N-REF2355 A-REF2356 LDA-REF2357 TAU-REF2358 - WORK-REF2359 LWORK-REF2360 INFO-REF2361)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF582 ':INT32) (N-REF583 ':INT32) + (LDA-REF585 ':INT32) (LWORK-REF588 ':INT32) + (INFO-REF589 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF582 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF583 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF585 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF588 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF589 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF584 A) (TAU-REF586 TAU) + (WORK-REF587 WORK)) + (COMMON-LISP:VALUES + (%%DGEQLF M-REF582 N-REF583 A-REF584 LDA-REF585 TAU-REF586 WORK-REF587 + LWORK-REF588 INFO-REF589) + (CFFI:MEM-REF M-REF582 ':INT32) (CFFI:MEM-REF N-REF583 ':INT32) + (CFFI:MEM-REF LDA-REF585 ':INT32) (CFFI:MEM-REF LWORK-REF588 ':INT32) + (CFFI:MEM-REF INFO-REF589 ':INT32))))) (CFFI:DEFCFUN ("dgeqrf_" %%DGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -2969,18 +3175,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2362 ':INT32) (N-REF2363 ':INT32) - (LDA-REF2365 ':INT32) (LWORK-REF2368 ':INT32) - (INFO-REF2369 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2362 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2363 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2365 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2368 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2369 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2364 A) (TAU-REF2366 TAU) - (WORK-REF2367 WORK)) - (%%DGEQRF M-REF2362 N-REF2363 A-REF2364 LDA-REF2365 TAU-REF2366 - WORK-REF2367 LWORK-REF2368 INFO-REF2369)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF590 ':INT32) (N-REF591 ':INT32) + (LDA-REF593 ':INT32) (LWORK-REF596 ':INT32) + (INFO-REF597 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF590 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF591 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF593 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF596 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF597 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF592 A) (TAU-REF594 TAU) + (WORK-REF595 WORK)) + (COMMON-LISP:VALUES + (%%DGEQRF M-REF590 N-REF591 A-REF592 LDA-REF593 TAU-REF594 WORK-REF595 + LWORK-REF596 INFO-REF597) + (CFFI:MEM-REF M-REF590 ':INT32) (CFFI:MEM-REF N-REF591 ':INT32) + (CFFI:MEM-REF LDA-REF593 ':INT32) (CFFI:MEM-REF LWORK-REF596 ':INT32) + (CFFI:MEM-REF INFO-REF597 ':INT32))))) (CFFI:DEFCFUN ("dgeqrfp_" %%DGEQRFP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -3009,18 +3219,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2370 ':INT32) (N-REF2371 ':INT32) - (LDA-REF2373 ':INT32) (LWORK-REF2376 ':INT32) - (INFO-REF2377 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2370 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2371 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2373 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2376 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2377 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2372 A) (TAU-REF2374 TAU) - (WORK-REF2375 WORK)) - (%%DGEQRFP M-REF2370 N-REF2371 A-REF2372 LDA-REF2373 TAU-REF2374 - WORK-REF2375 LWORK-REF2376 INFO-REF2377)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF598 ':INT32) (N-REF599 ':INT32) + (LDA-REF601 ':INT32) (LWORK-REF604 ':INT32) + (INFO-REF605 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF598 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF599 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF601 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF604 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF605 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF600 A) (TAU-REF602 TAU) + (WORK-REF603 WORK)) + (COMMON-LISP:VALUES + (%%DGEQRFP M-REF598 N-REF599 A-REF600 LDA-REF601 TAU-REF602 WORK-REF603 + LWORK-REF604 INFO-REF605) + (CFFI:MEM-REF M-REF598 ':INT32) (CFFI:MEM-REF N-REF599 ':INT32) + (CFFI:MEM-REF LDA-REF601 ':INT32) (CFFI:MEM-REF LWORK-REF604 ':INT32) + (CFFI:MEM-REF INFO-REF605 ':INT32))))) (CFFI:DEFCFUN ("dgerqf_" %%DGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -3048,18 +3262,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2378 ':INT32) (N-REF2379 ':INT32) - (LDA-REF2381 ':INT32) (LWORK-REF2384 ':INT32) - (INFO-REF2385 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2378 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2379 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2381 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2384 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2385 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2380 A) (TAU-REF2382 TAU) - (WORK-REF2383 WORK)) - (%%DGERQF M-REF2378 N-REF2379 A-REF2380 LDA-REF2381 TAU-REF2382 - WORK-REF2383 LWORK-REF2384 INFO-REF2385)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF606 ':INT32) (N-REF607 ':INT32) + (LDA-REF609 ':INT32) (LWORK-REF612 ':INT32) + (INFO-REF613 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF606 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF607 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF609 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF612 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF613 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF608 A) (TAU-REF610 TAU) + (WORK-REF611 WORK)) + (COMMON-LISP:VALUES + (%%DGERQF M-REF606 N-REF607 A-REF608 LDA-REF609 TAU-REF610 WORK-REF611 + LWORK-REF612 INFO-REF613) + (CFFI:MEM-REF M-REF606 ':INT32) (CFFI:MEM-REF N-REF607 ':INT32) + (CFFI:MEM-REF LDA-REF609 ':INT32) (CFFI:MEM-REF LWORK-REF612 ':INT32) + (CFFI:MEM-REF INFO-REF613 ':INT32))))) (CFFI:DEFCFUN ("dgesvd_" %%DGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -3101,23 +3319,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2388 ':INT32) (N-REF2389 ':INT32) - (LDA-REF2391 ':INT32) (LDU-REF2394 ':INT32) - (LDVT-REF2396 ':INT32) (LWORK-REF2398 ':INT32) - (INFO-REF2399 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2388 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2389 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2391 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF2394 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF2396 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2398 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2399 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2390 A) (S-REF2392 S) - (U-REF2393 U) (VT-REF2395 VT) - (WORK-REF2397 WORK)) - (%%DGESVD JOBU JOBVT M-REF2388 N-REF2389 A-REF2390 LDA-REF2391 S-REF2392 - U-REF2393 LDU-REF2394 VT-REF2395 LDVT-REF2396 WORK-REF2397 LWORK-REF2398 - INFO-REF2399)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF616 ':INT32) (N-REF617 ':INT32) + (LDA-REF619 ':INT32) (LDU-REF622 ':INT32) + (LDVT-REF624 ':INT32) (LWORK-REF626 ':INT32) + (INFO-REF627 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF616 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF617 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF619 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF622 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF624 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF626 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF627 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF618 A) (S-REF620 S) + (U-REF621 U) (VT-REF623 VT) + (WORK-REF625 WORK)) + (COMMON-LISP:VALUES + (%%DGESVD JOBU JOBVT M-REF616 N-REF617 A-REF618 LDA-REF619 S-REF620 + U-REF621 LDU-REF622 VT-REF623 LDVT-REF624 WORK-REF625 LWORK-REF626 + INFO-REF627) + (CFFI:MEM-REF M-REF616 ':INT32) (CFFI:MEM-REF N-REF617 ':INT32) + (CFFI:MEM-REF LDA-REF619 ':INT32) (CFFI:MEM-REF LDU-REF622 ':INT32) + (CFFI:MEM-REF LDVT-REF624 ':INT32) (CFFI:MEM-REF LWORK-REF626 ':INT32) + (CFFI:MEM-REF INFO-REF627 ':INT32))))) (CFFI:DEFCFUN ("dgesvdq_" %%DGESVDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -3182,30 +3405,37 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2405 ':INT32) (N-REF2406 ':INT32) - (LDA-REF2408 ':INT32) (LDU-REF2411 ':INT32) - (LDV-REF2413 ':INT32) (NUMRANK-REF2414 ':INT32) - (LIWORK-REF2416 ':INT32) (LWORK-REF2418 ':INT32) - (LRWORK-REF2420 ':INT32) (INFO-REF2421 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2405 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2406 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2408 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF2411 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF2413 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF2414 :INT32) NUMRANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2416 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2418 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2420 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2421 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2407 A) (S-REF2409 S) - (U-REF2410 U) (V-REF2412 V) - (IWORK-REF2415 IWORK) - (WORK-REF2417 WORK) - (RWORK-REF2419 RWORK)) - (%%DGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF2405 N-REF2406 A-REF2407 - LDA-REF2408 S-REF2409 U-REF2410 LDU-REF2411 V-REF2412 LDV-REF2413 - NUMRANK-REF2414 IWORK-REF2415 LIWORK-REF2416 WORK-REF2417 LWORK-REF2418 - RWORK-REF2419 LRWORK-REF2420 INFO-REF2421)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF633 ':INT32) (N-REF634 ':INT32) + (LDA-REF636 ':INT32) (LDU-REF639 ':INT32) + (LDV-REF641 ':INT32) (NUMRANK-REF642 ':INT32) + (LIWORK-REF644 ':INT32) (LWORK-REF646 ':INT32) + (LRWORK-REF648 ':INT32) (INFO-REF649 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF633 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF634 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF636 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF639 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF641 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF642 :INT32) NUMRANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF644 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF646 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF648 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF649 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF635 A) (S-REF637 S) + (U-REF638 U) (V-REF640 V) + (IWORK-REF643 IWORK) + (WORK-REF645 WORK) + (RWORK-REF647 RWORK)) + (COMMON-LISP:VALUES + (%%DGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF633 N-REF634 A-REF635 + LDA-REF636 S-REF637 U-REF638 LDU-REF639 V-REF640 LDV-REF641 + NUMRANK-REF642 IWORK-REF643 LIWORK-REF644 WORK-REF645 LWORK-REF646 + RWORK-REF647 LRWORK-REF648 INFO-REF649) + (CFFI:MEM-REF M-REF633 ':INT32) (CFFI:MEM-REF N-REF634 ':INT32) + (CFFI:MEM-REF LDA-REF636 ':INT32) (CFFI:MEM-REF LDU-REF639 ':INT32) + (CFFI:MEM-REF LDV-REF641 ':INT32) (CFFI:MEM-REF NUMRANK-REF642 ':INT32) + (CFFI:MEM-REF LIWORK-REF644 ':INT32) (CFFI:MEM-REF LWORK-REF646 ':INT32) + (CFFI:MEM-REF LRWORK-REF648 ':INT32) + (CFFI:MEM-REF INFO-REF649 ':INT32))))) (CFFI:DEFCFUN ("dgesvdx_" %%DGESVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -3266,32 +3496,40 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2425 ':INT32) (N-REF2426 ':INT32) - (LDA-REF2428 ':INT32) (VL-REF2429 ':DOUBLE) - (VU-REF2430 ':DOUBLE) (IL-REF2431 ':INT32) - (IU-REF2432 ':INT32) (NS-REF2433 ':INT32) - (LDU-REF2436 ':INT32) (LDVT-REF2438 ':INT32) - (LWORK-REF2440 ':INT32) (INFO-REF2442 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2425 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2426 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2428 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2429 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2430 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2431 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2432 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF2433 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF2436 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF2438 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2440 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2442 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2427 A) (S-REF2434 S) - (U-REF2435 U) (VT-REF2437 VT) - (WORK-REF2439 WORK) - (IWORK-REF2441 IWORK)) - (%%DGESVDX JOBU JOBVT RANGE M-REF2425 N-REF2426 A-REF2427 LDA-REF2428 - VL-REF2429 VU-REF2430 IL-REF2431 IU-REF2432 NS-REF2433 S-REF2434 - U-REF2435 LDU-REF2436 VT-REF2437 LDVT-REF2438 WORK-REF2439 LWORK-REF2440 - IWORK-REF2441 INFO-REF2442)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF653 ':INT32) (N-REF654 ':INT32) + (LDA-REF656 ':INT32) (VL-REF657 ':DOUBLE) + (VU-REF658 ':DOUBLE) (IL-REF659 ':INT32) + (IU-REF660 ':INT32) (NS-REF661 ':INT32) + (LDU-REF664 ':INT32) (LDVT-REF666 ':INT32) + (LWORK-REF668 ':INT32) (INFO-REF670 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF653 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF654 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF656 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF657 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF658 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF659 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF660 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF661 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF664 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF666 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF668 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF670 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF655 A) (S-REF662 S) + (U-REF663 U) (VT-REF665 VT) + (WORK-REF667 WORK) + (IWORK-REF669 IWORK)) + (COMMON-LISP:VALUES + (%%DGESVDX JOBU JOBVT RANGE M-REF653 N-REF654 A-REF655 LDA-REF656 + VL-REF657 VU-REF658 IL-REF659 IU-REF660 NS-REF661 S-REF662 U-REF663 + LDU-REF664 VT-REF665 LDVT-REF666 WORK-REF667 LWORK-REF668 IWORK-REF669 + INFO-REF670) + (CFFI:MEM-REF M-REF653 ':INT32) (CFFI:MEM-REF N-REF654 ':INT32) + (CFFI:MEM-REF LDA-REF656 ':INT32) (CFFI:MEM-REF VL-REF657 ':DOUBLE) + (CFFI:MEM-REF VU-REF658 ':DOUBLE) (CFFI:MEM-REF IL-REF659 ':INT32) + (CFFI:MEM-REF IU-REF660 ':INT32) (CFFI:MEM-REF NS-REF661 ':INT32) + (CFFI:MEM-REF LDU-REF664 ':INT32) (CFFI:MEM-REF LDVT-REF666 ':INT32) + (CFFI:MEM-REF LWORK-REF668 ':INT32) + (CFFI:MEM-REF INFO-REF670 ':INT32))))) (CFFI:DEFCFUN ("dgetrf_" %%DGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -3314,15 +3552,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2443 ':INT32) (N-REF2444 ':INT32) - (LDA-REF2446 ':INT32) (INFO-REF2448 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2443 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2444 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2446 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2448 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2445 A) (IPIV-REF2447 IPIV)) - (%%DGETRF M-REF2443 N-REF2444 A-REF2445 LDA-REF2446 IPIV-REF2447 - INFO-REF2448)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF671 ':INT32) (N-REF672 ':INT32) + (LDA-REF674 ':INT32) (INFO-REF676 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF671 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF672 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF674 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF676 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF673 A) (IPIV-REF675 IPIV)) + (COMMON-LISP:VALUES + (%%DGETRF M-REF671 N-REF672 A-REF673 LDA-REF674 IPIV-REF675 INFO-REF676) + (CFFI:MEM-REF M-REF671 ':INT32) (CFFI:MEM-REF N-REF672 ':INT32) + (CFFI:MEM-REF LDA-REF674 ':INT32) (CFFI:MEM-REF INFO-REF676 ':INT32))))) (CFFI:DEFCFUN ("dgetrf2_" %%DGETRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -3346,15 +3586,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2449 ':INT32) (N-REF2450 ':INT32) - (LDA-REF2452 ':INT32) (INFO-REF2454 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2449 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2450 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2452 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2454 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2451 A) (IPIV-REF2453 IPIV)) - (%%DGETRF2 M-REF2449 N-REF2450 A-REF2451 LDA-REF2452 IPIV-REF2453 - INFO-REF2454)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF677 ':INT32) (N-REF678 ':INT32) + (LDA-REF680 ':INT32) (INFO-REF682 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF677 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF678 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF680 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF682 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF679 A) (IPIV-REF681 IPIV)) + (COMMON-LISP:VALUES + (%%DGETRF2 M-REF677 N-REF678 A-REF679 LDA-REF680 IPIV-REF681 + INFO-REF682) + (CFFI:MEM-REF M-REF677 ':INT32) (CFFI:MEM-REF N-REF678 ':INT32) + (CFFI:MEM-REF LDA-REF680 ':INT32) (CFFI:MEM-REF INFO-REF682 ':INT32))))) (CFFI:DEFCFUN ("dgetri_" %%DGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -3381,16 +3624,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2455 ':INT32) (LDA-REF2457 ':INT32) - (LWORK-REF2460 ':INT32) (INFO-REF2461 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2455 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2457 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2460 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2461 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2456 A) (IPIV-REF2458 IPIV) - (WORK-REF2459 WORK)) - (%%DGETRI N-REF2455 A-REF2456 LDA-REF2457 IPIV-REF2458 WORK-REF2459 - LWORK-REF2460 INFO-REF2461)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF683 ':INT32) (LDA-REF685 ':INT32) + (LWORK-REF688 ':INT32) (INFO-REF689 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF683 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF685 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF688 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF689 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF684 A) (IPIV-REF686 IPIV) + (WORK-REF687 WORK)) + (COMMON-LISP:VALUES + (%%DGETRI N-REF683 A-REF684 LDA-REF685 IPIV-REF686 WORK-REF687 + LWORK-REF688 INFO-REF689) + (CFFI:MEM-REF N-REF683 ':INT32) (CFFI:MEM-REF LDA-REF685 ':INT32) + (CFFI:MEM-REF LWORK-REF688 ':INT32) + (CFFI:MEM-REF INFO-REF689 ':INT32))))) (CFFI:DEFCFUN ("dgetrs_" %%DGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -3420,18 +3667,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2463 ':INT32) (NRHS-REF2464 ':INT32) - (LDA-REF2466 ':INT32) (LDB-REF2469 ':INT32) - (INFO-REF2470 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2463 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2464 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2466 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2469 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2470 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2465 A) (IPIV-REF2467 IPIV) - (B-REF2468 B)) - (%%DGETRS TRANS N-REF2463 NRHS-REF2464 A-REF2465 LDA-REF2466 IPIV-REF2467 - B-REF2468 LDB-REF2469 INFO-REF2470)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF691 ':INT32) (NRHS-REF692 ':INT32) + (LDA-REF694 ':INT32) (LDB-REF697 ':INT32) + (INFO-REF698 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF691 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF692 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF694 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF697 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF698 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF693 A) (IPIV-REF695 IPIV) + (B-REF696 B)) + (COMMON-LISP:VALUES + (%%DGETRS TRANS N-REF691 NRHS-REF692 A-REF693 LDA-REF694 IPIV-REF695 + B-REF696 LDB-REF697 INFO-REF698) + (CFFI:MEM-REF N-REF691 ':INT32) (CFFI:MEM-REF NRHS-REF692 ':INT32) + (CFFI:MEM-REF LDA-REF694 ':INT32) (CFFI:MEM-REF LDB-REF697 ':INT32) + (CFFI:MEM-REF INFO-REF698 ':INT32))))) (CFFI:DEFCFUN ("dgges_" %%DGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -3499,31 +3750,36 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF2474 ':INT32) (N-REF2475 ':INT32) - (LDA-REF2477 ':INT32) (LDB-REF2479 ':INT32) - (SDIM-REF2480 ':INT32) (LDVSL-REF2485 ':INT32) - (LDVSR-REF2487 ':INT32) (LWORK-REF2489 ':INT32) - (INFO-REF2491 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF2474 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2475 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2477 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2479 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF2480 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF2485 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF2487 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2489 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2491 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2476 A) (B-REF2478 B) - (ALPHAR-REF2481 ALPHAR) - (ALPHAI-REF2482 ALPHAI) - (BETA-REF2483 BETA) - (VSL-REF2484 VSL) (VSR-REF2486 VSR) - (WORK-REF2488 WORK) - (BWORK-REF2490 BWORK)) - (%%DGGES JOBVSL JOBVSR SORT SELCTG-REF2474 N-REF2475 A-REF2476 - LDA-REF2477 B-REF2478 LDB-REF2479 SDIM-REF2480 ALPHAR-REF2481 - ALPHAI-REF2482 BETA-REF2483 VSL-REF2484 LDVSL-REF2485 VSR-REF2486 - LDVSR-REF2487 WORK-REF2488 LWORK-REF2489 BWORK-REF2490 INFO-REF2491)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF702 ':INT32) (N-REF703 ':INT32) + (LDA-REF705 ':INT32) (LDB-REF707 ':INT32) + (SDIM-REF708 ':INT32) (LDVSL-REF713 ':INT32) + (LDVSR-REF715 ':INT32) (LWORK-REF717 ':INT32) + (INFO-REF719 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF702 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF703 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF705 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF707 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF708 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF713 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF715 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF717 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF719 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF704 A) (B-REF706 B) + (ALPHAR-REF709 ALPHAR) + (ALPHAI-REF710 ALPHAI) + (BETA-REF711 BETA) (VSL-REF712 VSL) + (VSR-REF714 VSR) (WORK-REF716 WORK) + (BWORK-REF718 BWORK)) + (COMMON-LISP:VALUES + (%%DGGES JOBVSL JOBVSR SORT SELCTG-REF702 N-REF703 A-REF704 LDA-REF705 + B-REF706 LDB-REF707 SDIM-REF708 ALPHAR-REF709 ALPHAI-REF710 BETA-REF711 + VSL-REF712 LDVSL-REF713 VSR-REF714 LDVSR-REF715 WORK-REF716 + LWORK-REF717 BWORK-REF718 INFO-REF719) + (CFFI:MEM-REF SELCTG-REF702 ':INT32) (CFFI:MEM-REF N-REF703 ':INT32) + (CFFI:MEM-REF LDA-REF705 ':INT32) (CFFI:MEM-REF LDB-REF707 ':INT32) + (CFFI:MEM-REF SDIM-REF708 ':INT32) (CFFI:MEM-REF LDVSL-REF713 ':INT32) + (CFFI:MEM-REF LDVSR-REF715 ':INT32) (CFFI:MEM-REF LWORK-REF717 ':INT32) + (CFFI:MEM-REF INFO-REF719 ':INT32))))) (CFFI:DEFCFUN ("dgges3_" %%DGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -3591,31 +3847,36 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF2495 ':INT32) (N-REF2496 ':INT32) - (LDA-REF2498 ':INT32) (LDB-REF2500 ':INT32) - (SDIM-REF2501 ':INT32) (LDVSL-REF2506 ':INT32) - (LDVSR-REF2508 ':INT32) (LWORK-REF2510 ':INT32) - (INFO-REF2512 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF2495 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2496 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2498 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2500 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF2501 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF2506 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF2508 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2510 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2512 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2497 A) (B-REF2499 B) - (ALPHAR-REF2502 ALPHAR) - (ALPHAI-REF2503 ALPHAI) - (BETA-REF2504 BETA) - (VSL-REF2505 VSL) (VSR-REF2507 VSR) - (WORK-REF2509 WORK) - (BWORK-REF2511 BWORK)) - (%%DGGES3 JOBVSL JOBVSR SORT SELCTG-REF2495 N-REF2496 A-REF2497 - LDA-REF2498 B-REF2499 LDB-REF2500 SDIM-REF2501 ALPHAR-REF2502 - ALPHAI-REF2503 BETA-REF2504 VSL-REF2505 LDVSL-REF2506 VSR-REF2507 - LDVSR-REF2508 WORK-REF2509 LWORK-REF2510 BWORK-REF2511 INFO-REF2512)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF723 ':INT32) (N-REF724 ':INT32) + (LDA-REF726 ':INT32) (LDB-REF728 ':INT32) + (SDIM-REF729 ':INT32) (LDVSL-REF734 ':INT32) + (LDVSR-REF736 ':INT32) (LWORK-REF738 ':INT32) + (INFO-REF740 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF723 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF724 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF726 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF728 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF729 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF734 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF736 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF738 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF740 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF725 A) (B-REF727 B) + (ALPHAR-REF730 ALPHAR) + (ALPHAI-REF731 ALPHAI) + (BETA-REF732 BETA) (VSL-REF733 VSL) + (VSR-REF735 VSR) (WORK-REF737 WORK) + (BWORK-REF739 BWORK)) + (COMMON-LISP:VALUES + (%%DGGES3 JOBVSL JOBVSR SORT SELCTG-REF723 N-REF724 A-REF725 LDA-REF726 + B-REF727 LDB-REF728 SDIM-REF729 ALPHAR-REF730 ALPHAI-REF731 BETA-REF732 + VSL-REF733 LDVSL-REF734 VSR-REF735 LDVSR-REF736 WORK-REF737 + LWORK-REF738 BWORK-REF739 INFO-REF740) + (CFFI:MEM-REF SELCTG-REF723 ':INT32) (CFFI:MEM-REF N-REF724 ':INT32) + (CFFI:MEM-REF LDA-REF726 ':INT32) (CFFI:MEM-REF LDB-REF728 ':INT32) + (CFFI:MEM-REF SDIM-REF729 ':INT32) (CFFI:MEM-REF LDVSL-REF734 ':INT32) + (CFFI:MEM-REF LDVSR-REF736 ':INT32) (CFFI:MEM-REF LWORK-REF738 ':INT32) + (CFFI:MEM-REF INFO-REF740 ':INT32))))) (CFFI:DEFCFUN ("dggesx_" %%DGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -3701,36 +3962,43 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF2516 ':INT32) (N-REF2518 ':INT32) - (LDA-REF2520 ':INT32) (LDB-REF2522 ':INT32) - (SDIM-REF2523 ':INT32) (LDVSL-REF2528 ':INT32) - (LDVSR-REF2530 ':INT32) (LWORK-REF2534 ':INT32) - (LIWORK-REF2536 ':INT32) (INFO-REF2538 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF2516 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2518 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2520 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2522 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF2523 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF2528 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF2530 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2534 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2536 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2538 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2519 A) (B-REF2521 B) - (ALPHAR-REF2524 ALPHAR) - (ALPHAI-REF2525 ALPHAI) - (BETA-REF2526 BETA) - (VSL-REF2527 VSL) (VSR-REF2529 VSR) - (RCONDE-REF2531 RCONDE) - (RCONDV-REF2532 RCONDV) - (WORK-REF2533 WORK) - (IWORK-REF2535 IWORK) - (BWORK-REF2537 BWORK)) - (%%DGGESX JOBVSL JOBVSR SORT SELCTG-REF2516 SENSE N-REF2518 A-REF2519 - LDA-REF2520 B-REF2521 LDB-REF2522 SDIM-REF2523 ALPHAR-REF2524 - ALPHAI-REF2525 BETA-REF2526 VSL-REF2527 LDVSL-REF2528 VSR-REF2529 - LDVSR-REF2530 RCONDE-REF2531 RCONDV-REF2532 WORK-REF2533 LWORK-REF2534 - IWORK-REF2535 LIWORK-REF2536 BWORK-REF2537 INFO-REF2538)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF744 ':INT32) (N-REF746 ':INT32) + (LDA-REF748 ':INT32) (LDB-REF750 ':INT32) + (SDIM-REF751 ':INT32) (LDVSL-REF756 ':INT32) + (LDVSR-REF758 ':INT32) (LWORK-REF762 ':INT32) + (LIWORK-REF764 ':INT32) (INFO-REF766 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF744 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF746 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF748 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF750 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF751 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF756 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF758 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF762 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF764 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF766 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF747 A) (B-REF749 B) + (ALPHAR-REF752 ALPHAR) + (ALPHAI-REF753 ALPHAI) + (BETA-REF754 BETA) (VSL-REF755 VSL) + (VSR-REF757 VSR) + (RCONDE-REF759 RCONDE) + (RCONDV-REF760 RCONDV) + (WORK-REF761 WORK) + (IWORK-REF763 IWORK) + (BWORK-REF765 BWORK)) + (COMMON-LISP:VALUES + (%%DGGESX JOBVSL JOBVSR SORT SELCTG-REF744 SENSE N-REF746 A-REF747 + LDA-REF748 B-REF749 LDB-REF750 SDIM-REF751 ALPHAR-REF752 ALPHAI-REF753 + BETA-REF754 VSL-REF755 LDVSL-REF756 VSR-REF757 LDVSR-REF758 + RCONDE-REF759 RCONDV-REF760 WORK-REF761 LWORK-REF762 IWORK-REF763 + LIWORK-REF764 BWORK-REF765 INFO-REF766) + (CFFI:MEM-REF SELCTG-REF744 ':INT32) (CFFI:MEM-REF N-REF746 ':INT32) + (CFFI:MEM-REF LDA-REF748 ':INT32) (CFFI:MEM-REF LDB-REF750 ':INT32) + (CFFI:MEM-REF SDIM-REF751 ':INT32) (CFFI:MEM-REF LDVSL-REF756 ':INT32) + (CFFI:MEM-REF LDVSR-REF758 ':INT32) (CFFI:MEM-REF LWORK-REF762 ':INT32) + (CFFI:MEM-REF LIWORK-REF764 ':INT32) + (CFFI:MEM-REF INFO-REF766 ':INT32))))) (CFFI:DEFCFUN ("dlaorhr_col_getrfnp_" %%DLAORHR_COL_GETRFNP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -3752,15 +4020,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2539 ':INT32) (N-REF2540 ':INT32) - (LDA-REF2542 ':INT32) (INFO-REF2544 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2539 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2540 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2542 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2544 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2541 A) (D-REF2543 D)) - (%%DLAORHR_COL_GETRFNP M-REF2539 N-REF2540 A-REF2541 LDA-REF2542 - D-REF2543 INFO-REF2544)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF767 ':INT32) (N-REF768 ':INT32) + (LDA-REF770 ':INT32) (INFO-REF772 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF767 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF768 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF770 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF772 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF769 A) (D-REF771 D)) + (COMMON-LISP:VALUES + (%%DLAORHR_COL_GETRFNP M-REF767 N-REF768 A-REF769 LDA-REF770 D-REF771 + INFO-REF772) + (CFFI:MEM-REF M-REF767 ':INT32) (CFFI:MEM-REF N-REF768 ':INT32) + (CFFI:MEM-REF LDA-REF770 ':INT32) (CFFI:MEM-REF INFO-REF772 ':INT32))))) (CFFI:DEFCFUN ("dlaorhr_col_getrfnp2_" %%DLAORHR_COL_GETRFNP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -3782,15 +4053,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2545 ':INT32) (N-REF2546 ':INT32) - (LDA-REF2548 ':INT32) (INFO-REF2550 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2545 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2546 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2548 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2550 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2547 A) (D-REF2549 D)) - (%%DLAORHR_COL_GETRFNP2 M-REF2545 N-REF2546 A-REF2547 LDA-REF2548 - D-REF2549 INFO-REF2550)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF773 ':INT32) (N-REF774 ':INT32) + (LDA-REF776 ':INT32) (INFO-REF778 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF773 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF774 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF776 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF778 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF775 A) (D-REF777 D)) + (COMMON-LISP:VALUES + (%%DLAORHR_COL_GETRFNP2 M-REF773 N-REF774 A-REF775 LDA-REF776 D-REF777 + INFO-REF778) + (CFFI:MEM-REF M-REF773 ':INT32) (CFFI:MEM-REF N-REF774 ':INT32) + (CFFI:MEM-REF LDA-REF776 ':INT32) (CFFI:MEM-REF INFO-REF778 ':INT32))))) (CFFI:DEFCFUN ("dorglq_" %%DORGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -3820,19 +4094,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2551 ':INT32) (N-REF2552 ':INT32) - (K-REF2553 ':INT32) (LDA-REF2555 ':INT32) - (LWORK-REF2558 ':INT32) (INFO-REF2559 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2551 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2552 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2553 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2555 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2558 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2559 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2554 A) (TAU-REF2556 TAU) - (WORK-REF2557 WORK)) - (%%DORGLQ M-REF2551 N-REF2552 K-REF2553 A-REF2554 LDA-REF2555 TAU-REF2556 - WORK-REF2557 LWORK-REF2558 INFO-REF2559)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF779 ':INT32) (N-REF780 ':INT32) + (K-REF781 ':INT32) (LDA-REF783 ':INT32) + (LWORK-REF786 ':INT32) (INFO-REF787 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF779 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF780 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF781 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF783 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF786 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF787 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF782 A) (TAU-REF784 TAU) + (WORK-REF785 WORK)) + (COMMON-LISP:VALUES + (%%DORGLQ M-REF779 N-REF780 K-REF781 A-REF782 LDA-REF783 TAU-REF784 + WORK-REF785 LWORK-REF786 INFO-REF787) + (CFFI:MEM-REF M-REF779 ':INT32) (CFFI:MEM-REF N-REF780 ':INT32) + (CFFI:MEM-REF K-REF781 ':INT32) (CFFI:MEM-REF LDA-REF783 ':INT32) + (CFFI:MEM-REF LWORK-REF786 ':INT32) + (CFFI:MEM-REF INFO-REF787 ':INT32))))) (CFFI:DEFCFUN ("dorgql_" %%DORGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -3862,19 +4141,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2560 ':INT32) (N-REF2561 ':INT32) - (K-REF2562 ':INT32) (LDA-REF2564 ':INT32) - (LWORK-REF2567 ':INT32) (INFO-REF2568 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2560 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2561 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2562 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2564 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2567 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2568 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2563 A) (TAU-REF2565 TAU) - (WORK-REF2566 WORK)) - (%%DORGQL M-REF2560 N-REF2561 K-REF2562 A-REF2563 LDA-REF2564 TAU-REF2565 - WORK-REF2566 LWORK-REF2567 INFO-REF2568)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF788 ':INT32) (N-REF789 ':INT32) + (K-REF790 ':INT32) (LDA-REF792 ':INT32) + (LWORK-REF795 ':INT32) (INFO-REF796 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF788 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF789 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF790 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF792 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF795 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF796 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF791 A) (TAU-REF793 TAU) + (WORK-REF794 WORK)) + (COMMON-LISP:VALUES + (%%DORGQL M-REF788 N-REF789 K-REF790 A-REF791 LDA-REF792 TAU-REF793 + WORK-REF794 LWORK-REF795 INFO-REF796) + (CFFI:MEM-REF M-REF788 ':INT32) (CFFI:MEM-REF N-REF789 ':INT32) + (CFFI:MEM-REF K-REF790 ':INT32) (CFFI:MEM-REF LDA-REF792 ':INT32) + (CFFI:MEM-REF LWORK-REF795 ':INT32) + (CFFI:MEM-REF INFO-REF796 ':INT32))))) (CFFI:DEFCFUN ("dorgqr_" %%DORGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -3904,19 +4188,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2569 ':INT32) (N-REF2570 ':INT32) - (K-REF2571 ':INT32) (LDA-REF2573 ':INT32) - (LWORK-REF2576 ':INT32) (INFO-REF2577 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2569 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2570 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2571 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2573 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2576 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2577 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2572 A) (TAU-REF2574 TAU) - (WORK-REF2575 WORK)) - (%%DORGQR M-REF2569 N-REF2570 K-REF2571 A-REF2572 LDA-REF2573 TAU-REF2574 - WORK-REF2575 LWORK-REF2576 INFO-REF2577)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF797 ':INT32) (N-REF798 ':INT32) + (K-REF799 ':INT32) (LDA-REF801 ':INT32) + (LWORK-REF804 ':INT32) (INFO-REF805 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF797 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF798 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF799 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF801 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF804 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF805 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF800 A) (TAU-REF802 TAU) + (WORK-REF803 WORK)) + (COMMON-LISP:VALUES + (%%DORGQR M-REF797 N-REF798 K-REF799 A-REF800 LDA-REF801 TAU-REF802 + WORK-REF803 LWORK-REF804 INFO-REF805) + (CFFI:MEM-REF M-REF797 ':INT32) (CFFI:MEM-REF N-REF798 ':INT32) + (CFFI:MEM-REF K-REF799 ':INT32) (CFFI:MEM-REF LDA-REF801 ':INT32) + (CFFI:MEM-REF LWORK-REF804 ':INT32) + (CFFI:MEM-REF INFO-REF805 ':INT32))))) (CFFI:DEFCFUN ("dorgrq_" %%DORGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -3946,19 +4235,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2578 ':INT32) (N-REF2579 ':INT32) - (K-REF2580 ':INT32) (LDA-REF2582 ':INT32) - (LWORK-REF2585 ':INT32) (INFO-REF2586 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2578 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2579 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2580 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2582 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2585 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2586 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2581 A) (TAU-REF2583 TAU) - (WORK-REF2584 WORK)) - (%%DORGRQ M-REF2578 N-REF2579 K-REF2580 A-REF2581 LDA-REF2582 TAU-REF2583 - WORK-REF2584 LWORK-REF2585 INFO-REF2586)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF806 ':INT32) (N-REF807 ':INT32) + (K-REF808 ':INT32) (LDA-REF810 ':INT32) + (LWORK-REF813 ':INT32) (INFO-REF814 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF806 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF807 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF808 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF810 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF813 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF814 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF809 A) (TAU-REF811 TAU) + (WORK-REF812 WORK)) + (COMMON-LISP:VALUES + (%%DORGRQ M-REF806 N-REF807 K-REF808 A-REF809 LDA-REF810 TAU-REF811 + WORK-REF812 LWORK-REF813 INFO-REF814) + (CFFI:MEM-REF M-REF806 ':INT32) (CFFI:MEM-REF N-REF807 ':INT32) + (CFFI:MEM-REF K-REF808 ':INT32) (CFFI:MEM-REF LDA-REF810 ':INT32) + (CFFI:MEM-REF LWORK-REF813 ':INT32) + (CFFI:MEM-REF INFO-REF814 ':INT32))))) (CFFI:DEFCFUN ("sgees_" %%SGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4006,24 +4300,29 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF2589 ':INT32) (N-REF2590 ':INT32) - (LDA-REF2592 ':INT32) (SDIM-REF2593 ':INT32) - (LDVS-REF2597 ':INT32) (LWORK-REF2599 ':INT32) - (INFO-REF2601 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF2589 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2590 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2592 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF2593 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF2597 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2599 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2601 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2591 A) (WR-REF2594 WR) - (WI-REF2595 WI) (VS-REF2596 VS) - (WORK-REF2598 WORK) - (BWORK-REF2600 BWORK)) - (%%SGEES JOBVS SORT SELECT-REF2589 N-REF2590 A-REF2591 LDA-REF2592 - SDIM-REF2593 WR-REF2594 WI-REF2595 VS-REF2596 LDVS-REF2597 WORK-REF2598 - LWORK-REF2599 BWORK-REF2600 INFO-REF2601)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF817 ':INT32) (N-REF818 ':INT32) + (LDA-REF820 ':INT32) (SDIM-REF821 ':INT32) + (LDVS-REF825 ':INT32) (LWORK-REF827 ':INT32) + (INFO-REF829 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF817 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF818 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF820 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF821 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF825 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF827 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF829 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF819 A) (WR-REF822 WR) + (WI-REF823 WI) (VS-REF824 VS) + (WORK-REF826 WORK) + (BWORK-REF828 BWORK)) + (COMMON-LISP:VALUES + (%%SGEES JOBVS SORT SELECT-REF817 N-REF818 A-REF819 LDA-REF820 + SDIM-REF821 WR-REF822 WI-REF823 VS-REF824 LDVS-REF825 WORK-REF826 + LWORK-REF827 BWORK-REF828 INFO-REF829) + (CFFI:MEM-REF SELECT-REF817 ':INT32) (CFFI:MEM-REF N-REF818 ':INT32) + (CFFI:MEM-REF LDA-REF820 ':INT32) (CFFI:MEM-REF SDIM-REF821 ':INT32) + (CFFI:MEM-REF LDVS-REF825 ':INT32) (CFFI:MEM-REF LWORK-REF827 ':INT32) + (CFFI:MEM-REF INFO-REF829 ':INT32))))) (CFFI:DEFCFUN ("sgeesx_" %%SGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4084,30 +4383,37 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF2604 ':INT32) (N-REF2606 ':INT32) - (LDA-REF2608 ':INT32) (SDIM-REF2609 ':INT32) - (LDVS-REF2613 ':INT32) (RCONDE-REF2614 ':FLOAT) - (RCONDV-REF2615 ':FLOAT) (LWORK-REF2617 ':INT32) - (LIWORK-REF2619 ':INT32) (INFO-REF2621 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF2604 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2606 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2608 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF2609 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF2613 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF2614 :FLOAT) RCONDE) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF2615 :FLOAT) RCONDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2617 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2619 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2621 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2607 A) (WR-REF2610 WR) - (WI-REF2611 WI) (VS-REF2612 VS) - (WORK-REF2616 WORK) - (IWORK-REF2618 IWORK) - (BWORK-REF2620 BWORK)) - (%%SGEESX JOBVS SORT SELECT-REF2604 SENSE N-REF2606 A-REF2607 LDA-REF2608 - SDIM-REF2609 WR-REF2610 WI-REF2611 VS-REF2612 LDVS-REF2613 - RCONDE-REF2614 RCONDV-REF2615 WORK-REF2616 LWORK-REF2617 IWORK-REF2618 - LIWORK-REF2619 BWORK-REF2620 INFO-REF2621)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF832 ':INT32) (N-REF834 ':INT32) + (LDA-REF836 ':INT32) (SDIM-REF837 ':INT32) + (LDVS-REF841 ':INT32) (RCONDE-REF842 ':FLOAT) + (RCONDV-REF843 ':FLOAT) (LWORK-REF845 ':INT32) + (LIWORK-REF847 ':INT32) (INFO-REF849 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF832 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF834 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF836 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF837 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF841 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF842 :FLOAT) RCONDE) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF843 :FLOAT) RCONDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF845 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF847 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF849 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF835 A) (WR-REF838 WR) + (WI-REF839 WI) (VS-REF840 VS) + (WORK-REF844 WORK) + (IWORK-REF846 IWORK) + (BWORK-REF848 BWORK)) + (COMMON-LISP:VALUES + (%%SGEESX JOBVS SORT SELECT-REF832 SENSE N-REF834 A-REF835 LDA-REF836 + SDIM-REF837 WR-REF838 WI-REF839 VS-REF840 LDVS-REF841 RCONDE-REF842 + RCONDV-REF843 WORK-REF844 LWORK-REF845 IWORK-REF846 LIWORK-REF847 + BWORK-REF848 INFO-REF849) + (CFFI:MEM-REF SELECT-REF832 ':INT32) (CFFI:MEM-REF N-REF834 ':INT32) + (CFFI:MEM-REF LDA-REF836 ':INT32) (CFFI:MEM-REF SDIM-REF837 ':INT32) + (CFFI:MEM-REF LDVS-REF841 ':INT32) (CFFI:MEM-REF RCONDE-REF842 ':FLOAT) + (CFFI:MEM-REF RCONDV-REF843 ':FLOAT) (CFFI:MEM-REF LWORK-REF845 ':INT32) + (CFFI:MEM-REF LIWORK-REF847 ':INT32) + (CFFI:MEM-REF INFO-REF849 ':INT32))))) (CFFI:DEFCFUN ("sgeev_" %%SGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4150,21 +4456,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2624 ':INT32) (LDA-REF2626 ':INT32) - (LDVL-REF2630 ':INT32) (LDVR-REF2632 ':INT32) - (LWORK-REF2634 ':INT32) (INFO-REF2635 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2624 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2626 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF2630 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF2632 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2634 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2635 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2625 A) (WR-REF2627 WR) - (WI-REF2628 WI) (VL-REF2629 VL) - (VR-REF2631 VR) (WORK-REF2633 WORK)) - (%%SGEEV JOBVL JOBVR N-REF2624 A-REF2625 LDA-REF2626 WR-REF2627 - WI-REF2628 VL-REF2629 LDVL-REF2630 VR-REF2631 LDVR-REF2632 WORK-REF2633 - LWORK-REF2634 INFO-REF2635)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF852 ':INT32) (LDA-REF854 ':INT32) + (LDVL-REF858 ':INT32) (LDVR-REF860 ':INT32) + (LWORK-REF862 ':INT32) (INFO-REF863 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF852 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF854 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF858 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF860 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF862 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF863 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF853 A) (WR-REF855 WR) + (WI-REF856 WI) (VL-REF857 VL) + (VR-REF859 VR) (WORK-REF861 WORK)) + (COMMON-LISP:VALUES + (%%SGEEV JOBVL JOBVR N-REF852 A-REF853 LDA-REF854 WR-REF855 WI-REF856 + VL-REF857 LDVL-REF858 VR-REF859 LDVR-REF860 WORK-REF861 LWORK-REF862 + INFO-REF863) + (CFFI:MEM-REF N-REF852 ':INT32) (CFFI:MEM-REF LDA-REF854 ':INT32) + (CFFI:MEM-REF LDVL-REF858 ':INT32) (CFFI:MEM-REF LDVR-REF860 ':INT32) + (CFFI:MEM-REF LWORK-REF862 ':INT32) + (CFFI:MEM-REF INFO-REF863 ':INT32))))) (CFFI:DEFCFUN ("sgeevx_" %%SGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4235,32 +4546,37 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2640 ':INT32) (LDA-REF2642 ':INT32) - (LDVL-REF2646 ':INT32) (LDVR-REF2648 ':INT32) - (ILO-REF2649 ':INT32) (IHI-REF2650 ':INT32) - (ABNRM-REF2652 ':FLOAT) (LWORK-REF2656 ':INT32) - (INFO-REF2658 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2640 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2642 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF2646 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF2648 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2649 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2650 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF2652 :FLOAT) ABNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2656 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2658 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2641 A) (WR-REF2643 WR) - (WI-REF2644 WI) (VL-REF2645 VL) - (VR-REF2647 VR) - (SCALE-REF2651 SCALE) - (RCONDE-REF2653 RCONDE) - (RCONDV-REF2654 RCONDV) - (WORK-REF2655 WORK) - (IWORK-REF2657 IWORK)) - (%%SGEEVX BALANC JOBVL JOBVR SENSE N-REF2640 A-REF2641 LDA-REF2642 - WR-REF2643 WI-REF2644 VL-REF2645 LDVL-REF2646 VR-REF2647 LDVR-REF2648 - ILO-REF2649 IHI-REF2650 SCALE-REF2651 ABNRM-REF2652 RCONDE-REF2653 - RCONDV-REF2654 WORK-REF2655 LWORK-REF2656 IWORK-REF2657 INFO-REF2658)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF868 ':INT32) (LDA-REF870 ':INT32) + (LDVL-REF874 ':INT32) (LDVR-REF876 ':INT32) + (ILO-REF877 ':INT32) (IHI-REF878 ':INT32) + (ABNRM-REF880 ':FLOAT) (LWORK-REF884 ':INT32) + (INFO-REF886 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF868 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF870 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF874 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF876 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF877 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF878 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF880 :FLOAT) ABNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF884 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF886 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF869 A) (WR-REF871 WR) + (WI-REF872 WI) (VL-REF873 VL) + (VR-REF875 VR) (SCALE-REF879 SCALE) + (RCONDE-REF881 RCONDE) + (RCONDV-REF882 RCONDV) + (WORK-REF883 WORK) + (IWORK-REF885 IWORK)) + (COMMON-LISP:VALUES + (%%SGEEVX BALANC JOBVL JOBVR SENSE N-REF868 A-REF869 LDA-REF870 + WR-REF871 WI-REF872 VL-REF873 LDVL-REF874 VR-REF875 LDVR-REF876 + ILO-REF877 IHI-REF878 SCALE-REF879 ABNRM-REF880 RCONDE-REF881 + RCONDV-REF882 WORK-REF883 LWORK-REF884 IWORK-REF885 INFO-REF886) + (CFFI:MEM-REF N-REF868 ':INT32) (CFFI:MEM-REF LDA-REF870 ':INT32) + (CFFI:MEM-REF LDVL-REF874 ':INT32) (CFFI:MEM-REF LDVR-REF876 ':INT32) + (CFFI:MEM-REF ILO-REF877 ':INT32) (CFFI:MEM-REF IHI-REF878 ':INT32) + (CFFI:MEM-REF ABNRM-REF880 ':FLOAT) (CFFI:MEM-REF LWORK-REF884 ':INT32) + (CFFI:MEM-REF INFO-REF886 ':INT32))))) (CFFI:DEFCFUN ("sgelqf_" %%SGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4288,18 +4604,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2659 ':INT32) (N-REF2660 ':INT32) - (LDA-REF2662 ':INT32) (LWORK-REF2665 ':INT32) - (INFO-REF2666 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2659 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2660 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2662 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2665 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2666 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2661 A) (TAU-REF2663 TAU) - (WORK-REF2664 WORK)) - (%%SGELQF M-REF2659 N-REF2660 A-REF2661 LDA-REF2662 TAU-REF2663 - WORK-REF2664 LWORK-REF2665 INFO-REF2666)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF887 ':INT32) (N-REF888 ':INT32) + (LDA-REF890 ':INT32) (LWORK-REF893 ':INT32) + (INFO-REF894 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF887 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF888 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF890 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF893 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF894 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF889 A) (TAU-REF891 TAU) + (WORK-REF892 WORK)) + (COMMON-LISP:VALUES + (%%SGELQF M-REF887 N-REF888 A-REF889 LDA-REF890 TAU-REF891 WORK-REF892 + LWORK-REF893 INFO-REF894) + (CFFI:MEM-REF M-REF887 ':INT32) (CFFI:MEM-REF N-REF888 ':INT32) + (CFFI:MEM-REF LDA-REF890 ':INT32) (CFFI:MEM-REF LWORK-REF893 ':INT32) + (CFFI:MEM-REF INFO-REF894 ':INT32))))) (CFFI:DEFCFUN ("sgeqlf_" %%SGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4327,18 +4647,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2667 ':INT32) (N-REF2668 ':INT32) - (LDA-REF2670 ':INT32) (LWORK-REF2673 ':INT32) - (INFO-REF2674 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2667 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2668 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2670 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2673 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2674 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2669 A) (TAU-REF2671 TAU) - (WORK-REF2672 WORK)) - (%%SGEQLF M-REF2667 N-REF2668 A-REF2669 LDA-REF2670 TAU-REF2671 - WORK-REF2672 LWORK-REF2673 INFO-REF2674)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF895 ':INT32) (N-REF896 ':INT32) + (LDA-REF898 ':INT32) (LWORK-REF901 ':INT32) + (INFO-REF902 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF895 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF896 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF898 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF901 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF902 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF897 A) (TAU-REF899 TAU) + (WORK-REF900 WORK)) + (COMMON-LISP:VALUES + (%%SGEQLF M-REF895 N-REF896 A-REF897 LDA-REF898 TAU-REF899 WORK-REF900 + LWORK-REF901 INFO-REF902) + (CFFI:MEM-REF M-REF895 ':INT32) (CFFI:MEM-REF N-REF896 ':INT32) + (CFFI:MEM-REF LDA-REF898 ':INT32) (CFFI:MEM-REF LWORK-REF901 ':INT32) + (CFFI:MEM-REF INFO-REF902 ':INT32))))) (CFFI:DEFCFUN ("sgeqrf_" %%SGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4366,18 +4690,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2675 ':INT32) (N-REF2676 ':INT32) - (LDA-REF2678 ':INT32) (LWORK-REF2681 ':INT32) - (INFO-REF2682 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2675 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2676 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2678 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2681 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2682 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2677 A) (TAU-REF2679 TAU) - (WORK-REF2680 WORK)) - (%%SGEQRF M-REF2675 N-REF2676 A-REF2677 LDA-REF2678 TAU-REF2679 - WORK-REF2680 LWORK-REF2681 INFO-REF2682)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF903 ':INT32) (N-REF904 ':INT32) + (LDA-REF906 ':INT32) (LWORK-REF909 ':INT32) + (INFO-REF910 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF903 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF904 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF906 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF909 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF910 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF905 A) (TAU-REF907 TAU) + (WORK-REF908 WORK)) + (COMMON-LISP:VALUES + (%%SGEQRF M-REF903 N-REF904 A-REF905 LDA-REF906 TAU-REF907 WORK-REF908 + LWORK-REF909 INFO-REF910) + (CFFI:MEM-REF M-REF903 ':INT32) (CFFI:MEM-REF N-REF904 ':INT32) + (CFFI:MEM-REF LDA-REF906 ':INT32) (CFFI:MEM-REF LWORK-REF909 ':INT32) + (CFFI:MEM-REF INFO-REF910 ':INT32))))) (CFFI:DEFCFUN ("sgeqrfp_" %%SGEQRFP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -4406,18 +4734,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2683 ':INT32) (N-REF2684 ':INT32) - (LDA-REF2686 ':INT32) (LWORK-REF2689 ':INT32) - (INFO-REF2690 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2683 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2684 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2686 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2689 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2690 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2685 A) (TAU-REF2687 TAU) - (WORK-REF2688 WORK)) - (%%SGEQRFP M-REF2683 N-REF2684 A-REF2685 LDA-REF2686 TAU-REF2687 - WORK-REF2688 LWORK-REF2689 INFO-REF2690)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF911 ':INT32) (N-REF912 ':INT32) + (LDA-REF914 ':INT32) (LWORK-REF917 ':INT32) + (INFO-REF918 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF911 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF912 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF914 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF917 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF918 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF913 A) (TAU-REF915 TAU) + (WORK-REF916 WORK)) + (COMMON-LISP:VALUES + (%%SGEQRFP M-REF911 N-REF912 A-REF913 LDA-REF914 TAU-REF915 WORK-REF916 + LWORK-REF917 INFO-REF918) + (CFFI:MEM-REF M-REF911 ':INT32) (CFFI:MEM-REF N-REF912 ':INT32) + (CFFI:MEM-REF LDA-REF914 ':INT32) (CFFI:MEM-REF LWORK-REF917 ':INT32) + (CFFI:MEM-REF INFO-REF918 ':INT32))))) (CFFI:DEFCFUN ("sgerqf_" %%SGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4445,18 +4777,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2691 ':INT32) (N-REF2692 ':INT32) - (LDA-REF2694 ':INT32) (LWORK-REF2697 ':INT32) - (INFO-REF2698 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2691 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2692 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2694 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2697 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2698 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2693 A) (TAU-REF2695 TAU) - (WORK-REF2696 WORK)) - (%%SGERQF M-REF2691 N-REF2692 A-REF2693 LDA-REF2694 TAU-REF2695 - WORK-REF2696 LWORK-REF2697 INFO-REF2698)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF919 ':INT32) (N-REF920 ':INT32) + (LDA-REF922 ':INT32) (LWORK-REF925 ':INT32) + (INFO-REF926 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF919 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF920 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF922 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF925 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF926 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF921 A) (TAU-REF923 TAU) + (WORK-REF924 WORK)) + (COMMON-LISP:VALUES + (%%SGERQF M-REF919 N-REF920 A-REF921 LDA-REF922 TAU-REF923 WORK-REF924 + LWORK-REF925 INFO-REF926) + (CFFI:MEM-REF M-REF919 ':INT32) (CFFI:MEM-REF N-REF920 ':INT32) + (CFFI:MEM-REF LDA-REF922 ':INT32) (CFFI:MEM-REF LWORK-REF925 ':INT32) + (CFFI:MEM-REF INFO-REF926 ':INT32))))) (CFFI:DEFCFUN ("sgesvd_" %%SGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4498,23 +4834,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2701 ':INT32) (N-REF2702 ':INT32) - (LDA-REF2704 ':INT32) (LDU-REF2707 ':INT32) - (LDVT-REF2709 ':INT32) (LWORK-REF2711 ':INT32) - (INFO-REF2712 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2701 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2702 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2704 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF2707 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF2709 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2711 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2712 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2703 A) (S-REF2705 S) - (U-REF2706 U) (VT-REF2708 VT) - (WORK-REF2710 WORK)) - (%%SGESVD JOBU JOBVT M-REF2701 N-REF2702 A-REF2703 LDA-REF2704 S-REF2705 - U-REF2706 LDU-REF2707 VT-REF2708 LDVT-REF2709 WORK-REF2710 LWORK-REF2711 - INFO-REF2712)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF929 ':INT32) (N-REF930 ':INT32) + (LDA-REF932 ':INT32) (LDU-REF935 ':INT32) + (LDVT-REF937 ':INT32) (LWORK-REF939 ':INT32) + (INFO-REF940 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF929 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF930 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF932 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF935 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF937 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF939 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF940 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF931 A) (S-REF933 S) + (U-REF934 U) (VT-REF936 VT) + (WORK-REF938 WORK)) + (COMMON-LISP:VALUES + (%%SGESVD JOBU JOBVT M-REF929 N-REF930 A-REF931 LDA-REF932 S-REF933 + U-REF934 LDU-REF935 VT-REF936 LDVT-REF937 WORK-REF938 LWORK-REF939 + INFO-REF940) + (CFFI:MEM-REF M-REF929 ':INT32) (CFFI:MEM-REF N-REF930 ':INT32) + (CFFI:MEM-REF LDA-REF932 ':INT32) (CFFI:MEM-REF LDU-REF935 ':INT32) + (CFFI:MEM-REF LDVT-REF937 ':INT32) (CFFI:MEM-REF LWORK-REF939 ':INT32) + (CFFI:MEM-REF INFO-REF940 ':INT32))))) (CFFI:DEFCFUN ("sgesvdq_" %%SGESVDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -4579,30 +4920,37 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2718 ':INT32) (N-REF2719 ':INT32) - (LDA-REF2721 ':INT32) (LDU-REF2724 ':INT32) - (LDV-REF2726 ':INT32) (NUMRANK-REF2727 ':INT32) - (LIWORK-REF2729 ':INT32) (LWORK-REF2731 ':INT32) - (LRWORK-REF2733 ':INT32) (INFO-REF2734 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2718 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2719 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2721 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF2724 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF2726 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF2727 :INT32) NUMRANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2729 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2731 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2733 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2734 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2720 A) (S-REF2722 S) - (U-REF2723 U) (V-REF2725 V) - (IWORK-REF2728 IWORK) - (WORK-REF2730 WORK) - (RWORK-REF2732 RWORK)) - (%%SGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF2718 N-REF2719 A-REF2720 - LDA-REF2721 S-REF2722 U-REF2723 LDU-REF2724 V-REF2725 LDV-REF2726 - NUMRANK-REF2727 IWORK-REF2728 LIWORK-REF2729 WORK-REF2730 LWORK-REF2731 - RWORK-REF2732 LRWORK-REF2733 INFO-REF2734)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF946 ':INT32) (N-REF947 ':INT32) + (LDA-REF949 ':INT32) (LDU-REF952 ':INT32) + (LDV-REF954 ':INT32) (NUMRANK-REF955 ':INT32) + (LIWORK-REF957 ':INT32) (LWORK-REF959 ':INT32) + (LRWORK-REF961 ':INT32) (INFO-REF962 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF946 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF947 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF949 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF952 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF954 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF955 :INT32) NUMRANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF957 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF959 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF961 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF962 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF948 A) (S-REF950 S) + (U-REF951 U) (V-REF953 V) + (IWORK-REF956 IWORK) + (WORK-REF958 WORK) + (RWORK-REF960 RWORK)) + (COMMON-LISP:VALUES + (%%SGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF946 N-REF947 A-REF948 + LDA-REF949 S-REF950 U-REF951 LDU-REF952 V-REF953 LDV-REF954 + NUMRANK-REF955 IWORK-REF956 LIWORK-REF957 WORK-REF958 LWORK-REF959 + RWORK-REF960 LRWORK-REF961 INFO-REF962) + (CFFI:MEM-REF M-REF946 ':INT32) (CFFI:MEM-REF N-REF947 ':INT32) + (CFFI:MEM-REF LDA-REF949 ':INT32) (CFFI:MEM-REF LDU-REF952 ':INT32) + (CFFI:MEM-REF LDV-REF954 ':INT32) (CFFI:MEM-REF NUMRANK-REF955 ':INT32) + (CFFI:MEM-REF LIWORK-REF957 ':INT32) (CFFI:MEM-REF LWORK-REF959 ':INT32) + (CFFI:MEM-REF LRWORK-REF961 ':INT32) + (CFFI:MEM-REF INFO-REF962 ':INT32))))) (CFFI:DEFCFUN ("sgesvdx_" %%SGESVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -4663,32 +5011,40 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2738 ':INT32) (N-REF2739 ':INT32) - (LDA-REF2741 ':INT32) (VL-REF2742 ':FLOAT) - (VU-REF2743 ':FLOAT) (IL-REF2744 ':INT32) - (IU-REF2745 ':INT32) (NS-REF2746 ':INT32) - (LDU-REF2749 ':INT32) (LDVT-REF2751 ':INT32) - (LWORK-REF2753 ':INT32) (INFO-REF2755 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2738 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2739 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2741 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2742 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2743 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2744 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2745 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF2746 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF2749 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF2751 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2753 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2755 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2740 A) (S-REF2747 S) - (U-REF2748 U) (VT-REF2750 VT) - (WORK-REF2752 WORK) - (IWORK-REF2754 IWORK)) - (%%SGESVDX JOBU JOBVT RANGE M-REF2738 N-REF2739 A-REF2740 LDA-REF2741 - VL-REF2742 VU-REF2743 IL-REF2744 IU-REF2745 NS-REF2746 S-REF2747 - U-REF2748 LDU-REF2749 VT-REF2750 LDVT-REF2751 WORK-REF2752 LWORK-REF2753 - IWORK-REF2754 INFO-REF2755)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF966 ':INT32) (N-REF967 ':INT32) + (LDA-REF969 ':INT32) (VL-REF970 ':FLOAT) + (VU-REF971 ':FLOAT) (IL-REF972 ':INT32) + (IU-REF973 ':INT32) (NS-REF974 ':INT32) + (LDU-REF977 ':INT32) (LDVT-REF979 ':INT32) + (LWORK-REF981 ':INT32) (INFO-REF983 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF966 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF967 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF969 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF970 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF971 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF972 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF973 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF974 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF977 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF979 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF981 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF983 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF968 A) (S-REF975 S) + (U-REF976 U) (VT-REF978 VT) + (WORK-REF980 WORK) + (IWORK-REF982 IWORK)) + (COMMON-LISP:VALUES + (%%SGESVDX JOBU JOBVT RANGE M-REF966 N-REF967 A-REF968 LDA-REF969 + VL-REF970 VU-REF971 IL-REF972 IU-REF973 NS-REF974 S-REF975 U-REF976 + LDU-REF977 VT-REF978 LDVT-REF979 WORK-REF980 LWORK-REF981 IWORK-REF982 + INFO-REF983) + (CFFI:MEM-REF M-REF966 ':INT32) (CFFI:MEM-REF N-REF967 ':INT32) + (CFFI:MEM-REF LDA-REF969 ':INT32) (CFFI:MEM-REF VL-REF970 ':FLOAT) + (CFFI:MEM-REF VU-REF971 ':FLOAT) (CFFI:MEM-REF IL-REF972 ':INT32) + (CFFI:MEM-REF IU-REF973 ':INT32) (CFFI:MEM-REF NS-REF974 ':INT32) + (CFFI:MEM-REF LDU-REF977 ':INT32) (CFFI:MEM-REF LDVT-REF979 ':INT32) + (CFFI:MEM-REF LWORK-REF981 ':INT32) + (CFFI:MEM-REF INFO-REF983 ':INT32))))) (CFFI:DEFCFUN ("sgetrf_" %%SGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4711,15 +5067,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2756 ':INT32) (N-REF2757 ':INT32) - (LDA-REF2759 ':INT32) (INFO-REF2761 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2756 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2757 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2759 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2761 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2758 A) (IPIV-REF2760 IPIV)) - (%%SGETRF M-REF2756 N-REF2757 A-REF2758 LDA-REF2759 IPIV-REF2760 - INFO-REF2761)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF984 ':INT32) (N-REF985 ':INT32) + (LDA-REF987 ':INT32) (INFO-REF989 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF984 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF985 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF987 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF989 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF986 A) (IPIV-REF988 IPIV)) + (COMMON-LISP:VALUES + (%%SGETRF M-REF984 N-REF985 A-REF986 LDA-REF987 IPIV-REF988 INFO-REF989) + (CFFI:MEM-REF M-REF984 ':INT32) (CFFI:MEM-REF N-REF985 ':INT32) + (CFFI:MEM-REF LDA-REF987 ':INT32) (CFFI:MEM-REF INFO-REF989 ':INT32))))) (CFFI:DEFCFUN ("sgetrf2_" %%SGETRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -4743,15 +5101,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2762 ':INT32) (N-REF2763 ':INT32) - (LDA-REF2765 ':INT32) (INFO-REF2767 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2762 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2763 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2765 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2767 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2764 A) (IPIV-REF2766 IPIV)) - (%%SGETRF2 M-REF2762 N-REF2763 A-REF2764 LDA-REF2765 IPIV-REF2766 - INFO-REF2767)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF990 ':INT32) (N-REF991 ':INT32) + (LDA-REF993 ':INT32) (INFO-REF995 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF990 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF991 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF993 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF995 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF992 A) (IPIV-REF994 IPIV)) + (COMMON-LISP:VALUES + (%%SGETRF2 M-REF990 N-REF991 A-REF992 LDA-REF993 IPIV-REF994 + INFO-REF995) + (CFFI:MEM-REF M-REF990 ':INT32) (CFFI:MEM-REF N-REF991 ':INT32) + (CFFI:MEM-REF LDA-REF993 ':INT32) (CFFI:MEM-REF INFO-REF995 ':INT32))))) (CFFI:DEFCFUN ("sgetri_" %%SGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4778,16 +5139,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2768 ':INT32) (LDA-REF2770 ':INT32) - (LWORK-REF2773 ':INT32) (INFO-REF2774 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2768 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2770 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2773 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2774 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2769 A) (IPIV-REF2771 IPIV) - (WORK-REF2772 WORK)) - (%%SGETRI N-REF2768 A-REF2769 LDA-REF2770 IPIV-REF2771 WORK-REF2772 - LWORK-REF2773 INFO-REF2774)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF996 ':INT32) (LDA-REF998 ':INT32) + (LWORK-REF1001 ':INT32) (INFO-REF1002 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF996 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF998 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1001 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1002 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF997 A) (IPIV-REF999 IPIV) + (WORK-REF1000 WORK)) + (COMMON-LISP:VALUES + (%%SGETRI N-REF996 A-REF997 LDA-REF998 IPIV-REF999 WORK-REF1000 + LWORK-REF1001 INFO-REF1002) + (CFFI:MEM-REF N-REF996 ':INT32) (CFFI:MEM-REF LDA-REF998 ':INT32) + (CFFI:MEM-REF LWORK-REF1001 ':INT32) + (CFFI:MEM-REF INFO-REF1002 ':INT32))))) (CFFI:DEFCFUN ("sgetrs_" %%SGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4817,18 +5182,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2776 ':INT32) (NRHS-REF2777 ':INT32) - (LDA-REF2779 ':INT32) (LDB-REF2782 ':INT32) - (INFO-REF2783 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2776 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2777 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2779 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2782 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2783 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2778 A) (IPIV-REF2780 IPIV) - (B-REF2781 B)) - (%%SGETRS TRANS N-REF2776 NRHS-REF2777 A-REF2778 LDA-REF2779 IPIV-REF2780 - B-REF2781 LDB-REF2782 INFO-REF2783)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1004 ':INT32) (NRHS-REF1005 ':INT32) + (LDA-REF1007 ':INT32) (LDB-REF1010 ':INT32) + (INFO-REF1011 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1004 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1005 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1007 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1010 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1011 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1006 A) (IPIV-REF1008 IPIV) + (B-REF1009 B)) + (COMMON-LISP:VALUES + (%%SGETRS TRANS N-REF1004 NRHS-REF1005 A-REF1006 LDA-REF1007 + IPIV-REF1008 B-REF1009 LDB-REF1010 INFO-REF1011) + (CFFI:MEM-REF N-REF1004 ':INT32) (CFFI:MEM-REF NRHS-REF1005 ':INT32) + (CFFI:MEM-REF LDA-REF1007 ':INT32) (CFFI:MEM-REF LDB-REF1010 ':INT32) + (CFFI:MEM-REF INFO-REF1011 ':INT32))))) (CFFI:DEFCFUN ("sgges_" %%SGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4896,31 +5265,38 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF2787 ':INT32) (N-REF2788 ':INT32) - (LDA-REF2790 ':INT32) (LDB-REF2792 ':INT32) - (SDIM-REF2793 ':INT32) (LDVSL-REF2798 ':INT32) - (LDVSR-REF2800 ':INT32) (LWORK-REF2802 ':INT32) - (INFO-REF2804 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF2787 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2788 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2790 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2792 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF2793 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF2798 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF2800 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2802 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2804 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2789 A) (B-REF2791 B) - (ALPHAR-REF2794 ALPHAR) - (ALPHAI-REF2795 ALPHAI) - (BETA-REF2796 BETA) - (VSL-REF2797 VSL) (VSR-REF2799 VSR) - (WORK-REF2801 WORK) - (BWORK-REF2803 BWORK)) - (%%SGGES JOBVSL JOBVSR SORT SELCTG-REF2787 N-REF2788 A-REF2789 - LDA-REF2790 B-REF2791 LDB-REF2792 SDIM-REF2793 ALPHAR-REF2794 - ALPHAI-REF2795 BETA-REF2796 VSL-REF2797 LDVSL-REF2798 VSR-REF2799 - LDVSR-REF2800 WORK-REF2801 LWORK-REF2802 BWORK-REF2803 INFO-REF2804)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1015 ':INT32) (N-REF1016 ':INT32) + (LDA-REF1018 ':INT32) (LDB-REF1020 ':INT32) + (SDIM-REF1021 ':INT32) (LDVSL-REF1026 ':INT32) + (LDVSR-REF1028 ':INT32) (LWORK-REF1030 ':INT32) + (INFO-REF1032 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1015 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1016 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1018 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1020 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1021 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1026 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1028 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1030 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1032 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1017 A) (B-REF1019 B) + (ALPHAR-REF1022 ALPHAR) + (ALPHAI-REF1023 ALPHAI) + (BETA-REF1024 BETA) + (VSL-REF1025 VSL) (VSR-REF1027 VSR) + (WORK-REF1029 WORK) + (BWORK-REF1031 BWORK)) + (COMMON-LISP:VALUES + (%%SGGES JOBVSL JOBVSR SORT SELCTG-REF1015 N-REF1016 A-REF1017 + LDA-REF1018 B-REF1019 LDB-REF1020 SDIM-REF1021 ALPHAR-REF1022 + ALPHAI-REF1023 BETA-REF1024 VSL-REF1025 LDVSL-REF1026 VSR-REF1027 + LDVSR-REF1028 WORK-REF1029 LWORK-REF1030 BWORK-REF1031 INFO-REF1032) + (CFFI:MEM-REF SELCTG-REF1015 ':INT32) (CFFI:MEM-REF N-REF1016 ':INT32) + (CFFI:MEM-REF LDA-REF1018 ':INT32) (CFFI:MEM-REF LDB-REF1020 ':INT32) + (CFFI:MEM-REF SDIM-REF1021 ':INT32) (CFFI:MEM-REF LDVSL-REF1026 ':INT32) + (CFFI:MEM-REF LDVSR-REF1028 ':INT32) + (CFFI:MEM-REF LWORK-REF1030 ':INT32) + (CFFI:MEM-REF INFO-REF1032 ':INT32))))) (CFFI:DEFCFUN ("sgges3_" %%SGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -4988,31 +5364,38 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF2808 ':INT32) (N-REF2809 ':INT32) - (LDA-REF2811 ':INT32) (LDB-REF2813 ':INT32) - (SDIM-REF2814 ':INT32) (LDVSL-REF2819 ':INT32) - (LDVSR-REF2821 ':INT32) (LWORK-REF2823 ':INT32) - (INFO-REF2825 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF2808 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2809 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2811 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2813 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF2814 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF2819 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF2821 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2823 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2825 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2810 A) (B-REF2812 B) - (ALPHAR-REF2815 ALPHAR) - (ALPHAI-REF2816 ALPHAI) - (BETA-REF2817 BETA) - (VSL-REF2818 VSL) (VSR-REF2820 VSR) - (WORK-REF2822 WORK) - (BWORK-REF2824 BWORK)) - (%%SGGES3 JOBVSL JOBVSR SORT SELCTG-REF2808 N-REF2809 A-REF2810 - LDA-REF2811 B-REF2812 LDB-REF2813 SDIM-REF2814 ALPHAR-REF2815 - ALPHAI-REF2816 BETA-REF2817 VSL-REF2818 LDVSL-REF2819 VSR-REF2820 - LDVSR-REF2821 WORK-REF2822 LWORK-REF2823 BWORK-REF2824 INFO-REF2825)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1036 ':INT32) (N-REF1037 ':INT32) + (LDA-REF1039 ':INT32) (LDB-REF1041 ':INT32) + (SDIM-REF1042 ':INT32) (LDVSL-REF1047 ':INT32) + (LDVSR-REF1049 ':INT32) (LWORK-REF1051 ':INT32) + (INFO-REF1053 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1036 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1037 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1039 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1041 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1042 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1047 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1049 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1051 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1053 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1038 A) (B-REF1040 B) + (ALPHAR-REF1043 ALPHAR) + (ALPHAI-REF1044 ALPHAI) + (BETA-REF1045 BETA) + (VSL-REF1046 VSL) (VSR-REF1048 VSR) + (WORK-REF1050 WORK) + (BWORK-REF1052 BWORK)) + (COMMON-LISP:VALUES + (%%SGGES3 JOBVSL JOBVSR SORT SELCTG-REF1036 N-REF1037 A-REF1038 + LDA-REF1039 B-REF1040 LDB-REF1041 SDIM-REF1042 ALPHAR-REF1043 + ALPHAI-REF1044 BETA-REF1045 VSL-REF1046 LDVSL-REF1047 VSR-REF1048 + LDVSR-REF1049 WORK-REF1050 LWORK-REF1051 BWORK-REF1052 INFO-REF1053) + (CFFI:MEM-REF SELCTG-REF1036 ':INT32) (CFFI:MEM-REF N-REF1037 ':INT32) + (CFFI:MEM-REF LDA-REF1039 ':INT32) (CFFI:MEM-REF LDB-REF1041 ':INT32) + (CFFI:MEM-REF SDIM-REF1042 ':INT32) (CFFI:MEM-REF LDVSL-REF1047 ':INT32) + (CFFI:MEM-REF LDVSR-REF1049 ':INT32) + (CFFI:MEM-REF LWORK-REF1051 ':INT32) + (CFFI:MEM-REF INFO-REF1053 ':INT32))))) (CFFI:DEFCFUN ("sggesx_" %%SGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5098,36 +5481,44 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF2829 ':INT32) (N-REF2831 ':INT32) - (LDA-REF2833 ':INT32) (LDB-REF2835 ':INT32) - (SDIM-REF2836 ':INT32) (LDVSL-REF2841 ':INT32) - (LDVSR-REF2843 ':INT32) (LWORK-REF2847 ':INT32) - (LIWORK-REF2849 ':INT32) (INFO-REF2851 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF2829 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2831 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2833 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2835 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF2836 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF2841 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF2843 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2847 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2849 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2851 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2832 A) (B-REF2834 B) - (ALPHAR-REF2837 ALPHAR) - (ALPHAI-REF2838 ALPHAI) - (BETA-REF2839 BETA) - (VSL-REF2840 VSL) (VSR-REF2842 VSR) - (RCONDE-REF2844 RCONDE) - (RCONDV-REF2845 RCONDV) - (WORK-REF2846 WORK) - (IWORK-REF2848 IWORK) - (BWORK-REF2850 BWORK)) - (%%SGGESX JOBVSL JOBVSR SORT SELCTG-REF2829 SENSE N-REF2831 A-REF2832 - LDA-REF2833 B-REF2834 LDB-REF2835 SDIM-REF2836 ALPHAR-REF2837 - ALPHAI-REF2838 BETA-REF2839 VSL-REF2840 LDVSL-REF2841 VSR-REF2842 - LDVSR-REF2843 RCONDE-REF2844 RCONDV-REF2845 WORK-REF2846 LWORK-REF2847 - IWORK-REF2848 LIWORK-REF2849 BWORK-REF2850 INFO-REF2851)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1057 ':INT32) (N-REF1059 ':INT32) + (LDA-REF1061 ':INT32) (LDB-REF1063 ':INT32) + (SDIM-REF1064 ':INT32) (LDVSL-REF1069 ':INT32) + (LDVSR-REF1071 ':INT32) (LWORK-REF1075 ':INT32) + (LIWORK-REF1077 ':INT32) (INFO-REF1079 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1057 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1059 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1061 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1063 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1064 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1069 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1071 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1075 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1077 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1079 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1060 A) (B-REF1062 B) + (ALPHAR-REF1065 ALPHAR) + (ALPHAI-REF1066 ALPHAI) + (BETA-REF1067 BETA) + (VSL-REF1068 VSL) (VSR-REF1070 VSR) + (RCONDE-REF1072 RCONDE) + (RCONDV-REF1073 RCONDV) + (WORK-REF1074 WORK) + (IWORK-REF1076 IWORK) + (BWORK-REF1078 BWORK)) + (COMMON-LISP:VALUES + (%%SGGESX JOBVSL JOBVSR SORT SELCTG-REF1057 SENSE N-REF1059 A-REF1060 + LDA-REF1061 B-REF1062 LDB-REF1063 SDIM-REF1064 ALPHAR-REF1065 + ALPHAI-REF1066 BETA-REF1067 VSL-REF1068 LDVSL-REF1069 VSR-REF1070 + LDVSR-REF1071 RCONDE-REF1072 RCONDV-REF1073 WORK-REF1074 LWORK-REF1075 + IWORK-REF1076 LIWORK-REF1077 BWORK-REF1078 INFO-REF1079) + (CFFI:MEM-REF SELCTG-REF1057 ':INT32) (CFFI:MEM-REF N-REF1059 ':INT32) + (CFFI:MEM-REF LDA-REF1061 ':INT32) (CFFI:MEM-REF LDB-REF1063 ':INT32) + (CFFI:MEM-REF SDIM-REF1064 ':INT32) (CFFI:MEM-REF LDVSL-REF1069 ':INT32) + (CFFI:MEM-REF LDVSR-REF1071 ':INT32) + (CFFI:MEM-REF LWORK-REF1075 ':INT32) + (CFFI:MEM-REF LIWORK-REF1077 ':INT32) + (CFFI:MEM-REF INFO-REF1079 ':INT32))))) (CFFI:DEFCFUN ("slaorhr_col_getrfnp_" %%SLAORHR_COL_GETRFNP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -5149,15 +5540,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2852 ':INT32) (N-REF2853 ':INT32) - (LDA-REF2855 ':INT32) (INFO-REF2857 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2852 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2853 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2855 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2857 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2854 A) (D-REF2856 D)) - (%%SLAORHR_COL_GETRFNP M-REF2852 N-REF2853 A-REF2854 LDA-REF2855 - D-REF2856 INFO-REF2857)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1080 ':INT32) (N-REF1081 ':INT32) + (LDA-REF1083 ':INT32) (INFO-REF1085 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1080 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1081 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1083 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1085 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1082 A) (D-REF1084 D)) + (COMMON-LISP:VALUES + (%%SLAORHR_COL_GETRFNP M-REF1080 N-REF1081 A-REF1082 LDA-REF1083 + D-REF1084 INFO-REF1085) + (CFFI:MEM-REF M-REF1080 ':INT32) (CFFI:MEM-REF N-REF1081 ':INT32) + (CFFI:MEM-REF LDA-REF1083 ':INT32) + (CFFI:MEM-REF INFO-REF1085 ':INT32))))) (CFFI:DEFCFUN ("slaorhr_col_getrfnp2_" %%SLAORHR_COL_GETRFNP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -5179,15 +5574,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2858 ':INT32) (N-REF2859 ':INT32) - (LDA-REF2861 ':INT32) (INFO-REF2863 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2858 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2859 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2861 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2863 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2860 A) (D-REF2862 D)) - (%%SLAORHR_COL_GETRFNP2 M-REF2858 N-REF2859 A-REF2860 LDA-REF2861 - D-REF2862 INFO-REF2863)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1086 ':INT32) (N-REF1087 ':INT32) + (LDA-REF1089 ':INT32) (INFO-REF1091 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1086 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1087 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1089 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1091 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1088 A) (D-REF1090 D)) + (COMMON-LISP:VALUES + (%%SLAORHR_COL_GETRFNP2 M-REF1086 N-REF1087 A-REF1088 LDA-REF1089 + D-REF1090 INFO-REF1091) + (CFFI:MEM-REF M-REF1086 ':INT32) (CFFI:MEM-REF N-REF1087 ':INT32) + (CFFI:MEM-REF LDA-REF1089 ':INT32) + (CFFI:MEM-REF INFO-REF1091 ':INT32))))) (CFFI:DEFCFUN ("sorglq_" %%SORGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5217,19 +5616,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2864 ':INT32) (N-REF2865 ':INT32) - (K-REF2866 ':INT32) (LDA-REF2868 ':INT32) - (LWORK-REF2871 ':INT32) (INFO-REF2872 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2864 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2865 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2866 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2868 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2871 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2872 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2867 A) (TAU-REF2869 TAU) - (WORK-REF2870 WORK)) - (%%SORGLQ M-REF2864 N-REF2865 K-REF2866 A-REF2867 LDA-REF2868 TAU-REF2869 - WORK-REF2870 LWORK-REF2871 INFO-REF2872)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1092 ':INT32) (N-REF1093 ':INT32) + (K-REF1094 ':INT32) (LDA-REF1096 ':INT32) + (LWORK-REF1099 ':INT32) (INFO-REF1100 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1092 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1093 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1094 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1096 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1099 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1100 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1095 A) (TAU-REF1097 TAU) + (WORK-REF1098 WORK)) + (COMMON-LISP:VALUES + (%%SORGLQ M-REF1092 N-REF1093 K-REF1094 A-REF1095 LDA-REF1096 + TAU-REF1097 WORK-REF1098 LWORK-REF1099 INFO-REF1100) + (CFFI:MEM-REF M-REF1092 ':INT32) (CFFI:MEM-REF N-REF1093 ':INT32) + (CFFI:MEM-REF K-REF1094 ':INT32) (CFFI:MEM-REF LDA-REF1096 ':INT32) + (CFFI:MEM-REF LWORK-REF1099 ':INT32) + (CFFI:MEM-REF INFO-REF1100 ':INT32))))) (CFFI:DEFCFUN ("sorgql_" %%SORGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5259,19 +5663,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2873 ':INT32) (N-REF2874 ':INT32) - (K-REF2875 ':INT32) (LDA-REF2877 ':INT32) - (LWORK-REF2880 ':INT32) (INFO-REF2881 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2873 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2874 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2875 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2877 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2880 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2881 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2876 A) (TAU-REF2878 TAU) - (WORK-REF2879 WORK)) - (%%SORGQL M-REF2873 N-REF2874 K-REF2875 A-REF2876 LDA-REF2877 TAU-REF2878 - WORK-REF2879 LWORK-REF2880 INFO-REF2881)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1101 ':INT32) (N-REF1102 ':INT32) + (K-REF1103 ':INT32) (LDA-REF1105 ':INT32) + (LWORK-REF1108 ':INT32) (INFO-REF1109 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1101 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1102 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1103 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1105 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1108 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1109 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1104 A) (TAU-REF1106 TAU) + (WORK-REF1107 WORK)) + (COMMON-LISP:VALUES + (%%SORGQL M-REF1101 N-REF1102 K-REF1103 A-REF1104 LDA-REF1105 + TAU-REF1106 WORK-REF1107 LWORK-REF1108 INFO-REF1109) + (CFFI:MEM-REF M-REF1101 ':INT32) (CFFI:MEM-REF N-REF1102 ':INT32) + (CFFI:MEM-REF K-REF1103 ':INT32) (CFFI:MEM-REF LDA-REF1105 ':INT32) + (CFFI:MEM-REF LWORK-REF1108 ':INT32) + (CFFI:MEM-REF INFO-REF1109 ':INT32))))) (CFFI:DEFCFUN ("sorgqr_" %%SORGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5301,19 +5710,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2882 ':INT32) (N-REF2883 ':INT32) - (K-REF2884 ':INT32) (LDA-REF2886 ':INT32) - (LWORK-REF2889 ':INT32) (INFO-REF2890 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2882 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2883 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2884 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2886 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2889 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2890 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2885 A) (TAU-REF2887 TAU) - (WORK-REF2888 WORK)) - (%%SORGQR M-REF2882 N-REF2883 K-REF2884 A-REF2885 LDA-REF2886 TAU-REF2887 - WORK-REF2888 LWORK-REF2889 INFO-REF2890)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1110 ':INT32) (N-REF1111 ':INT32) + (K-REF1112 ':INT32) (LDA-REF1114 ':INT32) + (LWORK-REF1117 ':INT32) (INFO-REF1118 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1110 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1111 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1112 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1114 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1117 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1118 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1113 A) (TAU-REF1115 TAU) + (WORK-REF1116 WORK)) + (COMMON-LISP:VALUES + (%%SORGQR M-REF1110 N-REF1111 K-REF1112 A-REF1113 LDA-REF1114 + TAU-REF1115 WORK-REF1116 LWORK-REF1117 INFO-REF1118) + (CFFI:MEM-REF M-REF1110 ':INT32) (CFFI:MEM-REF N-REF1111 ':INT32) + (CFFI:MEM-REF K-REF1112 ':INT32) (CFFI:MEM-REF LDA-REF1114 ':INT32) + (CFFI:MEM-REF LWORK-REF1117 ':INT32) + (CFFI:MEM-REF INFO-REF1118 ':INT32))))) (CFFI:DEFCFUN ("sorgrq_" %%SORGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5343,19 +5757,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2891 ':INT32) (N-REF2892 ':INT32) - (K-REF2893 ':INT32) (LDA-REF2895 ':INT32) - (LWORK-REF2898 ':INT32) (INFO-REF2899 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2891 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2892 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2893 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2895 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2898 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2899 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2894 A) (TAU-REF2896 TAU) - (WORK-REF2897 WORK)) - (%%SORGRQ M-REF2891 N-REF2892 K-REF2893 A-REF2894 LDA-REF2895 TAU-REF2896 - WORK-REF2897 LWORK-REF2898 INFO-REF2899)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1119 ':INT32) (N-REF1120 ':INT32) + (K-REF1121 ':INT32) (LDA-REF1123 ':INT32) + (LWORK-REF1126 ':INT32) (INFO-REF1127 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1119 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1120 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1121 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1123 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1126 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1127 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1122 A) (TAU-REF1124 TAU) + (WORK-REF1125 WORK)) + (COMMON-LISP:VALUES + (%%SORGRQ M-REF1119 N-REF1120 K-REF1121 A-REF1122 LDA-REF1123 + TAU-REF1124 WORK-REF1125 LWORK-REF1126 INFO-REF1127) + (CFFI:MEM-REF M-REF1119 ':INT32) (CFFI:MEM-REF N-REF1120 ':INT32) + (CFFI:MEM-REF K-REF1121 ':INT32) (CFFI:MEM-REF LDA-REF1123 ':INT32) + (CFFI:MEM-REF LWORK-REF1126 ':INT32) + (CFFI:MEM-REF INFO-REF1127 ':INT32))))) (CFFI:DEFCFUN ("zgees_" %%ZGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5415,24 +5834,29 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF2902 ':INT32) (N-REF2903 ':INT32) - (LDA-REF2905 ':INT32) (SDIM-REF2906 ':INT32) - (LDVS-REF2909 ':INT32) (LWORK-REF2911 ':INT32) - (INFO-REF2914 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF2902 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2903 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2905 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF2906 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF2909 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2911 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2914 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2904 A) (W-REF2907 W) - (VS-REF2908 VS) (WORK-REF2910 WORK) - (RWORK-REF2912 RWORK) - (BWORK-REF2913 BWORK)) - (%%ZGEES JOBVS SORT SELECT-REF2902 N-REF2903 A-REF2904 LDA-REF2905 - SDIM-REF2906 W-REF2907 VS-REF2908 LDVS-REF2909 WORK-REF2910 - LWORK-REF2911 RWORK-REF2912 BWORK-REF2913 INFO-REF2914)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF1130 ':INT32) (N-REF1131 ':INT32) + (LDA-REF1133 ':INT32) (SDIM-REF1134 ':INT32) + (LDVS-REF1137 ':INT32) (LWORK-REF1139 ':INT32) + (INFO-REF1142 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF1130 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1131 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1133 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1134 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF1137 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1139 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1142 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1132 A) (W-REF1135 W) + (VS-REF1136 VS) (WORK-REF1138 WORK) + (RWORK-REF1140 RWORK) + (BWORK-REF1141 BWORK)) + (COMMON-LISP:VALUES + (%%ZGEES JOBVS SORT SELECT-REF1130 N-REF1131 A-REF1132 LDA-REF1133 + SDIM-REF1134 W-REF1135 VS-REF1136 LDVS-REF1137 WORK-REF1138 + LWORK-REF1139 RWORK-REF1140 BWORK-REF1141 INFO-REF1142) + (CFFI:MEM-REF SELECT-REF1130 ':INT32) (CFFI:MEM-REF N-REF1131 ':INT32) + (CFFI:MEM-REF LDA-REF1133 ':INT32) (CFFI:MEM-REF SDIM-REF1134 ':INT32) + (CFFI:MEM-REF LDVS-REF1137 ':INT32) (CFFI:MEM-REF LWORK-REF1139 ':INT32) + (CFFI:MEM-REF INFO-REF1142 ':INT32))))) (CFFI:DEFCFUN ("zgeesx_" %%ZGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5498,28 +5922,36 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF2917 ':INT32) (N-REF2919 ':INT32) - (LDA-REF2921 ':INT32) (SDIM-REF2922 ':INT32) - (LDVS-REF2925 ':INT32) (RCONDE-REF2926 ':DOUBLE) - (RCONDV-REF2927 ':DOUBLE) (LWORK-REF2929 ':INT32) - (INFO-REF2932 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF2917 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2919 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2921 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF2922 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF2925 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF2926 :DOUBLE) RCONDE) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF2927 :DOUBLE) RCONDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2929 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2932 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2920 A) (W-REF2923 W) - (VS-REF2924 VS) (WORK-REF2928 WORK) - (RWORK-REF2930 RWORK) - (BWORK-REF2931 BWORK)) - (%%ZGEESX JOBVS SORT SELECT-REF2917 SENSE N-REF2919 A-REF2920 LDA-REF2921 - SDIM-REF2922 W-REF2923 VS-REF2924 LDVS-REF2925 RCONDE-REF2926 - RCONDV-REF2927 WORK-REF2928 LWORK-REF2929 RWORK-REF2930 BWORK-REF2931 - INFO-REF2932)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF1145 ':INT32) (N-REF1147 ':INT32) + (LDA-REF1149 ':INT32) (SDIM-REF1150 ':INT32) + (LDVS-REF1153 ':INT32) (RCONDE-REF1154 ':DOUBLE) + (RCONDV-REF1155 ':DOUBLE) (LWORK-REF1157 ':INT32) + (INFO-REF1160 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF1145 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1147 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1149 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1150 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF1153 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF1154 :DOUBLE) RCONDE) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF1155 :DOUBLE) RCONDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1157 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1160 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1148 A) (W-REF1151 W) + (VS-REF1152 VS) (WORK-REF1156 WORK) + (RWORK-REF1158 RWORK) + (BWORK-REF1159 BWORK)) + (COMMON-LISP:VALUES + (%%ZGEESX JOBVS SORT SELECT-REF1145 SENSE N-REF1147 A-REF1148 + LDA-REF1149 SDIM-REF1150 W-REF1151 VS-REF1152 LDVS-REF1153 + RCONDE-REF1154 RCONDV-REF1155 WORK-REF1156 LWORK-REF1157 RWORK-REF1158 + BWORK-REF1159 INFO-REF1160) + (CFFI:MEM-REF SELECT-REF1145 ':INT32) (CFFI:MEM-REF N-REF1147 ':INT32) + (CFFI:MEM-REF LDA-REF1149 ':INT32) (CFFI:MEM-REF SDIM-REF1150 ':INT32) + (CFFI:MEM-REF LDVS-REF1153 ':INT32) + (CFFI:MEM-REF RCONDE-REF1154 ':DOUBLE) + (CFFI:MEM-REF RCONDV-REF1155 ':DOUBLE) + (CFFI:MEM-REF LWORK-REF1157 ':INT32) + (CFFI:MEM-REF INFO-REF1160 ':INT32))))) (CFFI:DEFCFUN ("zgeev_" %%ZGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5578,22 +6010,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2935 ':INT32) (LDA-REF2937 ':INT32) - (LDVL-REF2940 ':INT32) (LDVR-REF2942 ':INT32) - (LWORK-REF2944 ':INT32) (INFO-REF2946 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2935 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2937 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF2940 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF2942 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2944 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2946 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2936 A) (W-REF2938 W) - (VL-REF2939 VL) (VR-REF2941 VR) - (WORK-REF2943 WORK) - (RWORK-REF2945 RWORK)) - (%%ZGEEV JOBVL JOBVR N-REF2935 A-REF2936 LDA-REF2937 W-REF2938 VL-REF2939 - LDVL-REF2940 VR-REF2941 LDVR-REF2942 WORK-REF2943 LWORK-REF2944 - RWORK-REF2945 INFO-REF2946)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1163 ':INT32) (LDA-REF1165 ':INT32) + (LDVL-REF1168 ':INT32) (LDVR-REF1170 ':INT32) + (LWORK-REF1172 ':INT32) (INFO-REF1174 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1163 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1165 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1168 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1170 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1172 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1174 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1164 A) (W-REF1166 W) + (VL-REF1167 VL) (VR-REF1169 VR) + (WORK-REF1171 WORK) + (RWORK-REF1173 RWORK)) + (COMMON-LISP:VALUES + (%%ZGEEV JOBVL JOBVR N-REF1163 A-REF1164 LDA-REF1165 W-REF1166 + VL-REF1167 LDVL-REF1168 VR-REF1169 LDVR-REF1170 WORK-REF1171 + LWORK-REF1172 RWORK-REF1173 INFO-REF1174) + (CFFI:MEM-REF N-REF1163 ':INT32) (CFFI:MEM-REF LDA-REF1165 ':INT32) + (CFFI:MEM-REF LDVL-REF1168 ':INT32) (CFFI:MEM-REF LDVR-REF1170 ':INT32) + (CFFI:MEM-REF LWORK-REF1172 ':INT32) + (CFFI:MEM-REF INFO-REF1174 ':INT32))))) (CFFI:DEFCFUN ("zgeevx_" %%ZGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5674,31 +6111,38 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2951 ':INT32) (LDA-REF2953 ':INT32) - (LDVL-REF2956 ':INT32) (LDVR-REF2958 ':INT32) - (ILO-REF2959 ':INT32) (IHI-REF2960 ':INT32) - (ABNRM-REF2962 ':DOUBLE) (LWORK-REF2966 ':INT32) - (INFO-REF2968 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2951 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2953 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF2956 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF2958 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2959 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2960 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF2962 :DOUBLE) ABNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2966 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2968 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2952 A) (W-REF2954 W) - (VL-REF2955 VL) (VR-REF2957 VR) - (SCALE-REF2961 SCALE) - (RCONDE-REF2963 RCONDE) - (RCONDV-REF2964 RCONDV) - (WORK-REF2965 WORK) - (RWORK-REF2967 RWORK)) - (%%ZGEEVX BALANC JOBVL JOBVR SENSE N-REF2951 A-REF2952 LDA-REF2953 - W-REF2954 VL-REF2955 LDVL-REF2956 VR-REF2957 LDVR-REF2958 ILO-REF2959 - IHI-REF2960 SCALE-REF2961 ABNRM-REF2962 RCONDE-REF2963 RCONDV-REF2964 - WORK-REF2965 LWORK-REF2966 RWORK-REF2967 INFO-REF2968)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1179 ':INT32) (LDA-REF1181 ':INT32) + (LDVL-REF1184 ':INT32) (LDVR-REF1186 ':INT32) + (ILO-REF1187 ':INT32) (IHI-REF1188 ':INT32) + (ABNRM-REF1190 ':DOUBLE) (LWORK-REF1194 ':INT32) + (INFO-REF1196 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1179 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1181 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1184 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1186 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1187 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1188 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF1190 :DOUBLE) ABNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1194 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1196 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1180 A) (W-REF1182 W) + (VL-REF1183 VL) (VR-REF1185 VR) + (SCALE-REF1189 SCALE) + (RCONDE-REF1191 RCONDE) + (RCONDV-REF1192 RCONDV) + (WORK-REF1193 WORK) + (RWORK-REF1195 RWORK)) + (COMMON-LISP:VALUES + (%%ZGEEVX BALANC JOBVL JOBVR SENSE N-REF1179 A-REF1180 LDA-REF1181 + W-REF1182 VL-REF1183 LDVL-REF1184 VR-REF1185 LDVR-REF1186 ILO-REF1187 + IHI-REF1188 SCALE-REF1189 ABNRM-REF1190 RCONDE-REF1191 RCONDV-REF1192 + WORK-REF1193 LWORK-REF1194 RWORK-REF1195 INFO-REF1196) + (CFFI:MEM-REF N-REF1179 ':INT32) (CFFI:MEM-REF LDA-REF1181 ':INT32) + (CFFI:MEM-REF LDVL-REF1184 ':INT32) (CFFI:MEM-REF LDVR-REF1186 ':INT32) + (CFFI:MEM-REF ILO-REF1187 ':INT32) (CFFI:MEM-REF IHI-REF1188 ':INT32) + (CFFI:MEM-REF ABNRM-REF1190 ':DOUBLE) + (CFFI:MEM-REF LWORK-REF1194 ':INT32) + (CFFI:MEM-REF INFO-REF1196 ':INT32))))) (CFFI:DEFCFUN ("zgelqf_" %%ZGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5733,18 +6177,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2969 ':INT32) (N-REF2970 ':INT32) - (LDA-REF2972 ':INT32) (LWORK-REF2975 ':INT32) - (INFO-REF2976 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2969 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2970 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2972 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2975 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2976 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2971 A) (TAU-REF2973 TAU) - (WORK-REF2974 WORK)) - (%%ZGELQF M-REF2969 N-REF2970 A-REF2971 LDA-REF2972 TAU-REF2973 - WORK-REF2974 LWORK-REF2975 INFO-REF2976)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1197 ':INT32) (N-REF1198 ':INT32) + (LDA-REF1200 ':INT32) (LWORK-REF1203 ':INT32) + (INFO-REF1204 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1197 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1198 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1200 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1203 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1204 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1199 A) (TAU-REF1201 TAU) + (WORK-REF1202 WORK)) + (COMMON-LISP:VALUES + (%%ZGELQF M-REF1197 N-REF1198 A-REF1199 LDA-REF1200 TAU-REF1201 + WORK-REF1202 LWORK-REF1203 INFO-REF1204) + (CFFI:MEM-REF M-REF1197 ':INT32) (CFFI:MEM-REF N-REF1198 ':INT32) + (CFFI:MEM-REF LDA-REF1200 ':INT32) (CFFI:MEM-REF LWORK-REF1203 ':INT32) + (CFFI:MEM-REF INFO-REF1204 ':INT32))))) (CFFI:DEFCFUN ("zgeqlf_" %%ZGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5779,18 +6227,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2977 ':INT32) (N-REF2978 ':INT32) - (LDA-REF2980 ':INT32) (LWORK-REF2983 ':INT32) - (INFO-REF2984 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2977 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2978 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2980 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2983 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2984 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2979 A) (TAU-REF2981 TAU) - (WORK-REF2982 WORK)) - (%%ZGEQLF M-REF2977 N-REF2978 A-REF2979 LDA-REF2980 TAU-REF2981 - WORK-REF2982 LWORK-REF2983 INFO-REF2984)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1205 ':INT32) (N-REF1206 ':INT32) + (LDA-REF1208 ':INT32) (LWORK-REF1211 ':INT32) + (INFO-REF1212 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1205 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1206 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1208 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1211 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1212 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1207 A) (TAU-REF1209 TAU) + (WORK-REF1210 WORK)) + (COMMON-LISP:VALUES + (%%ZGEQLF M-REF1205 N-REF1206 A-REF1207 LDA-REF1208 TAU-REF1209 + WORK-REF1210 LWORK-REF1211 INFO-REF1212) + (CFFI:MEM-REF M-REF1205 ':INT32) (CFFI:MEM-REF N-REF1206 ':INT32) + (CFFI:MEM-REF LDA-REF1208 ':INT32) (CFFI:MEM-REF LWORK-REF1211 ':INT32) + (CFFI:MEM-REF INFO-REF1212 ':INT32))))) (CFFI:DEFCFUN ("zgeqrf_" %%ZGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5825,18 +6277,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2985 ':INT32) (N-REF2986 ':INT32) - (LDA-REF2988 ':INT32) (LWORK-REF2991 ':INT32) - (INFO-REF2992 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2985 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2986 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2988 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2991 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2992 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2987 A) (TAU-REF2989 TAU) - (WORK-REF2990 WORK)) - (%%ZGEQRF M-REF2985 N-REF2986 A-REF2987 LDA-REF2988 TAU-REF2989 - WORK-REF2990 LWORK-REF2991 INFO-REF2992)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1213 ':INT32) (N-REF1214 ':INT32) + (LDA-REF1216 ':INT32) (LWORK-REF1219 ':INT32) + (INFO-REF1220 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1213 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1214 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1216 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1219 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1220 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1215 A) (TAU-REF1217 TAU) + (WORK-REF1218 WORK)) + (COMMON-LISP:VALUES + (%%ZGEQRF M-REF1213 N-REF1214 A-REF1215 LDA-REF1216 TAU-REF1217 + WORK-REF1218 LWORK-REF1219 INFO-REF1220) + (CFFI:MEM-REF M-REF1213 ':INT32) (CFFI:MEM-REF N-REF1214 ':INT32) + (CFFI:MEM-REF LDA-REF1216 ':INT32) (CFFI:MEM-REF LWORK-REF1219 ':INT32) + (CFFI:MEM-REF INFO-REF1220 ':INT32))))) (CFFI:DEFCFUN ("zgeqrfp_" %%ZGEQRFP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -5872,18 +6328,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2993 ':INT32) (N-REF2994 ':INT32) - (LDA-REF2996 ':INT32) (LWORK-REF2999 ':INT32) - (INFO-REF3000 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2993 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2994 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2996 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2999 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3000 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2995 A) (TAU-REF2997 TAU) - (WORK-REF2998 WORK)) - (%%ZGEQRFP M-REF2993 N-REF2994 A-REF2995 LDA-REF2996 TAU-REF2997 - WORK-REF2998 LWORK-REF2999 INFO-REF3000)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1221 ':INT32) (N-REF1222 ':INT32) + (LDA-REF1224 ':INT32) (LWORK-REF1227 ':INT32) + (INFO-REF1228 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1221 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1222 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1224 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1227 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1228 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1223 A) (TAU-REF1225 TAU) + (WORK-REF1226 WORK)) + (COMMON-LISP:VALUES + (%%ZGEQRFP M-REF1221 N-REF1222 A-REF1223 LDA-REF1224 TAU-REF1225 + WORK-REF1226 LWORK-REF1227 INFO-REF1228) + (CFFI:MEM-REF M-REF1221 ':INT32) (CFFI:MEM-REF N-REF1222 ':INT32) + (CFFI:MEM-REF LDA-REF1224 ':INT32) (CFFI:MEM-REF LWORK-REF1227 ':INT32) + (CFFI:MEM-REF INFO-REF1228 ':INT32))))) (CFFI:DEFCFUN ("zgerqf_" %%ZGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5918,18 +6378,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3001 ':INT32) (N-REF3002 ':INT32) - (LDA-REF3004 ':INT32) (LWORK-REF3007 ':INT32) - (INFO-REF3008 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3001 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3002 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3004 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3007 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3008 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3003 A) (TAU-REF3005 TAU) - (WORK-REF3006 WORK)) - (%%ZGERQF M-REF3001 N-REF3002 A-REF3003 LDA-REF3004 TAU-REF3005 - WORK-REF3006 LWORK-REF3007 INFO-REF3008)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1229 ':INT32) (N-REF1230 ':INT32) + (LDA-REF1232 ':INT32) (LWORK-REF1235 ':INT32) + (INFO-REF1236 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1229 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1230 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1232 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1235 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1236 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1231 A) (TAU-REF1233 TAU) + (WORK-REF1234 WORK)) + (COMMON-LISP:VALUES + (%%ZGERQF M-REF1229 N-REF1230 A-REF1231 LDA-REF1232 TAU-REF1233 + WORK-REF1234 LWORK-REF1235 INFO-REF1236) + (CFFI:MEM-REF M-REF1229 ':INT32) (CFFI:MEM-REF N-REF1230 ':INT32) + (CFFI:MEM-REF LDA-REF1232 ':INT32) (CFFI:MEM-REF LWORK-REF1235 ':INT32) + (CFFI:MEM-REF INFO-REF1236 ':INT32))))) (CFFI:DEFCFUN ("zgesvd_" %%ZGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -5986,24 +6450,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3011 ':INT32) (N-REF3012 ':INT32) - (LDA-REF3014 ':INT32) (LDU-REF3017 ':INT32) - (LDVT-REF3019 ':INT32) (LWORK-REF3021 ':INT32) - (INFO-REF3023 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3011 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3012 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3014 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF3017 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF3019 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3021 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3023 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3013 A) (S-REF3015 S) - (U-REF3016 U) (VT-REF3018 VT) - (WORK-REF3020 WORK) - (RWORK-REF3022 RWORK)) - (%%ZGESVD JOBU JOBVT M-REF3011 N-REF3012 A-REF3013 LDA-REF3014 S-REF3015 - U-REF3016 LDU-REF3017 VT-REF3018 LDVT-REF3019 WORK-REF3020 LWORK-REF3021 - RWORK-REF3022 INFO-REF3023)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1239 ':INT32) (N-REF1240 ':INT32) + (LDA-REF1242 ':INT32) (LDU-REF1245 ':INT32) + (LDVT-REF1247 ':INT32) (LWORK-REF1249 ':INT32) + (INFO-REF1251 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1239 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1240 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1242 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1245 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF1247 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1249 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1251 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1241 A) (S-REF1243 S) + (U-REF1244 U) (VT-REF1246 VT) + (WORK-REF1248 WORK) + (RWORK-REF1250 RWORK)) + (COMMON-LISP:VALUES + (%%ZGESVD JOBU JOBVT M-REF1239 N-REF1240 A-REF1241 LDA-REF1242 S-REF1243 + U-REF1244 LDU-REF1245 VT-REF1246 LDVT-REF1247 WORK-REF1248 + LWORK-REF1249 RWORK-REF1250 INFO-REF1251) + (CFFI:MEM-REF M-REF1239 ':INT32) (CFFI:MEM-REF N-REF1240 ':INT32) + (CFFI:MEM-REF LDA-REF1242 ':INT32) (CFFI:MEM-REF LDU-REF1245 ':INT32) + (CFFI:MEM-REF LDVT-REF1247 ':INT32) (CFFI:MEM-REF LWORK-REF1249 ':INT32) + (CFFI:MEM-REF INFO-REF1251 ':INT32))))) (CFFI:DEFCFUN ("zgesvdq_" %%ZGESVDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -6079,30 +6548,39 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3029 ':INT32) (N-REF3030 ':INT32) - (LDA-REF3032 ':INT32) (LDU-REF3035 ':INT32) - (LDV-REF3037 ':INT32) (NUMRANK-REF3038 ':INT32) - (LIWORK-REF3040 ':INT32) (LCWORK-REF3042 ':INT32) - (LRWORK-REF3044 ':INT32) (INFO-REF3045 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3029 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3030 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3032 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF3035 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3037 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF3038 :INT32) NUMRANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF3040 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF3042 :INT32) LCWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF3044 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3045 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3031 A) (S-REF3033 S) - (U-REF3034 U) (V-REF3036 V) - (IWORK-REF3039 IWORK) - (CWORK-REF3041 CWORK) - (RWORK-REF3043 RWORK)) - (%%ZGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF3029 N-REF3030 A-REF3031 - LDA-REF3032 S-REF3033 U-REF3034 LDU-REF3035 V-REF3036 LDV-REF3037 - NUMRANK-REF3038 IWORK-REF3039 LIWORK-REF3040 CWORK-REF3041 - LCWORK-REF3042 RWORK-REF3043 LRWORK-REF3044 INFO-REF3045)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1257 ':INT32) (N-REF1258 ':INT32) + (LDA-REF1260 ':INT32) (LDU-REF1263 ':INT32) + (LDV-REF1265 ':INT32) (NUMRANK-REF1266 ':INT32) + (LIWORK-REF1268 ':INT32) (LCWORK-REF1270 ':INT32) + (LRWORK-REF1272 ':INT32) (INFO-REF1273 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1257 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1258 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1260 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1263 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1265 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF1266 :INT32) NUMRANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1268 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF1270 :INT32) LCWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1272 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1273 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1259 A) (S-REF1261 S) + (U-REF1262 U) (V-REF1264 V) + (IWORK-REF1267 IWORK) + (CWORK-REF1269 CWORK) + (RWORK-REF1271 RWORK)) + (COMMON-LISP:VALUES + (%%ZGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF1257 N-REF1258 A-REF1259 + LDA-REF1260 S-REF1261 U-REF1262 LDU-REF1263 V-REF1264 LDV-REF1265 + NUMRANK-REF1266 IWORK-REF1267 LIWORK-REF1268 CWORK-REF1269 + LCWORK-REF1270 RWORK-REF1271 LRWORK-REF1272 INFO-REF1273) + (CFFI:MEM-REF M-REF1257 ':INT32) (CFFI:MEM-REF N-REF1258 ':INT32) + (CFFI:MEM-REF LDA-REF1260 ':INT32) (CFFI:MEM-REF LDU-REF1263 ':INT32) + (CFFI:MEM-REF LDV-REF1265 ':INT32) + (CFFI:MEM-REF NUMRANK-REF1266 ':INT32) + (CFFI:MEM-REF LIWORK-REF1268 ':INT32) + (CFFI:MEM-REF LCWORK-REF1270 ':INT32) + (CFFI:MEM-REF LRWORK-REF1272 ':INT32) + (CFFI:MEM-REF INFO-REF1273 ':INT32))))) (CFFI:DEFCFUN ("zgesvdx_" %%ZGESVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -6178,33 +6656,41 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3049 ':INT32) (N-REF3050 ':INT32) - (LDA-REF3052 ':INT32) (VL-REF3053 ':DOUBLE) - (VU-REF3054 ':DOUBLE) (IL-REF3055 ':INT32) - (IU-REF3056 ':INT32) (NS-REF3057 ':INT32) - (LDU-REF3060 ':INT32) (LDVT-REF3062 ':INT32) - (LWORK-REF3064 ':INT32) (INFO-REF3067 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3049 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3050 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3052 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3053 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3054 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF3055 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF3056 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF3057 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF3060 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF3062 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3064 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3067 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3051 A) (S-REF3058 S) - (U-REF3059 U) (VT-REF3061 VT) - (WORK-REF3063 WORK) - (RWORK-REF3065 RWORK) - (IWORK-REF3066 IWORK)) - (%%ZGESVDX JOBU JOBVT RANGE M-REF3049 N-REF3050 A-REF3051 LDA-REF3052 - VL-REF3053 VU-REF3054 IL-REF3055 IU-REF3056 NS-REF3057 S-REF3058 - U-REF3059 LDU-REF3060 VT-REF3061 LDVT-REF3062 WORK-REF3063 LWORK-REF3064 - RWORK-REF3065 IWORK-REF3066 INFO-REF3067)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1277 ':INT32) (N-REF1278 ':INT32) + (LDA-REF1280 ':INT32) (VL-REF1281 ':DOUBLE) + (VU-REF1282 ':DOUBLE) (IL-REF1283 ':INT32) + (IU-REF1284 ':INT32) (NS-REF1285 ':INT32) + (LDU-REF1288 ':INT32) (LDVT-REF1290 ':INT32) + (LWORK-REF1292 ':INT32) (INFO-REF1295 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1277 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1278 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1280 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1281 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1282 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1283 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1284 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF1285 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1288 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF1290 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1292 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1295 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1279 A) (S-REF1286 S) + (U-REF1287 U) (VT-REF1289 VT) + (WORK-REF1291 WORK) + (RWORK-REF1293 RWORK) + (IWORK-REF1294 IWORK)) + (COMMON-LISP:VALUES + (%%ZGESVDX JOBU JOBVT RANGE M-REF1277 N-REF1278 A-REF1279 LDA-REF1280 + VL-REF1281 VU-REF1282 IL-REF1283 IU-REF1284 NS-REF1285 S-REF1286 + U-REF1287 LDU-REF1288 VT-REF1289 LDVT-REF1290 WORK-REF1291 + LWORK-REF1292 RWORK-REF1293 IWORK-REF1294 INFO-REF1295) + (CFFI:MEM-REF M-REF1277 ':INT32) (CFFI:MEM-REF N-REF1278 ':INT32) + (CFFI:MEM-REF LDA-REF1280 ':INT32) (CFFI:MEM-REF VL-REF1281 ':DOUBLE) + (CFFI:MEM-REF VU-REF1282 ':DOUBLE) (CFFI:MEM-REF IL-REF1283 ':INT32) + (CFFI:MEM-REF IU-REF1284 ':INT32) (CFFI:MEM-REF NS-REF1285 ':INT32) + (CFFI:MEM-REF LDU-REF1288 ':INT32) (CFFI:MEM-REF LDVT-REF1290 ':INT32) + (CFFI:MEM-REF LWORK-REF1292 ':INT32) + (CFFI:MEM-REF INFO-REF1295 ':INT32))))) (CFFI:DEFCFUN ("zgetrf_" %%ZGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -6230,15 +6716,19 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3068 ':INT32) (N-REF3069 ':INT32) - (LDA-REF3071 ':INT32) (INFO-REF3073 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3068 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3069 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3071 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3073 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3070 A) (IPIV-REF3072 IPIV)) - (%%ZGETRF M-REF3068 N-REF3069 A-REF3070 LDA-REF3071 IPIV-REF3072 - INFO-REF3073)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1296 ':INT32) (N-REF1297 ':INT32) + (LDA-REF1299 ':INT32) (INFO-REF1301 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1296 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1297 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1299 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1301 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1298 A) (IPIV-REF1300 IPIV)) + (COMMON-LISP:VALUES + (%%ZGETRF M-REF1296 N-REF1297 A-REF1298 LDA-REF1299 IPIV-REF1300 + INFO-REF1301) + (CFFI:MEM-REF M-REF1296 ':INT32) (CFFI:MEM-REF N-REF1297 ':INT32) + (CFFI:MEM-REF LDA-REF1299 ':INT32) + (CFFI:MEM-REF INFO-REF1301 ':INT32))))) (CFFI:DEFCFUN ("zgetrf2_" %%ZGETRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -6265,15 +6755,19 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3074 ':INT32) (N-REF3075 ':INT32) - (LDA-REF3077 ':INT32) (INFO-REF3079 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3074 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3075 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3077 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3079 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3076 A) (IPIV-REF3078 IPIV)) - (%%ZGETRF2 M-REF3074 N-REF3075 A-REF3076 LDA-REF3077 IPIV-REF3078 - INFO-REF3079)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1302 ':INT32) (N-REF1303 ':INT32) + (LDA-REF1305 ':INT32) (INFO-REF1307 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1302 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1303 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1305 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1307 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1304 A) (IPIV-REF1306 IPIV)) + (COMMON-LISP:VALUES + (%%ZGETRF2 M-REF1302 N-REF1303 A-REF1304 LDA-REF1305 IPIV-REF1306 + INFO-REF1307) + (CFFI:MEM-REF M-REF1302 ':INT32) (CFFI:MEM-REF N-REF1303 ':INT32) + (CFFI:MEM-REF LDA-REF1305 ':INT32) + (CFFI:MEM-REF INFO-REF1307 ':INT32))))) (CFFI:DEFCFUN ("zgetri_" %%ZGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -6305,16 +6799,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3080 ':INT32) (LDA-REF3082 ':INT32) - (LWORK-REF3085 ':INT32) (INFO-REF3086 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3080 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3082 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3085 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3086 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3081 A) (IPIV-REF3083 IPIV) - (WORK-REF3084 WORK)) - (%%ZGETRI N-REF3080 A-REF3081 LDA-REF3082 IPIV-REF3083 WORK-REF3084 - LWORK-REF3085 INFO-REF3086)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1308 ':INT32) (LDA-REF1310 ':INT32) + (LWORK-REF1313 ':INT32) (INFO-REF1314 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1308 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1310 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1313 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1314 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1309 A) (IPIV-REF1311 IPIV) + (WORK-REF1312 WORK)) + (COMMON-LISP:VALUES + (%%ZGETRI N-REF1308 A-REF1309 LDA-REF1310 IPIV-REF1311 WORK-REF1312 + LWORK-REF1313 INFO-REF1314) + (CFFI:MEM-REF N-REF1308 ':INT32) (CFFI:MEM-REF LDA-REF1310 ':INT32) + (CFFI:MEM-REF LWORK-REF1313 ':INT32) + (CFFI:MEM-REF INFO-REF1314 ':INT32))))) (CFFI:DEFCFUN ("zgetrs_" %%ZGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -6350,18 +6848,22 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3088 ':INT32) (NRHS-REF3089 ':INT32) - (LDA-REF3091 ':INT32) (LDB-REF3094 ':INT32) - (INFO-REF3095 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3088 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3089 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3091 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3094 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3095 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3090 A) (IPIV-REF3092 IPIV) - (B-REF3093 B)) - (%%ZGETRS TRANS N-REF3088 NRHS-REF3089 A-REF3090 LDA-REF3091 IPIV-REF3092 - B-REF3093 LDB-REF3094 INFO-REF3095)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1316 ':INT32) (NRHS-REF1317 ':INT32) + (LDA-REF1319 ':INT32) (LDB-REF1322 ':INT32) + (INFO-REF1323 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1316 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1317 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1319 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1322 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1323 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1318 A) (IPIV-REF1320 IPIV) + (B-REF1321 B)) + (COMMON-LISP:VALUES + (%%ZGETRS TRANS N-REF1316 NRHS-REF1317 A-REF1318 LDA-REF1319 + IPIV-REF1320 B-REF1321 LDB-REF1322 INFO-REF1323) + (CFFI:MEM-REF N-REF1316 ':INT32) (CFFI:MEM-REF NRHS-REF1317 ':INT32) + (CFFI:MEM-REF LDA-REF1319 ':INT32) (CFFI:MEM-REF LDB-REF1322 ':INT32) + (CFFI:MEM-REF INFO-REF1323 ':INT32))))) (CFFI:DEFCFUN ("zgges_" %%ZGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -6445,31 +6947,38 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF3099 ':INT32) (N-REF3100 ':INT32) - (LDA-REF3102 ':INT32) (LDB-REF3104 ':INT32) - (SDIM-REF3105 ':INT32) (LDVSL-REF3109 ':INT32) - (LDVSR-REF3111 ':INT32) (LWORK-REF3113 ':INT32) - (INFO-REF3116 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF3099 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3100 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3102 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3104 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF3105 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF3109 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF3111 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3113 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3116 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3101 A) (B-REF3103 B) - (ALPHA-REF3106 ALPHA) - (BETA-REF3107 BETA) - (VSL-REF3108 VSL) (VSR-REF3110 VSR) - (WORK-REF3112 WORK) - (RWORK-REF3114 RWORK) - (BWORK-REF3115 BWORK)) - (%%ZGGES JOBVSL JOBVSR SORT SELCTG-REF3099 N-REF3100 A-REF3101 - LDA-REF3102 B-REF3103 LDB-REF3104 SDIM-REF3105 ALPHA-REF3106 - BETA-REF3107 VSL-REF3108 LDVSL-REF3109 VSR-REF3110 LDVSR-REF3111 - WORK-REF3112 LWORK-REF3113 RWORK-REF3114 BWORK-REF3115 INFO-REF3116)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1327 ':INT32) (N-REF1328 ':INT32) + (LDA-REF1330 ':INT32) (LDB-REF1332 ':INT32) + (SDIM-REF1333 ':INT32) (LDVSL-REF1337 ':INT32) + (LDVSR-REF1339 ':INT32) (LWORK-REF1341 ':INT32) + (INFO-REF1344 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1327 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1328 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1330 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1332 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1333 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1337 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1339 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1341 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1344 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1329 A) (B-REF1331 B) + (ALPHA-REF1334 ALPHA) + (BETA-REF1335 BETA) + (VSL-REF1336 VSL) (VSR-REF1338 VSR) + (WORK-REF1340 WORK) + (RWORK-REF1342 RWORK) + (BWORK-REF1343 BWORK)) + (COMMON-LISP:VALUES + (%%ZGGES JOBVSL JOBVSR SORT SELCTG-REF1327 N-REF1328 A-REF1329 + LDA-REF1330 B-REF1331 LDB-REF1332 SDIM-REF1333 ALPHA-REF1334 + BETA-REF1335 VSL-REF1336 LDVSL-REF1337 VSR-REF1338 LDVSR-REF1339 + WORK-REF1340 LWORK-REF1341 RWORK-REF1342 BWORK-REF1343 INFO-REF1344) + (CFFI:MEM-REF SELCTG-REF1327 ':INT32) (CFFI:MEM-REF N-REF1328 ':INT32) + (CFFI:MEM-REF LDA-REF1330 ':INT32) (CFFI:MEM-REF LDB-REF1332 ':INT32) + (CFFI:MEM-REF SDIM-REF1333 ':INT32) (CFFI:MEM-REF LDVSL-REF1337 ':INT32) + (CFFI:MEM-REF LDVSR-REF1339 ':INT32) + (CFFI:MEM-REF LWORK-REF1341 ':INT32) + (CFFI:MEM-REF INFO-REF1344 ':INT32))))) (CFFI:DEFCFUN ("zgges3_" %%ZGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -6553,31 +7062,38 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF3120 ':INT32) (N-REF3121 ':INT32) - (LDA-REF3123 ':INT32) (LDB-REF3125 ':INT32) - (SDIM-REF3126 ':INT32) (LDVSL-REF3130 ':INT32) - (LDVSR-REF3132 ':INT32) (LWORK-REF3134 ':INT32) - (INFO-REF3137 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF3120 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3121 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3123 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3125 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF3126 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF3130 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF3132 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3134 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3137 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3122 A) (B-REF3124 B) - (ALPHA-REF3127 ALPHA) - (BETA-REF3128 BETA) - (VSL-REF3129 VSL) (VSR-REF3131 VSR) - (WORK-REF3133 WORK) - (RWORK-REF3135 RWORK) - (BWORK-REF3136 BWORK)) - (%%ZGGES3 JOBVSL JOBVSR SORT SELCTG-REF3120 N-REF3121 A-REF3122 - LDA-REF3123 B-REF3124 LDB-REF3125 SDIM-REF3126 ALPHA-REF3127 - BETA-REF3128 VSL-REF3129 LDVSL-REF3130 VSR-REF3131 LDVSR-REF3132 - WORK-REF3133 LWORK-REF3134 RWORK-REF3135 BWORK-REF3136 INFO-REF3137)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1348 ':INT32) (N-REF1349 ':INT32) + (LDA-REF1351 ':INT32) (LDB-REF1353 ':INT32) + (SDIM-REF1354 ':INT32) (LDVSL-REF1358 ':INT32) + (LDVSR-REF1360 ':INT32) (LWORK-REF1362 ':INT32) + (INFO-REF1365 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1348 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1349 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1351 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1353 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1354 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1358 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1360 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1362 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1365 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1350 A) (B-REF1352 B) + (ALPHA-REF1355 ALPHA) + (BETA-REF1356 BETA) + (VSL-REF1357 VSL) (VSR-REF1359 VSR) + (WORK-REF1361 WORK) + (RWORK-REF1363 RWORK) + (BWORK-REF1364 BWORK)) + (COMMON-LISP:VALUES + (%%ZGGES3 JOBVSL JOBVSR SORT SELCTG-REF1348 N-REF1349 A-REF1350 + LDA-REF1351 B-REF1352 LDB-REF1353 SDIM-REF1354 ALPHA-REF1355 + BETA-REF1356 VSL-REF1357 LDVSL-REF1358 VSR-REF1359 LDVSR-REF1360 + WORK-REF1361 LWORK-REF1362 RWORK-REF1363 BWORK-REF1364 INFO-REF1365) + (CFFI:MEM-REF SELCTG-REF1348 ':INT32) (CFFI:MEM-REF N-REF1349 ':INT32) + (CFFI:MEM-REF LDA-REF1351 ':INT32) (CFFI:MEM-REF LDB-REF1353 ':INT32) + (CFFI:MEM-REF SDIM-REF1354 ':INT32) (CFFI:MEM-REF LDVSL-REF1358 ':INT32) + (CFFI:MEM-REF LDVSR-REF1360 ':INT32) + (CFFI:MEM-REF LWORK-REF1362 ':INT32) + (CFFI:MEM-REF INFO-REF1365 ':INT32))))) (CFFI:DEFCFUN ("zggesx_" %%ZGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -6679,36 +7195,44 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF3141 ':INT32) (N-REF3143 ':INT32) - (LDA-REF3145 ':INT32) (LDB-REF3147 ':INT32) - (SDIM-REF3148 ':INT32) (LDVSL-REF3152 ':INT32) - (LDVSR-REF3154 ':INT32) (LWORK-REF3158 ':INT32) - (LIWORK-REF3161 ':INT32) (INFO-REF3163 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF3141 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3143 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3145 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3147 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF3148 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF3152 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF3154 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3158 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF3161 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3163 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3144 A) (B-REF3146 B) - (ALPHA-REF3149 ALPHA) - (BETA-REF3150 BETA) - (VSL-REF3151 VSL) (VSR-REF3153 VSR) - (RCONDE-REF3155 RCONDE) - (RCONDV-REF3156 RCONDV) - (WORK-REF3157 WORK) - (RWORK-REF3159 RWORK) - (IWORK-REF3160 IWORK) - (BWORK-REF3162 BWORK)) - (%%ZGGESX JOBVSL JOBVSR SORT SELCTG-REF3141 SENSE N-REF3143 A-REF3144 - LDA-REF3145 B-REF3146 LDB-REF3147 SDIM-REF3148 ALPHA-REF3149 - BETA-REF3150 VSL-REF3151 LDVSL-REF3152 VSR-REF3153 LDVSR-REF3154 - RCONDE-REF3155 RCONDV-REF3156 WORK-REF3157 LWORK-REF3158 RWORK-REF3159 - IWORK-REF3160 LIWORK-REF3161 BWORK-REF3162 INFO-REF3163)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1369 ':INT32) (N-REF1371 ':INT32) + (LDA-REF1373 ':INT32) (LDB-REF1375 ':INT32) + (SDIM-REF1376 ':INT32) (LDVSL-REF1380 ':INT32) + (LDVSR-REF1382 ':INT32) (LWORK-REF1386 ':INT32) + (LIWORK-REF1389 ':INT32) (INFO-REF1391 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1369 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1371 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1373 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1375 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1376 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1380 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1382 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1386 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1389 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1391 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1372 A) (B-REF1374 B) + (ALPHA-REF1377 ALPHA) + (BETA-REF1378 BETA) + (VSL-REF1379 VSL) (VSR-REF1381 VSR) + (RCONDE-REF1383 RCONDE) + (RCONDV-REF1384 RCONDV) + (WORK-REF1385 WORK) + (RWORK-REF1387 RWORK) + (IWORK-REF1388 IWORK) + (BWORK-REF1390 BWORK)) + (COMMON-LISP:VALUES + (%%ZGGESX JOBVSL JOBVSR SORT SELCTG-REF1369 SENSE N-REF1371 A-REF1372 + LDA-REF1373 B-REF1374 LDB-REF1375 SDIM-REF1376 ALPHA-REF1377 + BETA-REF1378 VSL-REF1379 LDVSL-REF1380 VSR-REF1381 LDVSR-REF1382 + RCONDE-REF1383 RCONDV-REF1384 WORK-REF1385 LWORK-REF1386 RWORK-REF1387 + IWORK-REF1388 LIWORK-REF1389 BWORK-REF1390 INFO-REF1391) + (CFFI:MEM-REF SELCTG-REF1369 ':INT32) (CFFI:MEM-REF N-REF1371 ':INT32) + (CFFI:MEM-REF LDA-REF1373 ':INT32) (CFFI:MEM-REF LDB-REF1375 ':INT32) + (CFFI:MEM-REF SDIM-REF1376 ':INT32) (CFFI:MEM-REF LDVSL-REF1380 ':INT32) + (CFFI:MEM-REF LDVSR-REF1382 ':INT32) + (CFFI:MEM-REF LWORK-REF1386 ':INT32) + (CFFI:MEM-REF LIWORK-REF1389 ':INT32) + (CFFI:MEM-REF INFO-REF1391 ':INT32))))) (CFFI:DEFCFUN ("zheev_" %%ZHEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -6746,17 +7270,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3166 ':INT32) (LDA-REF3168 ':INT32) - (LWORK-REF3171 ':INT32) (INFO-REF3173 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3166 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3168 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3171 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3173 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3167 A) (W-REF3169 W) - (WORK-REF3170 WORK) - (RWORK-REF3172 RWORK)) - (%%ZHEEV JOBZ UPLO N-REF3166 A-REF3167 LDA-REF3168 W-REF3169 WORK-REF3170 - LWORK-REF3171 RWORK-REF3172 INFO-REF3173)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1394 ':INT32) (LDA-REF1396 ':INT32) + (LWORK-REF1399 ':INT32) (INFO-REF1401 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1394 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1396 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1399 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1401 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1395 A) (W-REF1397 W) + (WORK-REF1398 WORK) + (RWORK-REF1400 RWORK)) + (COMMON-LISP:VALUES + (%%ZHEEV JOBZ UPLO N-REF1394 A-REF1395 LDA-REF1396 W-REF1397 + WORK-REF1398 LWORK-REF1399 RWORK-REF1400 INFO-REF1401) + (CFFI:MEM-REF N-REF1394 ':INT32) (CFFI:MEM-REF LDA-REF1396 ':INT32) + (CFFI:MEM-REF LWORK-REF1399 ':INT32) + (CFFI:MEM-REF INFO-REF1401 ':INT32))))) (CFFI:DEFCFUN ("zheev_2stage_" %%ZHEEV_2STAGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -6795,17 +7323,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3176 ':INT32) (LDA-REF3178 ':INT32) - (LWORK-REF3181 ':INT32) (INFO-REF3183 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3176 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3178 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3181 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3183 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3177 A) (W-REF3179 W) - (WORK-REF3180 WORK) - (RWORK-REF3182 RWORK)) - (%%ZHEEV_2STAGE JOBZ UPLO N-REF3176 A-REF3177 LDA-REF3178 W-REF3179 - WORK-REF3180 LWORK-REF3181 RWORK-REF3182 INFO-REF3183)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1404 ':INT32) (LDA-REF1406 ':INT32) + (LWORK-REF1409 ':INT32) (INFO-REF1411 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1404 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1406 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1409 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1411 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1405 A) (W-REF1407 W) + (WORK-REF1408 WORK) + (RWORK-REF1410 RWORK)) + (COMMON-LISP:VALUES + (%%ZHEEV_2STAGE JOBZ UPLO N-REF1404 A-REF1405 LDA-REF1406 W-REF1407 + WORK-REF1408 LWORK-REF1409 RWORK-REF1410 INFO-REF1411) + (CFFI:MEM-REF N-REF1404 ':INT32) (CFFI:MEM-REF LDA-REF1406 ':INT32) + (CFFI:MEM-REF LWORK-REF1409 ':INT32) + (CFFI:MEM-REF INFO-REF1411 ':INT32))))) (CFFI:DEFCFUN ("zheevd_" %%ZHEEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -6854,22 +7386,28 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3186 ':INT32) (LDA-REF3188 ':INT32) - (LWORK-REF3191 ':INT32) (LRWORK-REF3193 ':INT32) - (LIWORK-REF3195 ':INT32) (INFO-REF3196 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3186 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3188 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3191 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF3193 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF3195 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3196 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3187 A) (W-REF3189 W) - (WORK-REF3190 WORK) - (RWORK-REF3192 RWORK) - (IWORK-REF3194 IWORK)) - (%%ZHEEVD JOBZ UPLO N-REF3186 A-REF3187 LDA-REF3188 W-REF3189 - WORK-REF3190 LWORK-REF3191 RWORK-REF3192 LRWORK-REF3193 IWORK-REF3194 - LIWORK-REF3195 INFO-REF3196)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1414 ':INT32) (LDA-REF1416 ':INT32) + (LWORK-REF1419 ':INT32) (LRWORK-REF1421 ':INT32) + (LIWORK-REF1423 ':INT32) (INFO-REF1424 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1414 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1416 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1419 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1421 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1423 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1424 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1415 A) (W-REF1417 W) + (WORK-REF1418 WORK) + (RWORK-REF1420 RWORK) + (IWORK-REF1422 IWORK)) + (COMMON-LISP:VALUES + (%%ZHEEVD JOBZ UPLO N-REF1414 A-REF1415 LDA-REF1416 W-REF1417 + WORK-REF1418 LWORK-REF1419 RWORK-REF1420 LRWORK-REF1421 IWORK-REF1422 + LIWORK-REF1423 INFO-REF1424) + (CFFI:MEM-REF N-REF1414 ':INT32) (CFFI:MEM-REF LDA-REF1416 ':INT32) + (CFFI:MEM-REF LWORK-REF1419 ':INT32) + (CFFI:MEM-REF LRWORK-REF1421 ':INT32) + (CFFI:MEM-REF LIWORK-REF1423 ':INT32) + (CFFI:MEM-REF INFO-REF1424 ':INT32))))) (CFFI:DEFCFUN ("zheevd_2stage_" %%ZHEEVD_2STAGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -6919,22 +7457,28 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3199 ':INT32) (LDA-REF3201 ':INT32) - (LWORK-REF3204 ':INT32) (LRWORK-REF3206 ':INT32) - (LIWORK-REF3208 ':INT32) (INFO-REF3209 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3199 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3201 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3204 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF3206 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF3208 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3209 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3200 A) (W-REF3202 W) - (WORK-REF3203 WORK) - (RWORK-REF3205 RWORK) - (IWORK-REF3207 IWORK)) - (%%ZHEEVD_2STAGE JOBZ UPLO N-REF3199 A-REF3200 LDA-REF3201 W-REF3202 - WORK-REF3203 LWORK-REF3204 RWORK-REF3205 LRWORK-REF3206 IWORK-REF3207 - LIWORK-REF3208 INFO-REF3209)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1427 ':INT32) (LDA-REF1429 ':INT32) + (LWORK-REF1432 ':INT32) (LRWORK-REF1434 ':INT32) + (LIWORK-REF1436 ':INT32) (INFO-REF1437 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1427 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1429 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1432 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1434 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1436 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1437 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1428 A) (W-REF1430 W) + (WORK-REF1431 WORK) + (RWORK-REF1433 RWORK) + (IWORK-REF1435 IWORK)) + (COMMON-LISP:VALUES + (%%ZHEEVD_2STAGE JOBZ UPLO N-REF1427 A-REF1428 LDA-REF1429 W-REF1430 + WORK-REF1431 LWORK-REF1432 RWORK-REF1433 LRWORK-REF1434 IWORK-REF1435 + LIWORK-REF1436 INFO-REF1437) + (CFFI:MEM-REF N-REF1427 ':INT32) (CFFI:MEM-REF LDA-REF1429 ':INT32) + (CFFI:MEM-REF LWORK-REF1432 ':INT32) + (CFFI:MEM-REF LRWORK-REF1434 ':INT32) + (CFFI:MEM-REF LIWORK-REF1436 ':INT32) + (CFFI:MEM-REF INFO-REF1437 ':INT32))))) (CFFI:DEFCFUN ("zheevr_" %%ZHEEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -7010,37 +7554,45 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3213 ':INT32) (LDA-REF3215 ':INT32) - (VL-REF3216 ':DOUBLE) (VU-REF3217 ':DOUBLE) - (IL-REF3218 ':INT32) (IU-REF3219 ':INT32) - (ABSTOL-REF3220 ':DOUBLE) (M-REF3221 ':INT32) - (LDZ-REF3224 ':INT32) (LWORK-REF3227 ':INT32) - (LRWORK-REF3229 ':INT32) (LIWORK-REF3231 ':INT32) - (INFO-REF3232 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3213 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3215 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3216 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3217 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF3218 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF3219 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF3220 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3221 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3224 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3227 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF3229 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF3231 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3232 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3214 A) (W-REF3222 W) - (Z-REF3223 Z) - (ISUPPZ-REF3225 ISUPPZ) - (WORK-REF3226 WORK) - (RWORK-REF3228 RWORK) - (IWORK-REF3230 IWORK)) - (%%ZHEEVR JOBZ RANGE UPLO N-REF3213 A-REF3214 LDA-REF3215 VL-REF3216 - VU-REF3217 IL-REF3218 IU-REF3219 ABSTOL-REF3220 M-REF3221 W-REF3222 - Z-REF3223 LDZ-REF3224 ISUPPZ-REF3225 WORK-REF3226 LWORK-REF3227 - RWORK-REF3228 LRWORK-REF3229 IWORK-REF3230 LIWORK-REF3231 - INFO-REF3232)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1441 ':INT32) (LDA-REF1443 ':INT32) + (VL-REF1444 ':DOUBLE) (VU-REF1445 ':DOUBLE) + (IL-REF1446 ':INT32) (IU-REF1447 ':INT32) + (ABSTOL-REF1448 ':DOUBLE) (M-REF1449 ':INT32) + (LDZ-REF1452 ':INT32) (LWORK-REF1455 ':INT32) + (LRWORK-REF1457 ':INT32) (LIWORK-REF1459 ':INT32) + (INFO-REF1460 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1441 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1443 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1444 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1445 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1446 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1447 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1448 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1449 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1452 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1455 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1457 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1459 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1460 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1442 A) (W-REF1450 W) + (Z-REF1451 Z) + (ISUPPZ-REF1453 ISUPPZ) + (WORK-REF1454 WORK) + (RWORK-REF1456 RWORK) + (IWORK-REF1458 IWORK)) + (COMMON-LISP:VALUES + (%%ZHEEVR JOBZ RANGE UPLO N-REF1441 A-REF1442 LDA-REF1443 VL-REF1444 + VU-REF1445 IL-REF1446 IU-REF1447 ABSTOL-REF1448 M-REF1449 W-REF1450 + Z-REF1451 LDZ-REF1452 ISUPPZ-REF1453 WORK-REF1454 LWORK-REF1455 + RWORK-REF1456 LRWORK-REF1457 IWORK-REF1458 LIWORK-REF1459 INFO-REF1460) + (CFFI:MEM-REF N-REF1441 ':INT32) (CFFI:MEM-REF LDA-REF1443 ':INT32) + (CFFI:MEM-REF VL-REF1444 ':DOUBLE) (CFFI:MEM-REF VU-REF1445 ':DOUBLE) + (CFFI:MEM-REF IL-REF1446 ':INT32) (CFFI:MEM-REF IU-REF1447 ':INT32) + (CFFI:MEM-REF ABSTOL-REF1448 ':DOUBLE) (CFFI:MEM-REF M-REF1449 ':INT32) + (CFFI:MEM-REF LDZ-REF1452 ':INT32) (CFFI:MEM-REF LWORK-REF1455 ':INT32) + (CFFI:MEM-REF LRWORK-REF1457 ':INT32) + (CFFI:MEM-REF LIWORK-REF1459 ':INT32) + (CFFI:MEM-REF INFO-REF1460 ':INT32))))) (CFFI:DEFCFUN ("zheevr_2stage_" %%ZHEEVR_2STAGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -7117,37 +7669,46 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3236 ':INT32) (LDA-REF3238 ':INT32) - (VL-REF3239 ':DOUBLE) (VU-REF3240 ':DOUBLE) - (IL-REF3241 ':INT32) (IU-REF3242 ':INT32) - (ABSTOL-REF3243 ':DOUBLE) (M-REF3244 ':INT32) - (LDZ-REF3247 ':INT32) (LWORK-REF3250 ':INT32) - (LRWORK-REF3252 ':INT32) (LIWORK-REF3254 ':INT32) - (INFO-REF3255 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3236 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3238 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3239 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3240 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF3241 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF3242 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF3243 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3244 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3247 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3250 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF3252 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF3254 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3255 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3237 A) (W-REF3245 W) - (Z-REF3246 Z) - (ISUPPZ-REF3248 ISUPPZ) - (WORK-REF3249 WORK) - (RWORK-REF3251 RWORK) - (IWORK-REF3253 IWORK)) - (%%ZHEEVR_2STAGE JOBZ RANGE UPLO N-REF3236 A-REF3237 LDA-REF3238 - VL-REF3239 VU-REF3240 IL-REF3241 IU-REF3242 ABSTOL-REF3243 M-REF3244 - W-REF3245 Z-REF3246 LDZ-REF3247 ISUPPZ-REF3248 WORK-REF3249 - LWORK-REF3250 RWORK-REF3251 LRWORK-REF3252 IWORK-REF3253 LIWORK-REF3254 - INFO-REF3255)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1464 ':INT32) (LDA-REF1466 ':INT32) + (VL-REF1467 ':DOUBLE) (VU-REF1468 ':DOUBLE) + (IL-REF1469 ':INT32) (IU-REF1470 ':INT32) + (ABSTOL-REF1471 ':DOUBLE) (M-REF1472 ':INT32) + (LDZ-REF1475 ':INT32) (LWORK-REF1478 ':INT32) + (LRWORK-REF1480 ':INT32) (LIWORK-REF1482 ':INT32) + (INFO-REF1483 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1464 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1466 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1467 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1468 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1469 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1470 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1471 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1472 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1475 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1478 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1480 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1482 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1483 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1465 A) (W-REF1473 W) + (Z-REF1474 Z) + (ISUPPZ-REF1476 ISUPPZ) + (WORK-REF1477 WORK) + (RWORK-REF1479 RWORK) + (IWORK-REF1481 IWORK)) + (COMMON-LISP:VALUES + (%%ZHEEVR_2STAGE JOBZ RANGE UPLO N-REF1464 A-REF1465 LDA-REF1466 + VL-REF1467 VU-REF1468 IL-REF1469 IU-REF1470 ABSTOL-REF1471 M-REF1472 + W-REF1473 Z-REF1474 LDZ-REF1475 ISUPPZ-REF1476 WORK-REF1477 + LWORK-REF1478 RWORK-REF1479 LRWORK-REF1480 IWORK-REF1481 LIWORK-REF1482 + INFO-REF1483) + (CFFI:MEM-REF N-REF1464 ':INT32) (CFFI:MEM-REF LDA-REF1466 ':INT32) + (CFFI:MEM-REF VL-REF1467 ':DOUBLE) (CFFI:MEM-REF VU-REF1468 ':DOUBLE) + (CFFI:MEM-REF IL-REF1469 ':INT32) (CFFI:MEM-REF IU-REF1470 ':INT32) + (CFFI:MEM-REF ABSTOL-REF1471 ':DOUBLE) (CFFI:MEM-REF M-REF1472 ':INT32) + (CFFI:MEM-REF LDZ-REF1475 ':INT32) (CFFI:MEM-REF LWORK-REF1478 ':INT32) + (CFFI:MEM-REF LRWORK-REF1480 ':INT32) + (CFFI:MEM-REF LIWORK-REF1482 ':INT32) + (CFFI:MEM-REF INFO-REF1483 ':INT32))))) (CFFI:DEFCFUN ("zheevx_" %%ZHEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -7219,32 +7780,39 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3259 ':INT32) (LDA-REF3261 ':INT32) - (VL-REF3262 ':DOUBLE) (VU-REF3263 ':DOUBLE) - (IL-REF3264 ':INT32) (IU-REF3265 ':INT32) - (ABSTOL-REF3266 ':DOUBLE) (M-REF3267 ':INT32) - (LDZ-REF3270 ':INT32) (LWORK-REF3272 ':INT32) - (INFO-REF3276 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3259 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3261 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3262 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3263 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF3264 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF3265 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF3266 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3267 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3270 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3272 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3276 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3260 A) (W-REF3268 W) - (Z-REF3269 Z) (WORK-REF3271 WORK) - (RWORK-REF3273 RWORK) - (IWORK-REF3274 IWORK) - (IFAIL-REF3275 IFAIL)) - (%%ZHEEVX JOBZ RANGE UPLO N-REF3259 A-REF3260 LDA-REF3261 VL-REF3262 - VU-REF3263 IL-REF3264 IU-REF3265 ABSTOL-REF3266 M-REF3267 W-REF3268 - Z-REF3269 LDZ-REF3270 WORK-REF3271 LWORK-REF3272 RWORK-REF3273 - IWORK-REF3274 IFAIL-REF3275 INFO-REF3276)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1487 ':INT32) (LDA-REF1489 ':INT32) + (VL-REF1490 ':DOUBLE) (VU-REF1491 ':DOUBLE) + (IL-REF1492 ':INT32) (IU-REF1493 ':INT32) + (ABSTOL-REF1494 ':DOUBLE) (M-REF1495 ':INT32) + (LDZ-REF1498 ':INT32) (LWORK-REF1500 ':INT32) + (INFO-REF1504 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1487 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1489 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1490 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1491 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1492 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1493 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1494 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1495 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1498 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1500 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1504 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1488 A) (W-REF1496 W) + (Z-REF1497 Z) (WORK-REF1499 WORK) + (RWORK-REF1501 RWORK) + (IWORK-REF1502 IWORK) + (IFAIL-REF1503 IFAIL)) + (COMMON-LISP:VALUES + (%%ZHEEVX JOBZ RANGE UPLO N-REF1487 A-REF1488 LDA-REF1489 VL-REF1490 + VU-REF1491 IL-REF1492 IU-REF1493 ABSTOL-REF1494 M-REF1495 W-REF1496 + Z-REF1497 LDZ-REF1498 WORK-REF1499 LWORK-REF1500 RWORK-REF1501 + IWORK-REF1502 IFAIL-REF1503 INFO-REF1504) + (CFFI:MEM-REF N-REF1487 ':INT32) (CFFI:MEM-REF LDA-REF1489 ':INT32) + (CFFI:MEM-REF VL-REF1490 ':DOUBLE) (CFFI:MEM-REF VU-REF1491 ':DOUBLE) + (CFFI:MEM-REF IL-REF1492 ':INT32) (CFFI:MEM-REF IU-REF1493 ':INT32) + (CFFI:MEM-REF ABSTOL-REF1494 ':DOUBLE) (CFFI:MEM-REF M-REF1495 ':INT32) + (CFFI:MEM-REF LDZ-REF1498 ':INT32) (CFFI:MEM-REF LWORK-REF1500 ':INT32) + (CFFI:MEM-REF INFO-REF1504 ':INT32))))) (CFFI:DEFCFUN ("zheevx_2stage_" %%ZHEEVX_2STAGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -7317,32 +7885,39 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3280 ':INT32) (LDA-REF3282 ':INT32) - (VL-REF3283 ':DOUBLE) (VU-REF3284 ':DOUBLE) - (IL-REF3285 ':INT32) (IU-REF3286 ':INT32) - (ABSTOL-REF3287 ':DOUBLE) (M-REF3288 ':INT32) - (LDZ-REF3291 ':INT32) (LWORK-REF3293 ':INT32) - (INFO-REF3297 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3280 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3282 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3283 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3284 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF3285 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF3286 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF3287 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3288 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3291 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3293 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3297 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3281 A) (W-REF3289 W) - (Z-REF3290 Z) (WORK-REF3292 WORK) - (RWORK-REF3294 RWORK) - (IWORK-REF3295 IWORK) - (IFAIL-REF3296 IFAIL)) - (%%ZHEEVX_2STAGE JOBZ RANGE UPLO N-REF3280 A-REF3281 LDA-REF3282 - VL-REF3283 VU-REF3284 IL-REF3285 IU-REF3286 ABSTOL-REF3287 M-REF3288 - W-REF3289 Z-REF3290 LDZ-REF3291 WORK-REF3292 LWORK-REF3293 RWORK-REF3294 - IWORK-REF3295 IFAIL-REF3296 INFO-REF3297)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1508 ':INT32) (LDA-REF1510 ':INT32) + (VL-REF1511 ':DOUBLE) (VU-REF1512 ':DOUBLE) + (IL-REF1513 ':INT32) (IU-REF1514 ':INT32) + (ABSTOL-REF1515 ':DOUBLE) (M-REF1516 ':INT32) + (LDZ-REF1519 ':INT32) (LWORK-REF1521 ':INT32) + (INFO-REF1525 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1508 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1510 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1511 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1512 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1513 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1514 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1515 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1516 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1519 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1521 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1525 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1509 A) (W-REF1517 W) + (Z-REF1518 Z) (WORK-REF1520 WORK) + (RWORK-REF1522 RWORK) + (IWORK-REF1523 IWORK) + (IFAIL-REF1524 IFAIL)) + (COMMON-LISP:VALUES + (%%ZHEEVX_2STAGE JOBZ RANGE UPLO N-REF1508 A-REF1509 LDA-REF1510 + VL-REF1511 VU-REF1512 IL-REF1513 IU-REF1514 ABSTOL-REF1515 M-REF1516 + W-REF1517 Z-REF1518 LDZ-REF1519 WORK-REF1520 LWORK-REF1521 + RWORK-REF1522 IWORK-REF1523 IFAIL-REF1524 INFO-REF1525) + (CFFI:MEM-REF N-REF1508 ':INT32) (CFFI:MEM-REF LDA-REF1510 ':INT32) + (CFFI:MEM-REF VL-REF1511 ':DOUBLE) (CFFI:MEM-REF VU-REF1512 ':DOUBLE) + (CFFI:MEM-REF IL-REF1513 ':INT32) (CFFI:MEM-REF IU-REF1514 ':INT32) + (CFFI:MEM-REF ABSTOL-REF1515 ':DOUBLE) (CFFI:MEM-REF M-REF1516 ':INT32) + (CFFI:MEM-REF LDZ-REF1519 ':INT32) (CFFI:MEM-REF LWORK-REF1521 ':INT32) + (CFFI:MEM-REF INFO-REF1525 ':INT32))))) (CFFI:DEFCFUN ("zlaunhr_col_getrfnp_" %%ZLAUNHR_COL_GETRFNP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -7370,15 +7945,19 @@ (COMMON-LISP:*)) D) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3298 ':INT32) (N-REF3299 ':INT32) - (LDA-REF3301 ':INT32) (INFO-REF3303 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3298 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3299 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3301 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3303 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3300 A) (D-REF3302 D)) - (%%ZLAUNHR_COL_GETRFNP M-REF3298 N-REF3299 A-REF3300 LDA-REF3301 - D-REF3302 INFO-REF3303)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1526 ':INT32) (N-REF1527 ':INT32) + (LDA-REF1529 ':INT32) (INFO-REF1531 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1526 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1527 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1529 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1531 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1528 A) (D-REF1530 D)) + (COMMON-LISP:VALUES + (%%ZLAUNHR_COL_GETRFNP M-REF1526 N-REF1527 A-REF1528 LDA-REF1529 + D-REF1530 INFO-REF1531) + (CFFI:MEM-REF M-REF1526 ':INT32) (CFFI:MEM-REF N-REF1527 ':INT32) + (CFFI:MEM-REF LDA-REF1529 ':INT32) + (CFFI:MEM-REF INFO-REF1531 ':INT32))))) (CFFI:DEFCFUN ("zlaunhr_col_getrfnp2_" %%ZLAUNHR_COL_GETRFNP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -7406,15 +7985,19 @@ (COMMON-LISP:*)) D) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3304 ':INT32) (N-REF3305 ':INT32) - (LDA-REF3307 ':INT32) (INFO-REF3309 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3304 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3305 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3307 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3309 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3306 A) (D-REF3308 D)) - (%%ZLAUNHR_COL_GETRFNP2 M-REF3304 N-REF3305 A-REF3306 LDA-REF3307 - D-REF3308 INFO-REF3309)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1532 ':INT32) (N-REF1533 ':INT32) + (LDA-REF1535 ':INT32) (INFO-REF1537 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1532 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1533 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1535 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1537 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1534 A) (D-REF1536 D)) + (COMMON-LISP:VALUES + (%%ZLAUNHR_COL_GETRFNP2 M-REF1532 N-REF1533 A-REF1534 LDA-REF1535 + D-REF1536 INFO-REF1537) + (CFFI:MEM-REF M-REF1532 ':INT32) (CFFI:MEM-REF N-REF1533 ':INT32) + (CFFI:MEM-REF LDA-REF1535 ':INT32) + (CFFI:MEM-REF INFO-REF1537 ':INT32))))) (CFFI:DEFCFUN ("zuncsd_" %%ZUNCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -7531,41 +8114,52 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3316 ':INT32) (P-REF3317 ':INT32) - (Q-REF3318 ':INT32) (LDX11-REF3320 ':INT32) - (LDX12-REF3322 ':INT32) (LDX21-REF3324 ':INT32) - (LDX22-REF3326 ':INT32) (LDU1-REF3329 ':INT32) - (LDU2-REF3331 ':INT32) (LDV1T-REF3333 ':INT32) - (LDV2T-REF3335 ':INT32) (LWORK-REF3337 ':INT32) - (LRWORK-REF3339 ':INT32) (INFO-REF3341 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3316 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF3317 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF3318 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF3320 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF3322 :INT32) LDX12) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF3324 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF3326 :INT32) LDX22) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF3329 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF3331 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF3333 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF3335 :INT32) LDV2T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3337 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF3339 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3341 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF3319 X11) (X12-REF3321 X12) - (X21-REF3323 X21) (X22-REF3325 X22) - (THETA-REF3327 THETA) - (U1-REF3328 U1) (U2-REF3330 U2) - (V1T-REF3332 V1T) (V2T-REF3334 V2T) - (WORK-REF3336 WORK) - (RWORK-REF3338 RWORK) - (IWORK-REF3340 IWORK)) - (%%ZUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF3316 P-REF3317 - Q-REF3318 X11-REF3319 LDX11-REF3320 X12-REF3321 LDX12-REF3322 - X21-REF3323 LDX21-REF3324 X22-REF3325 LDX22-REF3326 THETA-REF3327 - U1-REF3328 LDU1-REF3329 U2-REF3330 LDU2-REF3331 V1T-REF3332 - LDV1T-REF3333 V2T-REF3334 LDV2T-REF3335 WORK-REF3336 LWORK-REF3337 - RWORK-REF3338 LRWORK-REF3339 IWORK-REF3340 INFO-REF3341)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1544 ':INT32) (P-REF1545 ':INT32) + (Q-REF1546 ':INT32) (LDX11-REF1548 ':INT32) + (LDX12-REF1550 ':INT32) (LDX21-REF1552 ':INT32) + (LDX22-REF1554 ':INT32) (LDU1-REF1557 ':INT32) + (LDU2-REF1559 ':INT32) (LDV1T-REF1561 ':INT32) + (LDV2T-REF1563 ':INT32) (LWORK-REF1565 ':INT32) + (LRWORK-REF1567 ':INT32) (INFO-REF1569 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1544 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1545 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF1546 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF1548 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF1550 :INT32) LDX12) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF1552 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF1554 :INT32) LDX22) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF1557 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF1559 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF1561 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF1563 :INT32) LDV2T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1565 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1567 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1569 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF1547 X11) (X12-REF1549 X12) + (X21-REF1551 X21) (X22-REF1553 X22) + (THETA-REF1555 THETA) + (U1-REF1556 U1) (U2-REF1558 U2) + (V1T-REF1560 V1T) (V2T-REF1562 V2T) + (WORK-REF1564 WORK) + (RWORK-REF1566 RWORK) + (IWORK-REF1568 IWORK)) + (COMMON-LISP:VALUES + (%%ZUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF1544 P-REF1545 + Q-REF1546 X11-REF1547 LDX11-REF1548 X12-REF1549 LDX12-REF1550 + X21-REF1551 LDX21-REF1552 X22-REF1553 LDX22-REF1554 THETA-REF1555 + U1-REF1556 LDU1-REF1557 U2-REF1558 LDU2-REF1559 V1T-REF1560 + LDV1T-REF1561 V2T-REF1562 LDV2T-REF1563 WORK-REF1564 LWORK-REF1565 + RWORK-REF1566 LRWORK-REF1567 IWORK-REF1568 INFO-REF1569) + (CFFI:MEM-REF M-REF1544 ':INT32) (CFFI:MEM-REF P-REF1545 ':INT32) + (CFFI:MEM-REF Q-REF1546 ':INT32) (CFFI:MEM-REF LDX11-REF1548 ':INT32) + (CFFI:MEM-REF LDX12-REF1550 ':INT32) + (CFFI:MEM-REF LDX21-REF1552 ':INT32) + (CFFI:MEM-REF LDX22-REF1554 ':INT32) (CFFI:MEM-REF LDU1-REF1557 ':INT32) + (CFFI:MEM-REF LDU2-REF1559 ':INT32) (CFFI:MEM-REF LDV1T-REF1561 ':INT32) + (CFFI:MEM-REF LDV2T-REF1563 ':INT32) + (CFFI:MEM-REF LWORK-REF1565 ':INT32) + (CFFI:MEM-REF LRWORK-REF1567 ':INT32) + (CFFI:MEM-REF INFO-REF1569 ':INT32))))) (CFFI:DEFCFUN ("zuncsd2by1_" %%ZUNCSD2BY1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) @@ -7652,35 +8246,43 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3345 ':INT32) (P-REF3346 ':INT32) - (Q-REF3347 ':INT32) (LDX11-REF3349 ':INT32) - (LDX21-REF3351 ':INT32) (LDU1-REF3354 ':INT32) - (LDU2-REF3356 ':INT32) (LDV1T-REF3358 ':INT32) - (LWORK-REF3360 ':INT32) (LRWORK-REF3362 ':INT32) - (INFO-REF3364 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3345 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF3346 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF3347 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF3349 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF3351 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF3354 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF3356 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF3358 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3360 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF3362 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3364 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF3348 X11) (X21-REF3350 X21) - (THETA-REF3352 THETA) - (U1-REF3353 U1) (U2-REF3355 U2) - (V1T-REF3357 V1T) - (WORK-REF3359 WORK) - (RWORK-REF3361 RWORK) - (IWORK-REF3363 IWORK)) - (%%ZUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF3345 P-REF3346 Q-REF3347 - X11-REF3348 LDX11-REF3349 X21-REF3350 LDX21-REF3351 THETA-REF3352 - U1-REF3353 LDU1-REF3354 U2-REF3355 LDU2-REF3356 V1T-REF3357 - LDV1T-REF3358 WORK-REF3359 LWORK-REF3360 RWORK-REF3361 LRWORK-REF3362 - IWORK-REF3363 INFO-REF3364)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1573 ':INT32) (P-REF1574 ':INT32) + (Q-REF1575 ':INT32) (LDX11-REF1577 ':INT32) + (LDX21-REF1579 ':INT32) (LDU1-REF1582 ':INT32) + (LDU2-REF1584 ':INT32) (LDV1T-REF1586 ':INT32) + (LWORK-REF1588 ':INT32) (LRWORK-REF1590 ':INT32) + (INFO-REF1592 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1573 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1574 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF1575 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF1577 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF1579 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF1582 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF1584 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF1586 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1588 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1590 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1592 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF1576 X11) (X21-REF1578 X21) + (THETA-REF1580 THETA) + (U1-REF1581 U1) (U2-REF1583 U2) + (V1T-REF1585 V1T) + (WORK-REF1587 WORK) + (RWORK-REF1589 RWORK) + (IWORK-REF1591 IWORK)) + (COMMON-LISP:VALUES + (%%ZUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF1573 P-REF1574 Q-REF1575 + X11-REF1576 LDX11-REF1577 X21-REF1578 LDX21-REF1579 THETA-REF1580 + U1-REF1581 LDU1-REF1582 U2-REF1583 LDU2-REF1584 V1T-REF1585 + LDV1T-REF1586 WORK-REF1587 LWORK-REF1588 RWORK-REF1589 LRWORK-REF1590 + IWORK-REF1591 INFO-REF1592) + (CFFI:MEM-REF M-REF1573 ':INT32) (CFFI:MEM-REF P-REF1574 ':INT32) + (CFFI:MEM-REF Q-REF1575 ':INT32) (CFFI:MEM-REF LDX11-REF1577 ':INT32) + (CFFI:MEM-REF LDX21-REF1579 ':INT32) (CFFI:MEM-REF LDU1-REF1582 ':INT32) + (CFFI:MEM-REF LDU2-REF1584 ':INT32) (CFFI:MEM-REF LDV1T-REF1586 ':INT32) + (CFFI:MEM-REF LWORK-REF1588 ':INT32) + (CFFI:MEM-REF LRWORK-REF1590 ':INT32) + (CFFI:MEM-REF INFO-REF1592 ':INT32))))) (CFFI:DEFCFUN ("zunglq_" %%ZUNGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -7717,19 +8319,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3365 ':INT32) (N-REF3366 ':INT32) - (K-REF3367 ':INT32) (LDA-REF3369 ':INT32) - (LWORK-REF3372 ':INT32) (INFO-REF3373 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3365 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3366 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3367 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3369 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3372 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3373 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3368 A) (TAU-REF3370 TAU) - (WORK-REF3371 WORK)) - (%%ZUNGLQ M-REF3365 N-REF3366 K-REF3367 A-REF3368 LDA-REF3369 TAU-REF3370 - WORK-REF3371 LWORK-REF3372 INFO-REF3373)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1593 ':INT32) (N-REF1594 ':INT32) + (K-REF1595 ':INT32) (LDA-REF1597 ':INT32) + (LWORK-REF1600 ':INT32) (INFO-REF1601 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1593 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1594 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1595 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1597 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1600 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1601 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1596 A) (TAU-REF1598 TAU) + (WORK-REF1599 WORK)) + (COMMON-LISP:VALUES + (%%ZUNGLQ M-REF1593 N-REF1594 K-REF1595 A-REF1596 LDA-REF1597 + TAU-REF1598 WORK-REF1599 LWORK-REF1600 INFO-REF1601) + (CFFI:MEM-REF M-REF1593 ':INT32) (CFFI:MEM-REF N-REF1594 ':INT32) + (CFFI:MEM-REF K-REF1595 ':INT32) (CFFI:MEM-REF LDA-REF1597 ':INT32) + (CFFI:MEM-REF LWORK-REF1600 ':INT32) + (CFFI:MEM-REF INFO-REF1601 ':INT32))))) (CFFI:DEFCFUN ("zungql_" %%ZUNGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -7766,19 +8373,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3374 ':INT32) (N-REF3375 ':INT32) - (K-REF3376 ':INT32) (LDA-REF3378 ':INT32) - (LWORK-REF3381 ':INT32) (INFO-REF3382 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3374 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3375 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3376 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3378 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3381 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3382 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3377 A) (TAU-REF3379 TAU) - (WORK-REF3380 WORK)) - (%%ZUNGQL M-REF3374 N-REF3375 K-REF3376 A-REF3377 LDA-REF3378 TAU-REF3379 - WORK-REF3380 LWORK-REF3381 INFO-REF3382)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1602 ':INT32) (N-REF1603 ':INT32) + (K-REF1604 ':INT32) (LDA-REF1606 ':INT32) + (LWORK-REF1609 ':INT32) (INFO-REF1610 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1602 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1603 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1604 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1606 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1609 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1610 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1605 A) (TAU-REF1607 TAU) + (WORK-REF1608 WORK)) + (COMMON-LISP:VALUES + (%%ZUNGQL M-REF1602 N-REF1603 K-REF1604 A-REF1605 LDA-REF1606 + TAU-REF1607 WORK-REF1608 LWORK-REF1609 INFO-REF1610) + (CFFI:MEM-REF M-REF1602 ':INT32) (CFFI:MEM-REF N-REF1603 ':INT32) + (CFFI:MEM-REF K-REF1604 ':INT32) (CFFI:MEM-REF LDA-REF1606 ':INT32) + (CFFI:MEM-REF LWORK-REF1609 ':INT32) + (CFFI:MEM-REF INFO-REF1610 ':INT32))))) (CFFI:DEFCFUN ("zungqr_" %%ZUNGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -7815,19 +8427,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3383 ':INT32) (N-REF3384 ':INT32) - (K-REF3385 ':INT32) (LDA-REF3387 ':INT32) - (LWORK-REF3390 ':INT32) (INFO-REF3391 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3383 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3384 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3385 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3387 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3390 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3391 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3386 A) (TAU-REF3388 TAU) - (WORK-REF3389 WORK)) - (%%ZUNGQR M-REF3383 N-REF3384 K-REF3385 A-REF3386 LDA-REF3387 TAU-REF3388 - WORK-REF3389 LWORK-REF3390 INFO-REF3391)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1611 ':INT32) (N-REF1612 ':INT32) + (K-REF1613 ':INT32) (LDA-REF1615 ':INT32) + (LWORK-REF1618 ':INT32) (INFO-REF1619 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1611 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1612 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1613 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1615 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1618 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1619 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1614 A) (TAU-REF1616 TAU) + (WORK-REF1617 WORK)) + (COMMON-LISP:VALUES + (%%ZUNGQR M-REF1611 N-REF1612 K-REF1613 A-REF1614 LDA-REF1615 + TAU-REF1616 WORK-REF1617 LWORK-REF1618 INFO-REF1619) + (CFFI:MEM-REF M-REF1611 ':INT32) (CFFI:MEM-REF N-REF1612 ':INT32) + (CFFI:MEM-REF K-REF1613 ':INT32) (CFFI:MEM-REF LDA-REF1615 ':INT32) + (CFFI:MEM-REF LWORK-REF1618 ':INT32) + (CFFI:MEM-REF INFO-REF1619 ':INT32))))) (CFFI:DEFCFUN ("zungrq_" %%ZUNGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID @@ -7864,19 +8481,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3392 ':INT32) (N-REF3393 ':INT32) - (K-REF3394 ':INT32) (LDA-REF3396 ':INT32) - (LWORK-REF3399 ':INT32) (INFO-REF3400 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3392 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3393 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3394 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3396 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3399 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3400 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3395 A) (TAU-REF3397 TAU) - (WORK-REF3398 WORK)) - (%%ZUNGRQ M-REF3392 N-REF3393 K-REF3394 A-REF3395 LDA-REF3396 TAU-REF3397 - WORK-REF3398 LWORK-REF3399 INFO-REF3400)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1620 ':INT32) (N-REF1621 ':INT32) + (K-REF1622 ':INT32) (LDA-REF1624 ':INT32) + (LWORK-REF1627 ':INT32) (INFO-REF1628 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1620 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1621 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1622 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1624 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1627 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1628 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1623 A) (TAU-REF1625 TAU) + (WORK-REF1626 WORK)) + (COMMON-LISP:VALUES + (%%ZUNGRQ M-REF1620 N-REF1621 K-REF1622 A-REF1623 LDA-REF1624 + TAU-REF1625 WORK-REF1626 LWORK-REF1627 INFO-REF1628) + (CFFI:MEM-REF M-REF1620 ':INT32) (CFFI:MEM-REF N-REF1621 ':INT32) + (CFFI:MEM-REF K-REF1622 ':INT32) (CFFI:MEM-REF LDA-REF1624 ':INT32) + (CFFI:MEM-REF LWORK-REF1627 ':INT32) + (CFFI:MEM-REF INFO-REF1628 ':INT32))))) (COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%CGEES %CGEES %%CGEESX %CGEESX %%CGEEV %CGEEV %%CGEEVX diff --git a/src/extensions/lapack/lapack-templates.lisp b/src/extensions/lapack/lapack-templates.lisp index 1bf5bc7b..075da8ee 100644 --- a/src/extensions/lapack/lapack-templates.lisp +++ b/src/extensions/lapack/lapack-templates.lisp @@ -137,17 +137,19 @@ (ipiv (magicl::storage ipiv)) (info 0)) (when (eql :row-major (layout b-tensor)) (transpose! b-tensor)) - (,lu-solve-function - trans - n - nrhs - a - lda - ipiv - b - ldb - info) - b-tensor))) + (multiple-value-bind (res n nrhs lda ldb info) + (,lu-solve-function + trans + n + nrhs + a + lda + ipiv + b + ldb + info) + (declare (ignore res n nrhs lda ldb)) + (values b-tensor info))))) (defun generate-lapack-inv-for-type (class type lu-function inv-function) `(defmethod lapack-inv ((a ,class)) diff --git a/src/generate-interface/generate-interface.lisp b/src/generate-interface/generate-interface.lisp index 42ca5855..d66c4c36 100644 --- a/src/generate-interface/generate-interface.lisp +++ b/src/generate-interface/generate-interface.lisp @@ -467,15 +467,24 @@ need to be customized." :unless (atom norm-type) :collect `(,ref-var ,var)) - ;; The raw call. - (,raw-call-name - ,@(loop :for var :in vars - :for ref-var :in ref-vars - :for norm-type :in normalized-types - :collect (cond - ((eq ':fortran-string norm-type) var) - ((atom norm-type) ref-var) - (t ref-var))))))))))) + ;; The raw call. + (values + (,raw-call-name + ,@(loop :for var :in vars + :for ref-var :in ref-vars + :for norm-type :in normalized-types + :collect (cond + ((eq ':fortran-string norm-type) var) + ((atom norm-type) ref-var) + (t ref-var)))) + ,@(loop :for ref-var :in ref-vars + :for norm-type :in normalized-types + :when (and (atom norm-type) + (not (eq ':fortran-string norm-type))) + :collect `(cffi:mem-ref + ,ref-var + ',(normalized-type-to-cffi-type + norm-type ':immediate))))))))))) (defun generate-bindings-file (filename package-name bindings &optional (outdir *outdir*))