- ecl-devel - mailman3.common-lisp.net

Feature request: dlopen(NULL, ...
by Michael Fox 03 Jan '17

03 Jan '17

I was wondering if I could get some feeback on an ECL feature request that I posted here: https://gitlab.com/embeddable-common-lisp/ecl/issues/336 <https://gitlab.com/embeddable-common-lisp/ecl/issues/336> Here is the text: I would like to be able to call functions using dynamic FFI in the program into which ECL has been embedded. In Linux, you can do this by calling `dlopen` with `NULL` for the filename. > If filename is NULL, then the returned handle is for the main program. http://man7.org/linux/man-pages/man3/dlopen.3.html Looking at ECL source code, it does not seem to be supported. `dlopen` is called in `c/ffi/libraries.d` like this: char *filename_string = (char*)filename->base_string.self; #ifdef HAVE_DLFCN_H block->cblock.handle = dlopen(filename_string, RTLD_NOW|RTLD_GLOBAL); So, I guess there's no way to set `filename_string = NULL`. One way to do it would be to say if you call (ffi:load-foreign-library "") Then it will skip the checks to see if the file exists and just call `dlopen(NULL, ...` Another way would be to make a new function `ffi:load-main-program`. I don't have any suggestions as to which would be better as I am very new to Lisp. Thank you for your attention.

2 1

ECL does not support docstrings for functions created with flet, labels or lambda. Why?
by Alexander Artemenko 03 Jan '17

03 Jan '17

Hi! I found that: CL-USER> (let ((foo (lambda () "With docstring" 100500))) > (princ (funcall foo)) > (terpri) > (princ (documentation foo t))) > 100500 > NIL > NIL in ECL, but: CL-USER> (let ((foo (lambda () "With docstring" 100500))) > (princ (funcall foo)) > (terpri) > (princ (documentation foo t))) > 100500 > With docstring > "With docstring" Why? BTW, similar behaviour have ABCL, Allegro and CCL. But SBCL and CLISP work as expected. -- Alexander Artemenko (a.k.a. Svetlyak 40wt) Blog: http://dev.svetlyak.ru

2 1

Bad slot inheritance in ECL
by Faré 28 Dec '16

28 Dec '16

I'm facing an "interesting" bug in ECL: in my branch of cffi at https://github.com/fare/cffi I try to define a static-image-op that has gather-operation 'compile-op and gather-type :object because I want to force all objects to be linked, and using the same 'lib-op and :static-library as image-op cause objects unreferenced by ECL to be dropped. However, though I override these slots in my defclass, they don't seem effective. (require "asdf") (asdf:load-system :cffi-toolchain) (in-package :cffi-toolchain) (uiop-debug) (defclass foo-op (image-op) ((gather-type :initform :object :allocation :class))) (defun g (o) (asdf/bundle::gather-type (make-operation o))) (DBG :foo (g 'image-op) ;==> :static-library, as expected (g 'static-image-op) ;==> :static-library, but expected :object (g 'static-program-op) ;==> :static-library, but expected :object (g 'foo-op)) ;==> :static-library, but expected :object I tried to extract a smaller test case by recreating in a file the hierarchy of static-image-op, keeping only the definitions and overrides for slot gather-type, but then it worked. Maybe the combination of eval-when's and/or the compilation and loading play a role in making the bug happen. —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org The only way for a reporter to look at a politician is down. — H.L. Mencken

2 4

Re: Statically linking C code into ECL
by Daniel Kochmański 27 Dec '16

27 Dec '16

Faré writes: > What's the official way to link a C file into ECL? What do you mean by 'linking C file'? If you want to compile independent C file with ECL, then you are out of luck, because there is no official support for that in ECL's builder. It may work by passing file as one of lisp-files to builder, because ECL uses C files *internally*, but it's far from encouraged or official. As a side note, I see you use there c::builder, which is also internal. Exported interfaces are build-fasl, build-program, build-static-library and build-shared-library (it doesn't make a difference right now, but in the future builder interface may change, while the mentioned functions wont). > > I'm adding a :c-file type to cffi-toolchain, and it works great on > sbcl and clisp, > or on ECL when loading the file as a .so, but when I try to link the > file into an executable, > the .o failed to be included in the executable: the .o was > successfully grouped with > other .o's from the same system in a .a, but ecl fails to use > -Wl,--whole-archive, > so the .o is not preserved. > Is there a way to tell ECL to use -Wl,--whole-archive and/or (on > Darwin) -force_load before every .a? builder (and all interfaces built on top of it) support ld-flags key argument. Additionally if you want to influence how ECL compiles files dynamically you may shadow *user-cc-flags* and *user-ld-flags*. > > The question is in the context of my cffi branch (that I'm hoping to > upstream asap, pending merge of the sbcl patch it depends on): > https://github.com/fare/cffi > > —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org > A president worth voting for wouldn't run for office. If this remarks aren't helpful, please tell me exactly what do you want to achieve with some minimal example (i.e I'm doing that and that, expecting this and this, but it doesn't work failing in this way), because I don't quite understand your problem. I'm adding ecl-devel to CC, because someone may be more competent to answer your question. Regards, Daniel -- Daniel Kochmański ;; aka jackdaniel | Przemyśl, Poland TurtleWare - Daniel Kochmański | www.turtleware.eu "Be the change that you wish to see in the world." - Mahatma Gandhi

3 7

maxima-5.39.0/ecl-16.1.3 new testsuite failure
by Andrey G. Grozin 20 Dec '16

20 Dec '16

Hello *, There is a new testsuite failure in maxima-5.39.0 compiled with ecl-16.1.3: Running tests in rtest16: ********************** Problem 561 (line 2153) *************** Input: 2 - %pi ev(closeto(li (1.0 %i) - (------ + %i 0.915965594177219), 1.3878e-16), numer) 2 48 Result: error-catch This differed from the expected result: true 612/613 tests passed With ecl-16.1.2 there were no unexpected failures in the maxima testsuite. Andrey

3 5

[ECL 16.1.3]
by Daniel Kochmański 19 Dec '16

19 Dec '16

Dear All, ECL 16.1.3 has been released today. For more information please see the announcement: https://common-lisp.net/project/ecl/posts/ECL-1613-release.html Best regards, Daniel -- Daniel Kochmański ;; aka jackdaniel | Przemyśl, Poland TurtleWare - Daniel Kochmański | www.turtleware.eu "Be the change that you wish to see in the world." - Mahatma Gandhi

3 4

What is the proper way to pass a void* to a C++ instance?
by Ryan 14 Dec '16

14 Dec '16

Hello all, I'm working on a C++ project. For example let's say I have a class called MyClass In C++ I might have void* ptr = new MyClass(); // Assume default constructor What is the proper way to turn ptr into a cl_object? What is the proper way to decode the encoded cl_object back to C++'s void pointer so I can recast it? I've read the documentation and tried a bunch of things. Finally giving in and asking for a bit of direction since it's not working as I'd expect. I was using ecl_make_pointer(ptr) to try and make a cl_object I was using ecl_to_pointer([formerly created cl_object here]) to try and convert the cl_object pointer to a C++ void* Maybe the bug is elsewhere or I'm not understanding... Sincerely, Ryan

2 3

[ecl][rc-16.1.3]
by Daniel Kochmański 13 Dec '16

13 Dec '16

Dear All, We are slowly moving towards the next release. The current candidate is available in the main repository "rc-16.1.3" branch at: git@gitlab.com:embeddable-common-lisp/ecl.git For the list of changes see "CHANGELOG" file[1], For the testing progress see: https://gitlab.com/embeddable-common-lisp/ecl/issues/307 If nothing comes up until Sunday I'll merge it to the master branch and publish the release officially on Monday. Best regards, Daniel [1] for a complete list see commits in the repository and closed issues on the tracker. -- Daniel Kochmański ;; aka jackdaniel | Przemyśl, Poland TurtleWare - Daniel Kochmański | www.turtleware.eu "Be the change that you wish to see in the world." - Mahatma Gandhi

2 2

probe-file cuts symlink filename to 128 chars
by Tomas Hlavaty 02 Dec '16

02 Dec '16

Hi, ecl 16.1.2 on Linux cuts symlink filename to 128 chars/bytes. It works with ordinary files. Examples bellow. It doesn't error with "Too long filename" as in si_coerce_to_filename but silently cuts the name and then fails with another error. Tomas --- $ nix-shell -p ecl --run 'ecl -q -eval "(print (length \"/nix/store/zgrivrhpcrq54hay1hyib80fac9syi7p-emacs-slime-2.18/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector.lisp\"))" -eval "(quit)"' ;;; Loading #P"/nix/store/wckaf9qh18iw93gimjxj915msvaskwgg-ecl-16.1.2/lib/ecl-16.1.2/asdf.fas" 133 $ nix-shell -p ecl --run 'ecl -q -eval "(print (probe-file \"/nix/store/zgrivrhpcrq54hay1hyib80fac9syi7p-emacs-slime-2.18/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector.lisp\"))" -eval "(quit)"' ;;; Loading #P"/nix/store/wckaf9qh18iw93gimjxj915msvaskwgg-ecl-16.1.2/lib/ecl-16.1.2/asdf.fas" #P"/nix/store/zgrivrhpcrq54hay1hyib80fac9syi7p-emacs-slime-2.18/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector.lisp" $ nix-shell -p ecl --run 'ecl -q -eval "(print (length \"/nix/store/rx4lnbvmv7hymadkzyv3ncvmf4sh5a3f-emacs-packages-deps/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector.lisp\"))" -eval "(quit)"' ;;; Loading #P"/nix/store/wckaf9qh18iw93gimjxj915msvaskwgg-ecl-16.1.2/lib/ecl-16.1.2/asdf.fas" 136 $ nix-shell -p ecl --run 'ecl -q -eval "(print (probe-file \"/nix/store/rx4lnbvmv7hymadkzyv3ncvmf4sh5a3f-emacs-packages-deps/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector.lisp\"))" -eval "(quit)"' ;;; Loading #P"/nix/store/wckaf9qh18iw93gimjxj915msvaskwgg-ecl-16.1.2/lib/ecl-16.1.2/asdf.fas" An error occurred during initialization: Filesystem error with pathname "/nix/store/zgrivrhpcrq54hay1hyib80fac9syi7p-emacs-slime-2.18/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector". Either 1) the file does not exist, or 2) we are not allowed to access the file, or 3) the pathname points to a broken symbolic link.. --- with gcc (progn (load "/nix/store/rx4lnbvmv7hymadkzyv3ncvmf4sh5a3f-emacs-packages-deps/share/emacs/site-lisp/elpa/slime-2.18/swank-loader.lisp" :verbose t) (funcall (read-from-string "swank-loader:init")) (funcall (read-from-string "swank:start-server") "/tmp/slime.1357")) ECL (Embeddable Common-Lisp) 16.1.2 (git:UNKNOWN) Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya Copyright (C) 1993 Giuseppe Attardi Copyright (C) 2000 Juan J. Garcia-Ripoll Copyright (C) 2015 Daniel Kochmanski ECL is free software, and you are welcome to redistribute it under certain conditions; see file 'Copyright' for details. Type :h for Help. Top level in: #<process TOP-LEVEL>. > ;;; Loading "/nix/store/rx4lnbvmv7hymadkzyv3ncvmf4sh5a3f-emacs-packages-deps/share/emacs/site-lisp/elpa/slime-2.18/swank-loader.lisp" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/packages.fasc" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/backend.fasc" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/ecl.fasc" ;;; Loading #P"/nix/store/wckaf9qh18iw93gimjxj915msvaskwgg-ecl-16.1.2/lib/ecl-16.1.2/sockets.fas" ;;; Loading #P"/nix/store/wckaf9qh18iw93gimjxj915msvaskwgg-ecl-16.1.2/lib/ecl-16.1.2/profile.fas" ;;; Loading #P"/nix/store/wckaf9qh18iw93gimjxj915msvaskwgg-ecl-16.1.2/lib/ecl-16.1.2/serve-event.fas" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/gray.fasc" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/match.fasc" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/rpc.fasc" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/swank.fasc" ;;; Compiling /nix/store/rx4lnbvmv7hymadkzyv3ncvmf4sh5a3f-emacs-packages-deps/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector.lisp;; ;; Error compiling /nix/store/rx4lnbvmv7hymadkzyv3ncvmf4sh5a3f-emacs-packages-deps/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector.lisp: ;; Filesystem error with pathname "/nix/store/zgrivrhpcrq54hay1hyib80fac9syi7p-emacs-slime-2.18/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector". ;; Either ;; 1) the file does not exist, or ;; 2) we are not allowed to access the file, or ;; 3) the pathname points to a broken symbolic link. ;; Condition of type: FILE-ERROR Filesystem error with pathname "/nix/store/zgrivrhpcrq54hay1hyib80fac9syi7p-emacs-slime-2.18/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector". Either 1) the file does not exist, or 2) we are not allowed to access the file, or 3) the pathname points to a broken symbolic link. Available restarts: 1. (RESTART-TOPLEVEL) Go back to Top-Level REPL. Broken at SWANK-LOADER::COMPILE-FILES. In: #<process TOP-LEVEL>. File: #P"/nix/store/rx4lnbvmv7hymadkzyv3ncvmf4sh5a3f-emacs-packages-deps/share/emacs/site-lisp/elpa/slime-2.18/swank-loader.lisp" (Position #6362) >> :b Backtrace: > SWANK-LOADER::COMPILE-FILES > swank-loader::compile-contribs > swank::run-hook > swank::init > swank-loader::setup > swank-loader:init > si:bytecodes [Evaluation of: (funcall (read-from-string "swank-loader:init"))] > si:bytecodes [Evaluation of: (si:top-level t)] --- with bytecode compiler (progn (load "/nix/store/rx4lnbvmv7hymadkzyv3ncvmf4sh5a3f-emacs-packages-deps/share/emacs/site-lisp/elpa/slime-2.18/swank-loader.lisp" :verbose t) (funcall (read-from-string "swank-loader:init")) (funcall (read-from-string "swank:start-server") "/tmp/slime.1357")) ECL (Embeddable Common-Lisp) 16.1.2 (git:UNKNOWN) Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya Copyright (C) 1993 Giuseppe Attardi Copyright (C) 2000 Juan J. Garcia-Ripoll Copyright (C) 2015 Daniel Kochmanski ECL is free software, and you are welcome to redistribute it under certain conditions; see file 'Copyright' for details. Type :h for Help. Top level in: #<process TOP-LEVEL>. > ;;; Loading "/nix/store/rx4lnbvmv7hymadkzyv3ncvmf4sh5a3f-emacs-packages-deps/share/emacs/site-lisp/elpa/slime-2.18/swank-loader.lisp" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/packages.fasc" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/backend.fasc" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/ecl.fasc" ;;; Loading #P"/nix/store/wckaf9qh18iw93gimjxj915msvaskwgg-ecl-16.1.2/lib/ecl-16.1.2/sockets.fas" ;;; Loading #P"/nix/store/wckaf9qh18iw93gimjxj915msvaskwgg-ecl-16.1.2/lib/ecl-16.1.2/profile.fas" ;;; Loading #P"/nix/store/wckaf9qh18iw93gimjxj915msvaskwgg-ecl-16.1.2/lib/ecl-16.1.2/serve-event.fas" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/gray.fasc" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/match.fasc" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/rpc.fasc" ;;; Loading "/home/tomas/.slime/fasl/2016-04-19/ecl-16.1.2-linux-x86_64/swank.fasc" ;;; Compiling /nix/store/rx4lnbvmv7hymadkzyv3ncvmf4sh5a3f-emacs-packages-deps/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector.lisp;; ;; Error compiling /nix/store/rx4lnbvmv7hymadkzyv3ncvmf4sh5a3f-emacs-packages-deps/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector.lisp: ;; Filesystem error with pathname "/nix/store/zgrivrhpcrq54hay1hyib80fac9syi7p-emacs-slime-2.18/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector". ;; Either ;; 1) the file does not exist, or ;; 2) we are not allowed to access the file, or ;; 3) the pathname points to a broken symbolic link. ;; Condition of type: FILE-ERROR Filesystem error with pathname "/nix/store/zgrivrhpcrq54hay1hyib80fac9syi7p-emacs-slime-2.18/share/emacs/site-lisp/elpa/slime-2.18/contrib/swank-fancy-inspector". Either 1) the file does not exist, or 2) we are not allowed to access the file, or 3) the pathname points to a broken symbolic link. Available restarts: 1. (RESTART-TOPLEVEL) Go back to Top-Level REPL. Broken at SWANK-LOADER::COMPILE-FILES. In: #<process TOP-LEVEL>. File: #P"/nix/store/rx4lnbvmv7hymadkzyv3ncvmf4sh5a3f-emacs-packages-deps/share/emacs/site-lisp/elpa/slime-2.18/swank-loader.lisp" (Position #6362) >> :b Backtrace: > SWANK-LOADER::COMPILE-FILES > swank-loader::compile-contribs > swank::run-hook > swank::init > swank-loader::setup > swank-loader:init > si:bytecodes [Evaluation of: (funcall (read-from-string "swank-loader:init"))] > si:bytecodes [Evaluation of: (si:top-level t)]

2 4

EQL5 is a port of EQL to Qt5
by PR 29 Nov '16

29 Nov '16

Hi list, EQL5 (EQL for Qt5) can be found here: https://gitlab.com/eql/EQL5 Nothing new has been added (yet), it's just a simple port of EQL/Qt4 to Qt5. Paul P.S. If you want to help testing on OSX, you're welcome! (I don't own a Mac anymore.)

3 2