gsll-devel June 2010

gsll-devel@common-lisp.net

3 participants
5 discussions

[Gsll-devel] Unhandled exception while running (lisp-unit:run-tests)
by Leo 21 Jul '10

21 Jul '10

Hello all, I am running ccl trunk (checked out on 2010-06-13) with GSLL (gsl 1.4) on Linux: openSUSE 11.0 (X86-64) VERSION = 11.0 The machine has 4 CPUs. (asdf:load-system :gsll) (asdf:load-system :gsll-tests) (in-package :gsl) (lisp-unit:run-tests) and get this: ...... LU: (MULTIPLE-VALUE-LIST (TEST-LU-SOLVE-DIM (CREATE-COMPLEX-MATRIX 7))) failed: Expected (#<VECTOR-COMPLEX-DOUBLE-FLOAT #(#C(24.0717272023734D0 -9.84612797621247D0) #C(-269.338853034031D0 87.5455232472528D0) #C(2966.61356736296D0 -1026.24473923993D0) #C(-18207.3812124749D0 5673.8447304241D0) #C(55769.3879019068D0 -16154.0963210502D0) #C(-78894.1207561151D0 19505.3812987858D0) #C(39554.8551241728D0 -7765.93696255317D0))>) but saw (#<VECTOR-COMPLEX-DOUBLE-FLOAT #(#C(-81.70598196064235D0 -81.70599595009693D0) #C(3354.209927435102D0 3354.278264591346D0) #C(-31954.85554225817D0 -31956.353685805567D0) #C(119027.61090077131D0 119037.36678048137D0) #C(-203627.71695137964D0 -203653.92708809028D0) #C(160626.5466779804D0 160657.2640539496D0) #C(-47344.00882810219D0 -47357.00253607087D0))>) LU: 11 assertions passed, 1 failed. MATHEMATICAL: 3 assertions passed, 0 failed. MATHIEU: 75 assertions passed, 0 failed. MATRIX-ADD: 10 assertions passed, 0 failed. MATRIX-COPY: 12 assertions passed, 0 failed. MATRIX-COPY-TO-CL-AND-BACK: 12 assertions passed, 0 failed. MATRIX-DIV: 10 assertions passed, 0 failed. MATRIX-MAX: 10 assertions passed, 0 failed. MATRIX-MAX-INDEX: 10 assertions passed, 0 failed. MATRIX-MEAN: 10 assertions passed, 0 failed. MATRIX-MIN: 10 assertions passed, 0 failed. MATRIX-MIN-INDEX: 10 assertions passed, 0 failed. MATRIX-MINMAX: 10 assertions passed, 0 failed. MATRIX-MINMAX-INDEX: 10 assertions passed, 0 failed. MATRIX-MULT: 10 assertions passed, 0 failed. MATRIX-PRODUCT: 8 assertions passed, 0 failed. MATRIX-PRODUCT-HERMITIAN: 4 assertions passed, 0 failed. MATRIX-PRODUCT-NONSQUARE: 4 assertions passed, 0 failed. MATRIX-PRODUCT-SYMMETRIC: 4 assertions passed, 0 failed. MATRIX-PRODUCT-TRIANGULAR: 8 assertions passed, 0 failed. MATRIX-SET-ALL: 12 assertions passUnhandled exception 11 at 0x7f40eb6dd1c8, context->regs at #x7fff3fc87178 Exception occurred while executing foreign code received signal 11; faulting address: (nil) unexpected si_code value: 128 ? for help [18645] Clozure CL kernel debugger: B current thread: tcr = 0x7f40ec2146f0, native thread ID = 0x48d5, interrupts enabled (#x00007F40EB664DF0) #x00003000000767BC : #<Function %DO-FF-CALL #x000030000007676F> + 77 (#x00007F40EB664E00) #x0000300000077774 : #<Function %FF-CALL #x00003000000768BF> + 3765 (#x00007F40EB664E90) #x000030200101EA74 : #<Function (:INTERNAL (INITIALIZE-INSTANCE :AFTER (MATHIEU))) #x000030200101E9FF> + 117 (#x00007F40EB664EB8) #x00003000000E2A8C : #<Function DRAIN-TERMINATION-QUEUE #x00003000000E288F> + 509 (#x00007F40EB664F40) #x0000300000A73AAC : #<Function (:INTERNAL ADD-GC-HOOK) #x0000300000A73A4F> + 93 (#x00007F40EB664F60) #x000030000045AD84 : #<Function HOUSEKEEPING #x000030000045AD4F> + 53 (#x00007F40EB664F90) #x000030000045B57C : #<Function HOUSEKEEPING-LOOP #x000030000045B36F> + 525 [18645] Clozure CL kernel debugger: Leo

2 8

[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] clbuild instructions bug
by James Wright 08 Jun '10

08 Jun '10

Hi all, There's a small bug in the instructions on the website for downloading gsll using clbuild. It says that the following line should be added to dependencies: gsll c-array grid cffi trivial-garbage cl-utilities lisp-unit fsbv iterate asdf-system-connections However, c-array and grid are systems, not projects, so they cannot be downloaded. The following line works better: gsll gsd cffi trivial-garbage cl-utilities lisp-unit fsbv iterate asdf-system-connections Thanks! James

2 1

[Gsll-devel] gsll repository
by ivan hohlov 07 Jun '10

07 Jun '10

Hello, http://repo.or.cz seems to be down for the second day. Is there any other reposiories or mirrors of gsll? Thanks

2 1

[Gsll-devel] make-marray, :cl-array keyword
by ivan hohlov 06 Jun '10

06 Jun '10

Hi all! There is a keyword :cl-array for the gsll:make-marray function. Can I use it to convert native lisp array into marray? I'm trying to do this: (defparameter *m* (make-array '(3 3) :element-type 'single-float :initial-contents '((1.0 2.0 3.0) (4.0 5.0 6.0) (7.0 8.0 9.0)))) (gsll:make-marray 'single-float :dimensions '(3 3) :cl-array *m*) leads to error "Invalid initialization argument: :cl-array". (sbcl, of course) Am I right, using :cl-array in such a way? I have searched for examples with thes key, but found nothing. Also, if I use :data key instead of :cl-array, it works, but tue resulting marray couldn't be used in common routines, such as matrix multiplication, because it isn't simple-array. To generalize the problem - Is it possible to convert lisp array to gsll marray without copying data? Thanks

3 3

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

gsll-devel June 2010