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

[Gsll-devel] grid: map-n-grids example
by Mirko Vukovic 20 Jul '10

20 Jul '10

Hello, I just spent a few minutes on figuring out how to use map-n-grids as there are no examples in the distribution or documentation. Here is one example, here is one that accomplishes the following (in pseudo-code): (map 'grid #'(lambda (x1 x2) (- x1 x2)) grid1 grid2) (map-n-grids :sources `((,*array-3-4-double-float* ,(affi *array-3-4-double-float*)) (,*array-3-4-double-float* ,(affi *array-3-4-double-float*))) :combination-function #'(lambda (i x1 x2) (print i) (- x1 x2))) In this example, I am not sure of the role of the first variable (I did not have more time to stare at map.list) Mirko

2 1

[Gsll-devel] #m and *print-case*
by Leo 29 Mar '10

29 Mar '10

Hello, I notice that #m has two problems: 1. If (setf *print-case* :downcase), things like #m(1 2 3) fail. Here's the sldb buffer in slime: ---------------- Class named gsll::|vector-double-float| not found. [Condition of type simple-error] Restarts: 0: [continue] Try finding the class again 1: [retry] Retry SLIME REPL evaluation request. 2: [abort] Return to SLIME's top level. 3: [abort-break] Reset this thread 4: [abort] Kill this thread Backtrace: 0: (find-class gsll::|vector-double-float| t nil) Locals: ccl::name = gsll::|vector-double-float| ccl::errorp = t ccl::environment = nil ccl::cell = nil 1: (#<standard-method make-instance (symbol)> gsll::|vector-double-float| :initial-contents (1 2 3)) Locals: class = gsll::|vector-double-float| ccl::initargs = (:initial-contents (1 2 3)) ---------------- 2. #m (1 2 3) fails too Other reader macros does not err when there's a space follows it, for example: - ' (1 2 3) - # (1 2 3) This is a bit inconvenient because paredit.el automatically inserts a space behind m. Can these be fixed? Thanks. Leo -- H A P P Y H O L I D A Y S!

2 4

[Gsll-devel] how to make linear interpolation work?
by Mirko Vukovic 28 Mar '10

28 Mar '10

The following snippet: (let ((v1 #m(1d0 2d0 3d0)) (v2 #m(3d0 2d0 1d0))) (let ((interpolation (make-interpolation +linear-interpolation+ v1 v2)) (accel (make-acceleration))) (evaluate interpolation 2d0 :ya v2 :x1 v1 :acceleration accel))) throws an error on SBCL (1.0.34): There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION C-ARRAY:ORIGINAL-ARRAY (1)> when called with arguments (NIL). [Condition of type SIMPLE-ERROR] spline interpolation works. So, what am I missing? Mirko

2 1

[Gsll-devel] grid:map.lisp -- example code fails
by Mirko Vukovic 28 Mar '10

28 Mar '10

The following two examples from grid:map.lisp produce an error on clisp/cygwin ;;; Extract the diagonal, inject into a vector of length 6, with the ;;; first three elements set to a default value (map-grid :source *array-3-4-double-float* :source-affi (affi:diagonal (affi *array-3-4-double-float*)) :destination-affi (affi:make-affi '(6) 3) :default-value -77.7d0) ;;; Extract the diagonal, inject at index 3 into a vector of length 6, ;;; adding to the vector elements (map-grid :source *array-3-4-double-float* :source-affi (affi:diagonal (affi *array-3-4-double-float*)) :destination-affi (affi:make-affi '(6) 3) :default-value -77.7d0 :combination-function '+) The reported error is: ROW-MAJOR-AREF: index NIL for #2A((#1=0.0d0 1.0d0 2.0d0 3.0d0) (10.0d0 11.0d0 12.0d0 13.0d0) (20.0d0 21.0d0 22.0d0 23.0d0)) is not of type `(INTEGER 0 (,ARRAY-DIMENSION-LIMIT)) [Condition of type SIMPLE-TYPE-ERROR] I can make it work by using the destination-affi (make-affi '(3)), but not (make-affi '(4)) or larger. Mirko

2 1

[Gsll-devel] Correction to data/iterate.lisp file
by Mirko Vukovic 14 Mar '10

14 Mar '10

Liam, In order for gsll's iterate extensions to compile on sbcl, one needs to quote all the lambda expressions in the iterate.lisp file. Best, Mirko

2 2

[Gsll-devel] grid:make-grid bug?
by Mirko Vukovic 14 Mar '10

14 Mar '10

The following throws my clisp into an infinite loop: (grid:MAKE-GRID '((gsl:marray 3 3) DOUBLE-FLOAT) :INITIAL-CONTENTS #(0.5d0 1.5d0 2.5d0 3.5d0 0.1d0 1.1d0 10.5d0 11.5d0 12.5d0 13.5d0 10.1d0 11.1d0 20.5d0 21.5d0 22.5d0 23.5d0 20.1d0 21.1d0)) Am I misusing make-grid, or is this a bug? Thanks, Mirko

2 1

[Gsll-devel] Compilation error in fsbv/libffi-unix.c
by N J 03 Mar '10

03 Mar '10

Hey, When I run (asdf:operate 'asdf:load-op :gsll) in sbcl I get: ; loading system definition from /usr/share/common-lisp/systems/c-array.asd ; into #<PACKAGE "ASDF0"> ; registering #<SYSTEM C-ARRAY {10026C51D1}> as C-ARRAY ; compiling file "/usr/share/common-lisp/source/fsbv/init.lisp" (written 01 MAR 2010 11:39:35 PM): ; compiling (IN-PACKAGE :COMMON-LISP-USER) ; compiling (DEFPACKAGE :FOREIGN-STRUCTURES-BY-VALUE ...) ; compiling (CFFI:LOAD-FOREIGN-LIBRARY "libffi.so") ; compiling (PUSHNEW :FSBV ...) ; /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/init.fasl written ; compilation finished in 0:00:00 ; cc -m64 -fPIC -o /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial thread" RUNNING {10023F6A01}>: External process exited with code 1. Command was: "cc" "-m64" "-fPIC" "-o" "/home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix" "/home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c" Output was: /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:7:17: error: ffi.h: No such file or directory /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c: In function ‘main’: /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:40: error: ‘FFI_OK’ undeclared (first use in this function) /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:40: error: (Each undeclared identifier is reported only once /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:40: error: for each function it appears in.) /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:45: error: ‘FFI_BAD_TYPEDEF’ undeclared (first use in this function) /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:50: error: ‘FFI_BAD_ABI’ undeclared (first use in this function) /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:61: error: ‘FFI_DEFAULT_ABI’ undeclared (first use in this function) /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:66: error: ‘FFI_SYSV’ undeclared (first use in this function) /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:71: error: ‘FFI_UNIX64’ undeclared (first use in this function) /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:79: error: ‘ffi_abi’ undeclared (first use in this function) /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:126: error: invalid application of ‘sizeof’ to incomplete type ‘struct _ffi_type’ /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:126: warning: format ‘%i’ expects type ‘int’, but argument 3 has type ‘long unsigned int’ /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:131: error: dereferencing pointer to incomplete type /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:136: error: dereferencing pointer to incomplete type /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:141: error: dereferencing pointer to incomplete type /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:146: error: dereferencing pointer to incomplete type /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c: In function ‘print_double_for_lisp’: /home/rpx/.fasls/sbcl-1.0.19-gentoo-linux-x86-64/usr/share/common-lisp/source/fsbv/libffi-unix.c:397: warning: incompatible implicit declaration of built-in function ‘memset’ My packages and gits are: git://repo.or.cz/gsll.git 4fef622be12cf318e015b2ba5aba6c63d4296f1e master git://repo.or.cz/fsbv.git dd8025f51fd8272b725bd73bc0b1875bae2bcf5b master cffi-0.10.5 Thank you guys for any help NIK

4 6

[Gsll-devel] sbcl 1.0.35 & 1.0.36 fail to load 64-bit libgslcblas
by Mirko Vukovic 01 Mar '10

01 Mar '10

Hello, I just tried moving up from sbcl 1.0.34 on 64-bit linux to 1.0.36. Well, both 1.0.35 and 1.0.36 fail to load libgslcblas. Before I take this to the cffi & sbcl lists, I wonder if anyone else has observed this behavior? Thanks, Mirko

1 0