gsll-devel April 2013

gsll-devel@common-lisp.net

5 participants
7 discussions

[GSLL-devel] Fixing up make-grid-data for clisp (was making copy-to working in clisp+grid: fix to element-type)
by Mirko Vukovic 26 Dec '13

26 Dec '13

This is a follow up on my posted fix to copy-to. For some reason this has triggered another error. I do not understand how that other error is triggered. The error and the fix are discussed at the bottom of the email On Fri, Jan 4, 2013 at 10:39 AM, Mirko Vukovic <mirko.vukovic(a)gmail.com>wrote: > The following works in sbcl+grid: > > (copy-to (make-array 2 :element-type 'double-float :initial-contents > '(1.0d0 2.0d0)) 'grid:foreign-array) > > But it does not work in clisp+grid. > > The root cause lies in the function grid/array.lisp/element-type. It uses > `(array-element-type grid)'. > > But this can present a problem. Quoting hyperspec: > > (Because of *array* <http://26_glo_a.htm#array> *upgrading*, this *type > specifier* <http://26_glo_t.htm#type_specifier> can in some cases denote > a *supertype* <http://26_glo_s.htm#supertype> of the *expressed array > element type* <http://26_glo_e.htm#expressed_array_element_type> of the * > array*.) > > In CLISP, array-element-type returns `T' when passed #(1d0 2d0) > > It returns T even when passed a simple array: > > (array-element-type (make-array 2 :element-type 'double-float > :initial-contents > '(1.0d0 2.0d0) > :adjustable nil > :fill-pointer nil > :displaced-to nil) ) > > The proposed fix is > > (defmethod element-type ((grid array)) > (type-of (row-major-aref grid 0)) > #+skip(array-element-type grid)) > > Now copy-to works in clisp as well. > > Mirko > > > After finishing this, I recompiled afresh, and got another error that I traced to make-grid-data and make-array In clisp, make-array will return an array of NIL's even if the element-type is specified as double float. In SBCL make-array will return an array filled with 1d0. I had to add some clisp specific code to make-grid-data in order for it to initialize properly. First, a helper function: (defun default-element (element-type) "Return a default element depending on element-type " (let ((a-list '((double-float . 1d0) (symbol . T)))) (let ((match (cdr (assoc element-type a-list)))) (assert match () "Default element type undefined for element-type ~a" element-type) match))) And second, a bit of set-up code in make-grid-data. I broke apart the (let* statement to provide an explicit initial element if it has not been specified already: (defmethod make-grid-data ((type (eql 'array)) dimensions rest-spec &key (initial-element nil initial-element-p) (initial-contents nil initial-contents-p)) (let ((element-type (top-spec-type rest-spec))) #+clisp (unless (or initial-element-p initial-contents-p) (setf initial-element (default-element element-type) initial-element-p t)) (let ((array ... UNCHANGED Summary: To fix to copy-to, I modified (defmethod element-type ((grid array)) For some unknown reason, that triggered an error in the array initialization routine. To fix that, I had to add code to make-grid-data, so that it fills double-float arrays with 0d0 instead of NIL's I will continue using this code to see if there are additional problems. BTW, I realize that CLISP is not a preferred platform for speedy computation, but that is what I use on Windows, until SBCL gets officially ported to it. And in addition, it is a nice cross-check on portability. Mirko

2 2

[GSLL-devel] making copy-to working in clisp+grid: fix to element-type
by Mirko Vukovic 26 Dec '13

26 Dec '13

The following works in sbcl+grid: (copy-to (make-array 2 :element-type 'double-float :initial-contents '(1.0d0 2.0d0)) 'grid:foreign-array) But it does not work in clisp+grid. The root cause lies in the function grid/array.lisp/element-type. It uses `(array-element-type grid)'. But this can present a problem. Quoting hyperspec: (Because of *array* <26_glo_a.htm#array> *upgrading*, this *type specifier*<26_glo_t.htm#type_specifier>can in some cases denote a *supertype* <26_glo_s.htm#supertype> of the *expressed array element type*<26_glo_e.htm#expressed_array_element_type>of the *array*.) In CLISP, array-element-type returns `T' when passed #(1d0 2d0) It returns T even when passed a simple array: (array-element-type (make-array 2 :element-type 'double-float :initial-contents '(1.0d0 2.0d0) :adjustable nil :fill-pointer nil :displaced-to nil) ) The proposed fix is (defmethod element-type ((grid array)) (type-of (row-major-aref grid 0)) #+skip(array-element-type grid)) Now copy-to works in clisp as well. Mirko

2 1

Re: gsll
by Liam Healy 14 Apr '13

14 Apr '13

GSLL is a library written in C, so all its objects live in foreign space. CL arrays won't work because the foreign library can not see them. You can shorten the creation of the foreign array using #m if grid:*default-grid-type* is 'grid:FOREIGN-ARRAY: (gsl:mean #m(1 2 3 4 5)) 3.0 Please join the mailing list to ask questions and post problems. Thanks. Liam On Sun, Apr 14, 2013 at 1:27 PM, Nelson Marcelino <marcelin7(a)yahoo.com> wrote: > Got it working. One question--why doesn't mean work with a simple lisp > array? Instead of > having to create a contraption with > > GSL> (mean (GRID:MAKE-FOREIGN-ARRAY > 'SINGLE-FLOAT > :INITIAL-CONTENTS > '(1 2 3 4 5))) > 3.0 > > > GSL> (mean #(1 2 3 4 5)) > > There is no applicable method for the generic function: > #<STANDARD-GENERIC-FUNCTION MEAN #x3020035937EF> > when called with arguments: > (#(1 2 3 4 5)) > [Condition of type SIMPLE-ERROR] > > > > ________________________________ > From: Liam Healy <lhealy(a)common-lisp.net> > To: Nelson Marcelino <marcelin7(a)yahoo.com> > Cc: "gsll-devel(a)common-lisp.net" <gsll-devel(a)common-lisp.net> > Sent: Saturday, April 13, 2013 4:44 PM > Subject: Re: gsll > > You need to load the libffi "developer" package. I don't know what > distro you're using, but on Debian/Ubuntu, it's called libffi-dev. > Also, this is more of a question for cffi-devel, but it happens that I > wrote cffi-libffi (which is the system triggering this error), so it > works out. > > Liam > > On Fri, Apr 12, 2013 at 12:55 PM, Nelson Marcelino <marcelin7(a)yahoo.com> > wrote: >> I'm having trouble getting this to work on Linux. Any help? >> >> Error while trying to load definition for system gsll from >> pathname >> >> /home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/gsll-20130312-git/gsll.asd: >> >> External process exited with code 1. >> Command was: "cc" "-m64" >> "-I/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/" >> "-o" >> >> "/home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix" >> >> "/home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c" >> Output was: >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:7:17: >> error: ffi.h: No such file or directory >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c: >> In function âmainâ: >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:25: >> error: âFFI_OKâ undeclared (first use in this function) >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:25: >> error: (Each undeclared identifier is reported only once >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:25: >> error: for each function it appears in.) >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:30: >> error: âFFI_BAD_TYPEDEFâ undeclared (first use in this function) >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:35: >> error: âFFI_BAD_ABIâ undeclared (first use in this function) >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:46: >> error: âFFI_DEFAULT_ABIâ undeclared (first use in this function) >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:51: >> error: âFFI_SYSVâ undeclared (first use in this function) >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:56: >> error: âFFI_UNIX64â undeclared (first use in this function) >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:64: >> error: âffi_abiâ undeclared (first use in this function) >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:111: >> error: invalid application of âsizeofâ to incomplete type âstruct >> _ffi_typeâ >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:116: >> error: dereferencing pointer to incomplete type >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:121: >> error: dereferencing pointer to incomplete type >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:126: >> error: dereferencing pointer to incomplete type >> >> /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:131: >> error: dereferencing pointer to incomplete type >> >> [Condition of type ASDF:LOAD-SYSTEM-DEFINITION-ERROR] >> >> Restarts: >> 0: [RETRY] Retry #<STANDARD-CLASS PROCESS-OP> on #<GROVEL-FILE >> "cffi-libffi" "libffi" "libffi">. >> 1: [ACCEPT] Continue, treating #<STANDARD-CLASS PROCESS-OP> on >> #<GROVEL-FILE "cffi-libffi" "libffi" "libffi"> as having been successful. >> 2: [RETRY-LOAD] Retry loading >> >> #P"/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/gsll-20130312-git/gsll.asd" >> 3: [SKIP-LOAD] Skip loading >> >> #P"/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/gsll-20130312-git/gsll.asd" >> 4: [LOAD-OTHER] Load other file instead of >> >> #P"/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/gsll-20130312-git/gsll.asd" >> 5: [REINITIALIZE-SOURCE-REGISTRY-AND-RETRY] Retry finding system gsll >> after >> reinitializing the source-registry. >

1 0

gsll
by Nelson Marcelino 13 Apr '13

13 Apr '13

I'm having trouble getting this to work on Linux. Any help? Error while trying to load definition for system gsll from pathname /home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/gsll-20130312-git/gsll.asd: External process exited with code 1. Command was: "cc" "-m64" "-I/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/" "-o" "/home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix" "/home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c" Output was: /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:7:17: error: ffi.h: No such file or directory /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c: In function âmainâ: /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:25: error: âFFI_OKâ undeclared (first use in this function) /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:25: error: (Each undeclared identifier is reported only once /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:25: error: for each function it appears in.) /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:30: error: âFFI_BAD_TYPEDEFâ undeclared (first use in this function) /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:35: error: âFFI_BAD_ABIâ undeclared (first use in this function) /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:46: error: âFFI_DEFAULT_ABIâ undeclared (first use in this function) /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:51: error: âFFI_SYSVâ undeclared (first use in this function) /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:56: error: âFFI_UNIX64â undeclared (first use in this function) /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:64: error: âffi_abiâ undeclared (first use in this function) /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:111: error: invalid application of âsizeofâ to incomplete type âstruct _ffi_typeâ /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:116: error: dereferencing pointer to incomplete type /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:121: error: dereferencing pointer to incomplete type /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:126: error: dereferencing pointer to incomplete type /home/nelson/.cache/common-lisp/ccl-1.8-f95-linux-x64/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/cffi_0.11.0/libffi/libffi-unix.c:131: error: dereferencing pointer to incomplete type [Condition of type ASDF:LOAD-SYSTEM-DEFINITION-ERROR] Restarts: 0: [RETRY] Retry #<STANDARD-CLASS PROCESS-OP> on #<GROVEL-FILE "cffi-libffi" "libffi" "libffi">. 1: [ACCEPT] Continue, treating #<STANDARD-CLASS PROCESS-OP> on #<GROVEL-FILE "cffi-libffi" "libffi" "libffi"> as having been successful. 2: [RETRY-LOAD] Retry loading #P"/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/gsll-20130312-git/gsll.asd" 3: [SKIP-LOAD] Skip loading #P"/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/gsll-20130312-git/gsll.asd" 4: [LOAD-OTHER] Load other file instead of #P"/home/nelson/lib-asdf/quicklisp/dists/quicklisp/software/gsll-20130312-git/gsll.asd" 5: [REINITIALIZE-SOURCE-REGISTRY-AND-RETRY] Retry finding system gsll after reinitializing the source-registry.

2 1

LinkedIn Ağ Güncellemeleri, 11/4/2013
by LinkedIn Güncellemeleri 11 Apr '13

11 Apr '13

LinkedIn ------------ LinkedIn Ağ Güncellemeleri GÖRÜNTÜLENEN GÜNCELLEMELER 4 Nis - 11 Nis --- Görüntülenen Güncellemeler * D. E. (Steve) Stevenson şu kişiyle bağlantı kurdu: Strickler Cassy ve Curt Reynolds Genişletilmiş Ağınızdan Güncellemeler</span><br /> (Bu kişiler ile bağlantı kurarark neler yaptıklarını öğrenin.) * umud shukri bir kitab İran: Tehdit mi, Fırsat mı? Bülent Keneş http://lnkd.in/RPChBy Bağlantıyı Görüntüleyin: http://www.linkedin.com/e/-8a34oq-hfeauj7u-4t/nua/s1415730201/http%3A%2F%2F… umud shukri ile bağlantı kurun: http://www.linkedin.com/e/-8a34oq-hfeauj7u-4t/ZinPG-VgE-rKjpgcnEb9mzEQSFxBy… Yorum ekleyin: http://www.linkedin.com/e/-8a34oq-hfeauj7u-4t/nds/206959193/M/U/57281911618… * Cemil Cemiloglu Linkedin has a very accurate recommendations system, this is how they do it, Hadoop is what is under the hood. http://lnkd.in/3hER9M Bağlantıyı Görüntüleyin: http://www.linkedin.com/e/-8a34oq-hfeauj7u-4t/nua/s1415724342/http%3A%2F%2F… Cemil Cemiloglu ile bağlantı kurun: http://www.linkedin.com/e/-8a34oq-hfeauj7u-4t/ZinPG-VgE-rKjpgcnEb9mzEQSFxBy… Yorum ekleyin: http://www.linkedin.com/e/-8a34oq-hfeauj7u-4t/nds/6152363/M/U/5728191048421… * Püren Özyüksel http://lnkd.in/ks8Pq3 Bağlantıyı Görüntüleyin: http://www.linkedin.com/e/-8a34oq-hfeauj7u-4t/nua/s1415722082/http%3A%2F%2F… Püren Özyüksel ile bağlantı kurun: http://www.linkedin.com/e/-8a34oq-hfeauj7u-4t/ZinPG-VgE-rKjpgcnEb9mzEQSFxBy… Yorum ekleyin: http://www.linkedin.com/e/-8a34oq-hfeauj7u-4t/nds/12385490/M/U/572818996019… * sezgin cirit link postaladı Bağlantıyı Görüntüleyin: http://www.linkedin.com/e/-8a34oq-hfeauj7u-4t/nua/s1415725256/http%3A%2F%2F… sezgin cirit ile bağlantı kurun: http://www.linkedin.com/e/-8a34oq-hfeauj7u-4t/ZinPG-VgE-rKjpgcnEb9mzEQSFxBy… Yorum ekleyin: http://www.linkedin.com/e/-8a34oq-hfeauj7u-4t/nds/61079128/M/U/572818950569… Diğer güncellemeleri göster » http://www.linkedin.com/e/-8a34oq-hfeauj7u-4t/nth/false/eml_nus_home_bottom…

1 0

Make her pleased every night
by Rolf Oconnor 11 Apr '13

11 Apr '13

Check new prices http://sotimex.com/acid.html

1 0

[GSLL-devel] Loading Foreign Libraries in MacOSX
by David Hodge 01 Apr '13

01 Apr '13

Hi I am using SBCL on MacOSX and when I try to load the latest GSLL it can't find the foreign libraries for libgslcblas and libgsl. Looking at the source from an earlier version I see that the "lib/"prefix has been omitted from the library names. One possible workaround would be to use "gsl-config --libs" and extract the library directory from that. if you are interested I can supply a patch. cheers

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

gsll-devel April 2013