- gsll-devel - mailman3.common-lisp.net

A question about cholesky-solve
by Richard Holcombe 12 Jul '21

12 Jul '21

I am running sbcl 2.1.6 on linux. I installed gsll using quicklisp I picked an arbitrary linear system to solve: (gsl:cholesky-solve (grid:make-foreign-array 'double-float :dimensions '(3 3) :initial-contents '((1 2 3)(4 5 6)(12 42 65))) (grid:make-foreign-array 'double-float :dimensions '(3) :initial-contents '(4 5 3)) t) and it comes back with: #m(6.002328994082840d0 -0.534239053254438d0 0.011218934911243d0) but the correct answer is [12.524;-28.048;15.857] I can't figure out the number it is giving me. What could I be missing? Richard

1 0

Re: Install error on ECL
by NOEU 23 Feb '20

23 Feb '20

Thank you for teaching me. Report the problem to the ECL maintainer. On 2020/02/06 11:22, Liam Healy wrote: > That looks like an ECL error to me; "#+" is a standard reader macro for > features > http://www.lispworks.com/documentation/HyperSpec/Body/02_dhq.htm > > On Tue, Feb 4, 2020 at 12:32 AM NOEU <hu.moonstone(a)gmail.com > <mailto:hu.moonstone@gmail.com>> wrote: > > When I tried to install GSLL using Quicklisp with ECL (Embeddable > Common > Lisp) 16.1.3, the following error occurred and installation failed. I > use Debian GNU / Linux (buster). Is there a way to solve this problem? > (I'm not native English, I'm sorry if there is a mistake type) > > > > (ql:quickload "gsll") > To load "gsll": > Load 1 ASDF system: > gsll > ; Loading "gsll" > ;;; Internal error: > ;;; ** Reader error in file #<input stream > #P"/home/hiro/deepspace/share/deepspace/quicklisp/dists/quicklisp/software/gsll-quicklisp-eeeda841-git/polynomial.lisp">, > > position 2690: > ;;; No dispatch function defined for character #\+ > Condition of type: COMPILE-FILE-ERROR > COMPILE-FILE-ERROR while compiling #<cl-source-file "gsll" "polynomial"> >

1 1

Install error on ECL
by NOEU 04 Feb '20

04 Feb '20

When I tried to install GSLL using Quicklisp with ECL (Embeddable Common Lisp) 16.1.3, the following error occurred and installation failed. I use Debian GNU / Linux (buster). Is there a way to solve this problem? (I'm not native English, I'm sorry if there is a mistake type) > (ql:quickload "gsll") To load "gsll": Load 1 ASDF system: gsll ; Loading "gsll" ;;; Internal error: ;;; ** Reader error in file #<input stream #P"/home/hiro/deepspace/share/deepspace/quicklisp/dists/quicklisp/software/gsll-quicklisp-eeeda841-git/polynomial.lisp">, position 2690: ;;; No dispatch function defined for character #\+ Condition of type: COMPILE-FILE-ERROR COMPILE-FILE-ERROR while compiling #<cl-source-file "gsll" "polynomial">

1 0

[gsll-devel] GSL2 switch bug?
by Name Name 23 Aug '17

23 Aug '17

Hi there, I'm trying to compile the latest version of GSLL (last commit on master branch dd2e7673) and have a compilation error saying that function "jacobian" is called with one argument whereas it wants exactly two. It happens on the following line: https://gitlab.common-lisp.net/antik/gsll/blob/master/solve-minimize-fit/no… and the compiler has the right to complain as with my GSL2 version the signature of the function indeed wants two arguments: https://gitlab.common-lisp.net/antik/gsll/blob/master/solve-minimize-fit/no… This seems like an easy to fix bug but I have no idea about the internals of this library. Could somebody help out? For now I just exchanged the call (on line L262) of "(jacobian solver)" to "(jacobian solver cov)" to have some matrix in there but I don't think that this is the right solution. Thanks in advance! Gaya

2 4

GSL 2 compatibility
by Liam Healy 29 Sep '16

29 Sep '16

As many have noticed, GSLL does not load with GSL 2.x, because of changes to the library API. I have pushed a commit 32bbd1aae8ef that should address this, and I'd like to find testers who have GSL 2 installed. If you do, and you're comfortable with Lisp programming and loading GSLL from git, please get this commit and try loading it. You should get an error "GSLL does not currently work with GSL version 2.x". Then go into init/gsl-version.lisp and remove the last form (error ...), and try loading again. Let me know what happens. Note that at this point, just getting GSLL to load is my goal. It may not execute the changed definitions without error, but I want to start by just getting it to load. If you have results on what happens when you run the functions, I'd be happy to hear about it. Here is the gitlab page for GSLL: https://gitlab.common-lisp.net/antik/gsll Thanks, Liam

2 1

Fwd: Auto-discard notification
by Liam Healy 04 Aug '16

04 Aug '16

GSLL has only recently been updated to support GSL through v. 1.13. Any 1.x version should load, but new functions will not be available. For GSL v 2.x, the interface changed so I expect it will not load. Your best bet for quick results is to locate an old (1.x) version of GSL and use that. Note: please join the mailing list. Posts from non-members are automatically discarded due to the spam problem. Thanks, Liam ---------- Forwarded message ---------- From: <gsll-devel-bounces(a)common-lisp.net> Date: Sat, Jul 23, 2016 at 3:23 PM Subject: Auto-discard notification To: gsll-devel-owner(a)common-lisp.net The attached message has been automatically discarded. ---------- Forwarded message ---------- From: Karl Fogelmark <karlf(a)thep.lu.se> To: gsll-devel(a)common-lisp.net Cc: Date: Sat, 23 Jul 2016 21:16:40 +0200 Subject: GSL 2.0 incompatibility? Hi! I'm trying to install GSLL, as I need it for software that is to be included in a paper I plant to submit to a journal the coming week. However, I'm getting an error message I interpret at an incompatibility with GSL 2 (which changed parts of the API). I'm running Arch Linux, with GSL 2.1, SBCL 1.3.6, libffi 3.2.1, and attempted to install GSLL using quicklisp, as recommended. I've been advised on #lisp to contact you, as the mail list indicates that this bug has been resolved? If you have any ideas how I can resolve this issue, it would be much appreciated. Please find the error message attached below. Regards /Karl [vandelay@x201][~/quicklisp]% sbcl This is SBCL 1.3.6, an implementation of ANSI Common Lisp. More information about SBCL is available at <http://www.sbcl.org/>. SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * (ql:quickload "gsll") To load "gsll": Load 1 ASDF system: gsll ; Loading "gsll" .............; cc -m64 -I/home/vandelay/quicklisp/dists/quicklisp/software/cffi_0.16.1/ -o /home/vandelay/.cache/common-lisp/sbcl-1.3.6-linux-x64/home/vandelay/quicklisp/dists/quicklisp/software/gsll-master-b2f6ae1f-git/solve-minimize-fit/solver-struct /home/vandelay/.cache/common-lisp/sbcl-1.3.6-linux-x64/home/vandelay/quicklisp/dists/quicklisp/software/gsll-master-b2f6ae1f-git/solve-minimize-fit/solver-struct.c debugger invoked on a CFFI-GROVEL:GROVEL-ERROR in thread #<THREAD "main thread" RUNNING {1002936593}>: External process exited with code 1. Command was: "cc" "-m64" "-I/home/vandelay/quicklisp/dists/quicklisp/software/cffi_0.16.1/" "-o" "/home/vandelay/.cache/common-lisp/sbcl-1.3.6-linux-x64/home/vandelay/quicklisp/dists/quicklisp/software/gsll-master-b2f6ae1f-git/solve-minimize-fit/solver-struct" "/home/vandelay/.cache/common-lisp/sbcl-1.3.6-linux-x64/home/vandelay/quicklisp/dists/quicklisp/software/gsll-master-b2f6ae1f-git/solve-minimize-fit/solver-struct.c" Output was: which: no rc in (/home/vandelay/usr/bin:/home/vandelay/usr/local/bin:/home/vandelay/usr/bin:/home/vandelay/usr/local/bin:/home/vandelay/usr/bin:/home/vandelay/usr/local/bin:/home/vandelay/bin:/home/vandelay/usr/bin:/home/vandelay/usr/local/bin:/usr/local/sbin:/usr/local/bin:/usr/bin:/usr/bin/site_perl:/usr/bin/vendor_perl:/usr/bin/core_perl) In file included from /home/vandelay/.cache/common-lisp/sbcl-1.3.6-linux-x64/home/vandelay/quicklisp/dists/quicklisp/software/gsll-master-b2f6ae1f-git/solve-minimize-fit/solver-struct.c:10:0: /home/vandelay/.cache/common-lisp/sbcl-1.3.6-linux-x64/home/vandelay/quicklisp/dists/quicklisp/software/gsll-master-b2f6ae1f-git/solve-minimize-fit/solver-struct.c: In function ‘main’: /home/vandelay/quicklisp/dists/quicklisp/software/cffi_0.16.1/grovel/common.h:8:62: error: ‘gsl_multifit_fdfsolver {aka struct <anonymous>}’ has no member named ‘J’ #define offsetof(type, slot) ((long) ((char *) &(((type *) 0)->slot))) ^ /home/vandelay/.cache/common-lisp/sbcl-1.3.6-linux-x64/home/vandelay/quicklisp/dists/quicklisp/software/gsll-master-b2f6ae1f-git/solve-minimize-fit/solver-struct.c:32:36: note: in expansion of macro ‘offsetof’ fprintf(output, " :offset %li)", offsetof(gsl_multifit_fdfsolver, J)); ^~~~~~~~ Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [RETRY ] Retry PROCESS-OP on #<GROVEL-FILE "gsll" "solve-minimize-fit" "solver-struct">. 1: [ACCEPT ] Continue, treating PROCESS-OP on #<GROVEL-FILE "gsll" "solve-minimize-fit" "solver-struct"> as having been successful. 2: Retry ASDF operation. 3: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the configuration. 4: [ABORT ] Give up on "gsll" 5: Exit debugger, returning to top level. (CFFI-GROVEL:GROVEL-ERROR "External process exited with code ~S.~@ Command was: ~S~{ ~S~}~@ Output was:~%~A" 1 "cc" ("-m64" "-I/home/vandelay/quicklisp/dists/quicklisp/software/cffi_0.16.1/" "-o" "/home/vandelay/.cache/common-lisp/sbcl-1.3.6-linux-x64/home/vandelay/quicklisp/dists/quicklisp/software/gsll-master-b2f6ae1f-git/solve-minimize-fit/solver-struct" "/home/vandelay/.cache/common-lisp/sbcl-1.3.6-linux-x64/home/vandelay/quicklisp/dists/quicklisp/software/gsll-master-b2f6ae1f-git/solve-minimize-fit/solver-struct.c") "which: no rc in (/home/vandelay/usr/bin:/home/vandelay/usr/local/bin:/home/vandelay/usr/bin:/home/vandelay/usr/local/bin:/home/vandelay/usr/bin:/home/vandelay/usr/local/bin:/home/vandelay/bin:/home/vandelay/usr/bin:/home/vandelay/usr/local/bin:/usr/local/sbin:/usr/local/bin:/usr/bin:/usr/bin/site_perl:/usr/bin/vendor_perl:/usr/bin/core_perl) In file included from /home/vandelay/.cache/common-lisp/sbcl-1.3.6-linux-x64/home/vandelay/quicklisp/dists/quicklisp/software/gsll-master-b2f6ae1f-git/solve-minimize-fit/solver-struct.c:10:0: /home/vandelay/.cache/common-lisp/sbcl-1.3.6-linux-x64/home/vandelay/quicklisp/dists/quicklisp/software/gsll-master-b2f6ae1f-git/solve-minimize-fit/solver-struct.c: In function ‘main’: /home/vandelay/quicklisp/dists/quicklisp/software/cffi_0.16.1/grovel/common.h:8:62: error: ‘gsl_multifit_fdfsolver {aka struct <anonymous>}’ has no member named ‘J’ #define offsetof(type, slot) ((long) ((char *) &(((type *) 0)->slot))) ^ /home/vandelay/.cache/common-lisp/sbcl-1.3.6-linux-x64/home/vandelay/quicklisp/dists/quicklisp/software/gsll-master-b2f6ae1f-git/solve-minimize-fit/solver-struct.c:32:36: note: in expansion of macro ‘offsetof’ fprintf(output, \" :offset %li)\", offsetof(gsl_multifit_fdfsolver, J)); ^~~~~~~~ ") 0]

1 0

Trouble with GSLL, ABCL, and Windows 10
by Jovan Trujillo 22 Mar '16

22 Mar '16

Hi All, I've been trying to get Quicklisp to load GSLL with the latest ABCL on my Windows 10 machine. I've managed to get CFFI to work, and Quicklisp has just updated CFFI the other day, making my error messages change. My backtrace is below. Is this a problem with the asdf file for gsll? Error while trying to load definition for system gsll from pathname C:/Users/Jovan_Limited/quicklisp/dists/quicklisp/software/gsll-master-0f785ddd-git/gsll.asd: Illegal function object: (OS-UNIX-P). [Condition of type ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR] Restarts: 0: [RETRY] Retry ASDF operation. 1: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the configuration. 2: [ABORT] Give up on "gsll" 3: [RETRY] Retry SLIME REPL evaluation request. 4: [*ABORT] Return to SLIME's top level. 5: [ABORT] Abort thread. Backtrace: 0: (#<FUNCTION {3C324A0B}> #<ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR {4A54351C}> #<FUNCTION {3C324A0B}>) 1: (APPLY #<FUNCTION {3C324A0B}> (#<ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR {4A54351C}> #<FUNCTION {3C324A0B}>)) 2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR {4A54351C}> #<FUNCTION {3C324A0B}>) 3: (INVOKE-DEBUGGER #<ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR {4A54351C}>) 4: (ERROR ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR :NAME "gsll" :PATHNAME #P"C:/Users/Jovan_Limited/quicklisp/dists/quicklisp/software/gsll-master-0f785ddd-git/gsll.asd" ...) 5: (#<FUNCTION {7AA73585}> #<PROGRAM-ERROR {5CBA6758}>) 6: (SIGNAL #<PROGRAM-ERROR {5CBA6758}>) 7: org.armedbear.lisp.Lisp.error(Lisp.java:382) 8: org.armedbear.lisp.Lisp.program_error(Lisp.java:440) 9: org.armedbear.lisp.Lisp.eval(Lisp.java:551) 10: org.armedbear.lisp.Lisp.evalCall(Lisp.java:570) 11: org.armedbear.lisp.Lisp.eval(Lisp.java:540) 12: org.armedbear.lisp.Primitives$sf_cond.execute(Primitives.java:2059) 13: (ASDF/BUNDLE:BUNDLE-PATHNAME-TYPE :PROGRAM) 14: (CFFI-TOOLCHAIN:MAKE-EXE-FILE-NAME #P"C:/Users/Jovan_Limited/quicklisp/dists/quicklisp/software/cffi_0.17.1/libffi/libffi-types__grovel.c") 15: (#<FUNCTION {1D5AE395}> (#<CFFI-GROVEL::PROCESS-OP {50C6FB87}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>)) 16: (#<FUNCTION {76CDD9F7}>) 17: (APPLY #<FUNCTION {76CDD9F7}> NIL) 18: (UIOP/UTILITY:CALL-FUNCTION #<FUNCTION {76CDD9F7}>) 19: (ASDF/CACHE:CONSULT-ASDF-CACHE (ASDF/ACTION:OUTPUT-FILES #<CFFI-GROVEL::PROCESS-OP {50C6FB87}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) #<FUNCTION {76CDD9F7}>) 20: (#<FUNCTION {7942E0D1}> #<CFFI-GROVEL::PROCESS-OP {50C6FB87}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) Locals: "arg0" = #<CFFI-GROVEL::PROCESS-OP > "arg1"#1 = #<CFFI-GROVEL:GROVEL-FILE "cffi-libffi" "libffi" "libffi-types"> 21: (APPLY #<FUNCTION {7942E0D1}> (#<CFFI-GROVEL::PROCESS-OP {50C6FB87}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>)) 22: (#<FUNCTION {3A0AE961}> (#<CFFI-GROVEL::PROCESS-OP {50C6FB87}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>)) 23: (ASDF/ACTION:OUTPUT-FILES #<CFFI-GROVEL::PROCESS-OP {50C6FB87}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) 24: (#<FUNCTION {7006F3FE}> (CFFI-GROVEL::PROCESS-OP #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>)) 25: (#<FUNCTION {689C8E68}>) 26: (APPLY #<FUNCTION {689C8E68}> NIL) 27: (UIOP/UTILITY:CALL-FUNCTION #<FUNCTION {689C8E68}>) 28: (ASDF/CACHE:CONSULT-ASDF-CACHE (ASDF/ACTION:OUTPUT-FILES CFFI-GROVEL::PROCESS-OP #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) #<FUNCTION {689C8E68}>) 29: (#<FUNCTION {636AFC2}> CFFI-GROVEL::PROCESS-OP #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) 30: (APPLY #<FUNCTION {636AFC2}> (CFFI-GROVEL::PROCESS-OP #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>)) 31: (#<FUNCTION {6B9A1F84}> (CFFI-GROVEL::PROCESS-OP #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>)) 32: (ASDF/ACTION:OUTPUT-FILES CFFI-GROVEL::PROCESS-OP #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) 33: (#<FUNCTION {2CC4880A}> (#<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>)) 34: (#<FUNCTION {20A7BC34}>) 35: (APPLY #<FUNCTION {20A7BC34}> NIL) 36: (UIOP/UTILITY:CALL-FUNCTION #<FUNCTION {20A7BC34}>) 37: (ASDF/CACHE:CONSULT-ASDF-CACHE (ASDF/ACTION:INPUT-FILES #<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) #<FUNCTION {20A7BC34}>) 38: (#<FUNCTION {13DC4F5D}> #<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) 39: (APPLY #<FUNCTION {13DC4F5D}> (#<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>)) 40: (#<FUNCTION {2801149D}> (#<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>)) 41: (ASDF/ACTION:INPUT-FILES #<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) 42: (ASDF/LISP-ACTION:LISP-COMPILATION-OUTPUT-FILES #<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) 43: (#<FUNCTION {200D5D4F}> (#<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>)) 44: (#<FUNCTION {3D560366}>) 45: (APPLY #<FUNCTION {3D560366}> NIL) 46: (UIOP/UTILITY:CALL-FUNCTION #<FUNCTION {3D560366}>) 47: (ASDF/CACHE:CONSULT-ASDF-CACHE (ASDF/ACTION:OUTPUT-FILES #<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) #<FUNCTION {3D560366}>) 48: (#<FUNCTION {4C010536}> #<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) 49: (APPLY #<FUNCTION {4C010536}> (#<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>)) 50: (#<FUNCTION {6C0445D7}> (#<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>)) 51: (ASDF/ACTION:OUTPUT-FILES #<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) 52: (#<FUNCTION {26A98A3D}> (#<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>)) 53: (ASDF/PLAN:NEEDED-IN-IMAGE-P #<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) 54: (#<FUNCTION {2B69F0BD}> #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}> T) 55: (APPLY #<FUNCTION {2B69F0BD}> (#<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}> T)) 56: (#<FUNCTION {21E1A289}> (#<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}> T)) 57: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}> T) 58: (#<FUNCTION {4B733CEA}> #<ASDF/LISP-ACTION:COMPILE-OP {79B8DF29}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) 59: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}> #<FUNCTION {4B733CEA}>) 60: (#<FUNCTION {15E79103}>) [No Locals] 61: (#<FUNCTION (LAMBDA (ASDF/PLAN:PLAN ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT ...)) {64E42857}> #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<CFFI-GROVEL:GRO.. 62: (APPLY #<FUNCTION (LAMBDA (ASDF/PLAN:PLAN ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT ...)) {64E42857}> (#<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<CFFI-GRO.. 63: (#<FUNCTION {4C2F5C2D}> (#<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}> #<FUNCTION {15E79103}>)) 64: (ASDF/PLAN:CALL-WHILE-VISITING-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}> #<FUNCTION {15E79103}>) 65: (#<FUNCTION {C98620}> #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}> T) 66: (APPLY #<FUNCTION {C98620}> (#<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}> T)) 67: (#<FUNCTION {298F70B3}> (#<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}> T)) 68: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}> T) 69: (#<FUNCTION {6C6C5345}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<CFFI-GROVEL:GROVEL-FILE {572E32B8}>) 70: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/COMPONENT:MODULE {6FAEA4DF}> #<FUNCTION {6C6C5345}>) 71: (#<FUNCTION {5A94B4D1}>) 72: (#<FUNCTION (LAMBDA (ASDF/PLAN:PLAN ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT ...)) {64E42857}> #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/COMPONENT:.. 73: (APPLY #<FUNCTION (LAMBDA (ASDF/PLAN:PLAN ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT ...)) {64E42857}> (#<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/COM.. 74: (ASDF/PLAN:CALL-WHILE-VISITING-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/COMPONENT:MODULE {6FAEA4DF}> #<FUNCTION {5A94B4D1}>) 75: (#<FUNCTION {16A0D125}> #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/COMPONENT:MODULE {6FAEA4DF}> T) 76: (APPLY #<FUNCTION {16A0D125}> (#<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/COMPONENT:MODULE {6FAEA4DF}> T)) 77: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/COMPONENT:MODULE {6FAEA4DF}> T) 78: (#<FUNCTION {447831AA}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/COMPONENT:MODULE {6FAEA4DF}>) 79: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}> #<FUNCTION {447831AA}>) 80: (#<FUNCTION {4A00A41B}>) 81: (#<FUNCTION (LAMBDA (ASDF/PLAN:PLAN ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT ...)) {64E42857}> #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYS.. 82: (APPLY #<FUNCTION (LAMBDA (ASDF/PLAN:PLAN ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT ...)) {64E42857}> (#<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYS.. 83: (ASDF/PLAN:CALL-WHILE-VISITING-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}> #<FUNCTION {4A00A41B}>) 84: (#<FUNCTION {354DA3B6}> #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}> T) 85: (APPLY #<FUNCTION {354DA3B6}> (#<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}> T)) 86: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {6F857853}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}> T) 87: (#<FUNCTION {257475C3}> NIL #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}>) 88: (APPLY #<FUNCTION {257475C3}> (NIL #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}>)) 89: (ASDF/PLAN:MAKE-PLAN NIL #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}>) 90: (APPLY ASDF/PLAN:MAKE-PLAN NIL #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}> NIL) 91: (#<FUNCTION {2084E5A6}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}>) 92: (APPLY #<FUNCTION {2084E5A6}> (#<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}>)) 93: (#<FUNCTION {6FEBBDD1}> (#<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}>)) 94: (#<FUNCTION {37E3F389}>) 95: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<FUNCTION {37E3F389}> :OVERRIDE NIL :KEY NIL) 96: (#<FUNCTION {31BF42DB}> #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}>) 97: (APPLY #<FUNCTION {31BF42DB}> (#<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}>)) 98: (ASDF/OPERATE:OPERATE #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}>) 99: (APPLY ASDF/OPERATE:OPERATE #<ASDF/LISP-ACTION:LOAD-OP {75BC0133}> #<ASDF/SYSTEM:SYSTEM {47880CE6}> NIL) 100: (#<FUNCTION {4260EB9}> ASDF/LISP-ACTION:LOAD-OP :CFFI-LIBFFI) Locals: "arg0" = ASDF/LISP-ACTION:LOAD-OP "arg1"#1 = :CFFI-LIBFFI 101: (APPLY #<FUNCTION {4260EB9}> (ASDF/LISP-ACTION:LOAD-OP :CFFI-LIBFFI)) 102: (#<FUNCTION {2C71DA0F}> (ASDF/LISP-ACTION:LOAD-OP :CFFI-LIBFFI)) 103: (#<FUNCTION {6793FCC0}>) 104: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<FUNCTION {6793FCC0}> :OVERRIDE NIL :KEY NIL) 105: (#<FUNCTION {58F9657D}> ASDF/LISP-ACTION:LOAD-OP :CFFI-LIBFFI) 106: (APPLY #<FUNCTION {58F9657D}> (ASDF/LISP-ACTION:LOAD-OP :CFFI-LIBFFI)) 107: (ASDF/OPERATE:OPERATE ASDF/LISP-ACTION:LOAD-OP :CFFI-LIBFFI) 108: (APPLY ASDF/OPERATE:OPERATE ASDF/LISP-ACTION:LOAD-OP :CFFI-LIBFFI NIL) 109: (#<FUNCTION {6C1EEB1D}> ASDF/LISP-ACTION:LOAD-OP :CFFI-LIBFFI) 110: (APPLY #<FUNCTION {6C1EEB1D}> (ASDF/LISP-ACTION:LOAD-OP :CFFI-LIBFFI)) 111: (ASDF/OPERATE:OPERATE ASDF/LISP-ACTION:LOAD-OP :CFFI-LIBFFI) 112: (APPLY ASDF/OPERATE:OPERATE ASDF/LISP-ACTION:LOAD-OP :CFFI-LIBFFI NIL) 113: (ASDF/OPERATE:OOS ASDF/LISP-ACTION:LOAD-OP :CFFI-LIBFFI) 114: (SYSTEM::%LOAD #P"C:/Users/Jovan_Limited/quicklisp/dists/quicklisp/software/gsll-master-0f785ddd-git/gsll.asd" NIL NIL T :UTF-8) 115: (LOAD #P"C:/Users/Jovan_Limited/quicklisp/dists/quicklisp/software/gsll-master-0f785ddd-git/gsll.asd" :EXTERNAL-FORMAT :UTF-8) 116: (APPLY LOAD #P"C:/Users/Jovan_Limited/quicklisp/dists/quicklisp/software/gsll-master-0f785ddd-git/gsll.asd" (:EXTERNAL-FORMAT :UTF-8)) 117: (#<FUNCTION {4E9DE533}>) 118: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<FUNCTION {4E9DE533}> ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :ASDF-FINALIZERS))) 119: (UIOP/LISP-BUILD:CALL-WITH-MUFFLED-LOADER-CONDITIONS #<FUNCTION {4E9DE533}>) 120: (UIOP/LISP-BUILD:LOAD* #P"C:/Users/Jovan_Limited/quicklisp/dists/quicklisp/software/gsll-master-0f785ddd-git/gsll.asd" :EXTERNAL-FORMAT :UTF-8) 121: (#<FUNCTION {369065DC}>) 122: (SYSTEM::%WITH-STANDARD-IO-SYNTAX #<FUNCTION {369065DC}>) 123: (#<FUNCTION {25513CFE}>) 124: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<FUNCTION {25513CFE}> :OVERRIDE NIL :KEY NIL) 125: (ASDF/FIND-SYSTEM:LOAD-ASD #P"C:/Users/Jovan_Limited/quicklisp/dists/quicklisp/software/gsll-master-0f785ddd-git/gsll.asd" :NAME "gsll") 126: (#<FUNCTION {3E8C7D4A}>) 127: (APPLY #<FUNCTION {3E8C7D4A}> NIL) 128: (UIOP/UTILITY:CALL-FUNCTION #<FUNCTION {3E8C7D4A}>) 129: (ASDF/CACHE:CONSULT-ASDF-CACHE (ASDF/SYSTEM:FIND-SYSTEM "gsll") #<FUNCTION {3E8C7D4A}>) 130: (#<FUNCTION {1F99A3D5}>) 131: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<FUNCTION {3E8C7D4A}> :OVERRIDE NIL :KEY (ASDF/SYSTEM:FIND-SYSTEM "gsll")) 132: (#<FUNCTION {2A929B7F}> "gsll" NIL) 133: (APPLY #<FUNCTION {2A929B7F}> ("gsll" NIL)) 134: (ASDF/SYSTEM:FIND-SYSTEM "gsll" NIL) 135: (#<FUNCTION {688F41F}>) 136: (QL-DIST::CALL-WITH-CONSISTENT-DISTS #<FUNCTION {688F41F}>) 137: (QUICKLISP-CLIENT::COMPUTE-LOAD-STRATEGY "gsll") 138: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "gsll" :PROMPT NIL) 139: (#<FUNCTION {5B33BFA9}>) 140: (QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION #<QL-IMPL:ABCL {9662811}> #<FUNCTION {5B33BFA9}>) 141: (QL-IMPL-UTIL:CALL-WITH-QUIET-COMPILATION #<FUNCTION {5B33BFA9}>) 142: (#<FUNCTION {37110321}> "gsll") 143: (APPLY #<FUNCTION {37110321}> ("gsll")) 144: (#<FUNCTION {767821D0}> ("gsll")) 145: (#<FUNCTION {30F01641}>) 146: (QL-DIST::CALL-WITH-CONSISTENT-DISTS #<FUNCTION {30F01641}>) 147: (#<FUNCTION {8EE96EE}> "gsll") 148: (APPLY #<FUNCTION {8EE96EE}> ("gsll")) 149: (#<STANDARD-GENERIC-FUNCTION {5645B5CD}> "gsll") 150: (SYSTEM::%EVAL (QUICKLISP-CLIENT:QUICKLOAD "gsll")) 151: (EVAL (QUICKLISP-CLIENT:QUICKLOAD "gsll")) 152: (SWANK::EVAL-REGION "(ql:quickload \"gsll\") ") 153: (#<FUNCTION {375994D9}>) 154: (SWANK-REPL::TRACK-PACKAGE #<FUNCTION {375994D9}>) 155: (#<FUNCTION {985543}>) 156: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<FUNCTION {985543}>) 157: (#<FUNCTION {306A090F}>) 158: (FUNCALL #<FUNCTION {306A090F}>) 159: (#<FUNCTION (LAMBDA (SWANK/BACKEND::FN)) {4C4FA00A}> #<FUNCTION {306A090F}>) 160: (APPLY #<FUNCTION (LAMBDA (SWANK/BACKEND::FN)) {4C4FA00A}> #<FUNCTION {306A090F}> NIL) 161: (SWANK/BACKEND:CALL-WITH-SYNTAX-HOOKS #<FUNCTION {306A090F}>) 162: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<FUNCTION {306A090F}>) 163: (SWANK-REPL::REPL-EVAL "(ql:quickload \"gsll\") ") 164: (SWANK-REPL:LISTENER-EVAL "(ql:quickload \"gsll\") ") 165: (SYSTEM::%EVAL (SWANK-REPL:LISTENER-EVAL "(ql:quickload \"gsll\") ")) 166: (EVAL (SWANK-REPL:LISTENER-EVAL "(ql:quickload \"gsll\") ")) 167: (SWANK:EVAL-FOR-EMACS (SWANK-REPL:LISTENER-EVAL "(ql:quickload \"gsll\") ") "COMMON-LISP-USER" 26) 168: (APPLY #<EVAL-FOR-EMACS {4D90D766}> ((SWANK-REPL:LISTENER-EVAL "(ql:quickload \"gsll\") ") "COMMON-LISP-USER" 26)) 169: (SWANK::PROCESS-REQUESTS NIL) 170: (#<FUNCTION {37CB1A06}>) 171: (#<FUNCTION {753B73F1}>) 172: (FUNCALL #<FUNCTION {753B73F1}>) 173: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK) #<SWANK-DEBUGGER-HOOK {3B393458}> #<FUNCTION {753B73F1}>) 174: (APPLY #<(FLET CALL-WITH-DEBUGGER-HOOK) {15F92E28}> #<SWANK-DEBUGGER-HOOK {3B393458}> #<FUNCTION {753B73F1}> NIL) 175: (SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK #<SWANK-DEBUGGER-HOOK {3B393458}> #<FUNCTION {753B73F1}>) 176: (#<FUNCTION {2407836D}>) 177: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-INPUT* . #S(SLIME-INPUT-STREAM)) (*STANDARD-OUTPUT* . #S(SLIME-OUTPUT-STREAM)) (*TRACE-OUTPUT* . #S(SLIME-OUTPUT-STREAM)) (*ERROR-OUTPUT* . #S(SLIME-OUTPUT-STREA.. 178: (SWANK::HANDLE-REQUESTS #S(SWANK::MULTITHREADED-CONNECTION :SOCKET #<java.net.ServerSocket ServerSocket[addr=0.0.0.0/0.0.0..... {65F9F0B5}> :SOCKET-IO #<TWO-WAY-STREAM {392D1A4C}> :DEDICATED-OUTPUT NI.. 179: (SWANK-REPL::REPL-LOOP #S(SWANK::MULTITHREADED-CONNECTION :SOCKET #<java.net.ServerSocket ServerSocket[addr=0.0.0.0/0.0.0..... {65F9F0B5}> :SOCKET-IO #<TWO-WAY-STREAM {392D1A4C}> :DEDICATED-OUTPUT NIL.. 180: (#<FUNCTION {2129EAEF}>) 181: (SWANK::CALL-WITH-BINDINGS NIL #<FUNCTION {2129EAEF}>) 182: (#<FUNCTION {773A15B5}>) 183: (FUNCALL #<FUNCTION {773A15B5}>) 184: (#<FUNCTION (LAMBDA ()) {5DEC3FBF}>) 185: (THREADS::THREAD-FUNCTION-WRAPPER #<FUNCTION (LAMBDA ()) {5DEC3FBF}>)

1 0

Re: Slight recode of gsll/data/permutations.lisp (Re: Bugfix for gsll/data/permutations.lisp)
by Mirko Vukovic 22 Jan '16

22 Jan '16

This is a follow-up on the previous patch. I applied the same principles on data/combination.lisp and recoded using GSL's combination functions only. Again this cleared up some errors or failures on my end. I hope that I did not mangle major pieces of your design intent. Mirko On Fri, Nov 27, 2015 at 10:43 PM, Mirko Vukovic <mirko.vukovic(a)gmail.com> wrote: > Liam, > > I am not trying to bludgeon this issue to death nor convince the you that > I am right and you are wrong. > > In a nutshell, I started on this path because of exception errors when > trying to > load GSLL on Windows (SBCL or CCL) using GSL compiled MinGW64. I > traced this to the initialization of the permutation structures and the > size of > the requested memory (see recent post on CFFI mailing list). > > I decided to rewrite a small part of permutation.lisp to use GSL's code to > directly > initialize and query permutation structure. The attached patch contains > the > rewrite and some minor edits. All the permutation and qrpt tests pass. > > The patch should be considered a proof-of-concept (or failure of concept). > > For me, this patch has cleared the exception errors that have started me > on this > trek. Even if it is not accepted, I learned something, and it was fun. > And I can > keep it on my GSLL so that it runs for me. > > Best, > > Mirko > > > > > On Thu, Nov 26, 2015 at 10:24 AM, Liam Healy <lhealy(a)common-lisp.net> > wrote: > >> Added thought: you can lookup any GSL (C) function to find the CL >> equivalent by using gsl-lookup. So for example >> >> (gsl:gsl-lookup "gsl_permute_vector") >> PERMUTE >> T >> >> tells you #'permute is the function you want. If there is no >> equivalent (there are some C functions with no interface in CL), you >> will get NIL as the return value of this function. >> >> Liam >> >> >> On Wed, Nov 25, 2015 at 11:20 PM, Mirko Vukovic <mirko.vukovic(a)gmail.com> >> wrote: >> > Thanks for the explanations - I missed the :generic and :method >> specifiers. >> > I'll study the macro-expansions. >> > >> > Sorry for the noise. >> > >> > Mirko >> > >> > On Tue, Nov 24, 2015 at 10:16 PM, Liam Healy <lhealy(a)common-lisp.net> >> wrote: >> >> >> >> The original code looks right to me. >> >> >> >> You have taken the generic function and the associated foreign vector >> >> methods #'permute and gratuitously renamed them #'permute-vector, >> >> leaving the method for raw C pointer with the original name and no >> >> generic function. Then you completely delete the generic function and >> >> vector methods for #'permute-inverse for no apparent reason, leaving a >> >> method for the raw C pointer only. >> >> >> >> There is no duplicated code here. There is certainly the equivalent of >> >> gsl_permute_vector, it is the GRID:VECTOR-DOUBLE-FLOAT (second arg) >> >> method of #'permute (which you renamed). >> >> >> >> I recommend macroexpansion as a way of seeing what's being defined. If >> >> you use emacs, place the cursor on the defmfun line and do C-c C-m. >> >> Then you will see all the generic functions and methods, and you will >> >> see there is no error in the original code. >> >> >> >> On Tue, Nov 24, 2015 at 5:43 PM, Mirko Vukovic < >> mirko.vukovic(a)gmail.com> >> >> wrote: >> >> > Because of a typo, GSLL did not have the equivalent of >> >> > GSL_PERMUTE_VECTOR. >> >> > >> >> > There was also a section of duplicated code. >> >> > >> >> > This patch should fix these errors. >> >> > >> >> > NOTE: I did not test this patch - My GSLL system is not behaving >> >> > super-cleanly on MSYS2 and GSL2.1. Proceed with care. >> >> > >> >> > Mirko >> > >> > >> > >

2 3

Re: [patch] fix gsl-config-pathname
by Munawar Cheema 29 Dec '15

29 Dec '15

I tried to check this on my OS X Mavericks system with CCL but I am getting readtable errors. Just to make sure this is what I did. I git cloned both antik and gsll to my local-projects directory from https://gitlab.common-lisp.net/groups/antik If I git log I see the commit of antik is:63fa8e0a0c04090... and for gsll it is: ad5409ec81f4af... When I try either (ql:quickload :antik) or (ql:quickload :gsll) i get errors like: Reader error on #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/Users/mcheema/quicklisp/local-projects/antik/tests/physical-quantities-grid.lisp"/4 UTF-8) #x3020023E839D>, near position 2047, within "m)) #(1.0d0 5.0d": Undefined character #\( in a #\# dispatch macro. Reader error on #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/Users/mcheema/quicklisp/local-projects/gsll/polynomial.lisp"/4 UTF-8) #x3020024DCCBD>, near position 1730, within "t x.\") #+fsbv (defm": Undefined character #\+ in a #\# dispatch macro. I see there was a commit relating to a named-readtable recently and maybe that is causing the problem or I am just not doing this correctly. -- Kind Regards Munawar

2 1

gsll+msys2, gsl2.0, antik patches
by Mirko Vukovic 06 Dec '15

06 Dec '15

For GSLL I am attaching two git patches that accomplish several things: - Loading of GSL that is part of MSYS2 on Windows - Removed dependency on Osicat library - Enable loading of GSL 2.0 by fixing a bit of code in nonlinear least squares fitter. - Disabled loading of basis-spline.lisp - Cosmetic fixes. I could not figure out the problem with basis-spline. I thus removed it. There may be a much better solution than that. I checked the above on latest CCL and SBCL on Windows 7. Warning: the two commits required some git surgery (splitting a commit into two). I hope that I did not introduce additional problems with the splits. For Antik I am attaching one patch that fixes the readtable problem on CCL: (named-readtables:defreadtable :antik (:merge :standard) #-ccl(:macro-char #\# :dispatch)) Without the patch all #... reader macros (CL and Antik) were deleted. With this patch both CL and Antik's reader macros work in CCL. I also tried the patch with SBCL, and I don't see a need for it. But since the macro-char redefinition did not hurt in SBCL, I left it in. Mirko

2 2