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

How to use lisp packages from libraries?
by Иван Трусков 05 Jul '21

05 Jul '21

I am trying to use a package function in my lisp library that will later be called from a C application. To be precise, it is shorten function from the str package. Here is my lisp library text: ;; (require :str) ;; (use-package :str) (defun echo-string (s) (coerce (format nil "Recieved input: ~10A" (shorten-string s)) 'base-string)) (defun shorten-string (s) (declare (string s)) (let ((l (length s))) (if (> l 10) (concat (shorten 7 s) (substring (- l 3) nil s)) s))) First lines are commented out because i do not know their necessity in the library. That's part of the question. However, all i get when trying to use any function from this library is a number of undecipherable errors, like this: https://pastebin.com/Sn8jgE9f Here is my C code for a minimal case: #include <stdlib.h> #include <stdio.h> #include <ecl/ecl.h> // utility functions cl_object make_cl_string(const char * pstring) { return ecl_make_constant_base_string(pstring, strlen(pstring)); } int main(int argc, const char* argv[]) { /* Initialize ECL */ ecl_set_option(ECL_OPT_TRAP_SIGSEGV, false); cl_boot(argc, argv); extern void init_lib_ASDF(cl_object); ecl_init_module(NULL, init_lib_ASDF); // is this necessary? extern void init_lib_ECL_QUICKLISP(cl_object); ecl_init_module(NULL, init_lib_ECL_QUICKLISP); cl_object ecl_module_name = make_cl_string("ecl-quicklisp"); cl_require(1, ecl_module_name); cl_object str_module_name = make_cl_string("str"); cl_require(1, str_module_name); // this code fails, not clear what use as package designator /* cl_object str_package_name = make_cl_string(":str"); */ /* cl_use_package(1, str_package_name); */ extern void init_embedded_console(cl_object); ecl_init_module(NULL, init_embedded_console); // library calls cl_object fname = make_cl_string("ECHO-STRING"); cl_object echo_func = cl_find_symbol(1, fname); assert(ECL_SYMBOLP(pstate->echo_func)); const char * line = "hello"; cl_object call_result = cl_funcall(2, echo_func, make_cl_string(line)); char * msg_str = malloc(call_result->string.fillp + 1); memcpy(msg_str, call_result->string.self, call_result->string.fillp + 1); printf("Output: %s\n", msg_str); free(msg_str); const char * line2 = "hello"; call_result = cl_funcall(2, echo_func, make_cl_string(line2)); msg_str = malloc(call_result->string.fillp + 1); memcpy(msg_str, call_result->string.self, call_result->string.fillp + 1); printf("Output: %s\n", msg_str); free(msg_str); return 0; } What should be done for me to be able to use some package (installed with quicklisp) from my ECL library? How should the initialisation be done?

2 1

ASDF 3.3.5 is released
by Robert Goldman 03 Jul '21

03 Jul '21

Please consider upgrading the version you are distributing with your implementation. Note that this is strictly a bug fix release so should not cause issues in upgrading. But "should" -- software is unpredictable. Announcement email follows. Best, R

1 0

Flags for other platforms during static lib compilation?
by Joshua Armenta 29 Jun '21

29 Jun '21

Is there a flag to set another architecture type during the compilation process? For example I’m on an Intel Mac but I want to make a project build for ARM Mac (or a fat binary) to not use Rosetta 2 for that version. Or, I’m on a Mac but want to cross compile the lisp project/static library to windows. Trying to integrate some code into a CI platform. Thx! Sent from my iPhone Disclaimer The information contained in this communication from the sender is confidential. It is intended solely for use by the recipient and others authorized to receive it. If you are not the recipient, you are hereby notified that any disclosure, copying, distribution or taking action in relation of the contents of this information is strictly prohibited and may be unlawful. This email has been scanned for viruses and malware, and may have been automatically archived by Mimecast, a leader in email security and cyber resilience. Mimecast integrates email defenses with brand protection, security awareness training, web security, compliance and other essential capabilities. Mimecast helps protect large and small organizations from malicious activity, human error and technology failure; and to lead the movement toward building a more resilient world. To find out more, visit our website.

2 3

Ignore build break on Raspberry Pi
by dave＠synergy.org 10 Jun '21

10 Jun '21

Operator error.

1 0

Build error on Raspberry Pi
by dave＠synergy.org 10 Jun '21

10 Jun '21

It's been quite a while since I re-built ecl on my Pi. Dave

1 0

[new irc server]
by Daniel Kochmański 23 May '21

23 May '21

Hey, Due to the recent IRC drama revolving around freenode I've moved the IRC channel to #ecl @ libera.chat. The old channel is obsolete. 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

1 0

Where to go with EQL5 and QT specific questions?
by Erik Winkels 01 May '21

01 May '21

So you've noticed I'm kinda slow. I've finally started working on an app for Sailfish OS thanks to Renaud's fantastic template https://redmine.casenave.fr/projects/eql5-sfos/repository/44/revisions/mast… and also thanks to all the people who have worked on ECL and EQL. I know little of QT however and looking at the EQL5 examples only gets me so far. What would be a good venue to ask my (initially really basic) questions on the combination of ECL, EQL and QT? I mean, I want to ask questions to people who also like to program in Common Lisp so I don't have to have a discussion thread first on why I am not using C++ or Python. Would this mailing-list be ok? (I'm a little hesitant.) https://www.reddit.com/user/eql5 perhaps? Do the people here read that? My preference would be either e-mail or web forums, but if everyone is on Matrix or Discord these days then I guess I'll have to go there. Regards, Erik

6 26

App Store Compatibility?
by Joshua Armenta 16 Apr '21

16 Apr '21

Hi all, Thanks for a great project. Are libraries built with ECL compatible with Apple’s App Store policies? Specifically, does the app make any private API calls to the macOS operating system? Many thanks, Josh Disclaimer The information contained in this communication from the sender is confidential. It is intended solely for use by the recipient and others authorized to receive it. If you are not the recipient, you are hereby notified that any disclosure, copying, distribution or taking action in relation of the contents of this information is strictly prohibited and may be unlawful. This email has been scanned for viruses and malware, and may have been automatically archived by Mimecast, a leader in email security and cyber resilience. Mimecast integrates email defenses with brand protection, security awareness training, web security, compliance and other essential capabilities. Mimecast helps protect large and small organizations from malicious activity, human error and technology failure; and to lead the movement toward building a more resilient world. To find out more, visit our website.

2 2

Dependency issue with program-op
by Didier Verna 22 Mar '21

22 Mar '21

Hello, I'm cross-posting because I don't know if the issue is related to ASDF or ECL. I'm using the most recent repos of both. When dumping a very simple system defined like this: (asdf:defsystem :simple :depends-on (:net.didierverna.clon) :components ((:file "simple")) :entry-point "simple:main") with (asdf:operate 'asdf:program-op :simple), I'm getting a runtime error with the executable: Condition of type: SIMPLE-PACKAGE-ERROR There exists no package with name "NET.DIDIERVERNA.CLON.SETUP" No restarts available. Top level in: #<process TOP-LEVEL 0x10a821f80>. So it seems that the net.didierverna.clon.setup system is not dumped in the executable. In Clon, the dependency on setup is indirect: net.didierverna.clon <- net.didierverna.clon.core net.didierverna.clon.core <- net.didierverna.clon.setup If I add an explicit dependency on setup in the :simple ASDF system above like this: :depends-on (:net.didierverna.clon.setup :net.didierverna.clon)) the problem goes away. This doesn't happen with the 5 other Lisp implementations that I've tested. Also, it may be worth mentioning that Clon's setup system gets a special treatment. It's loaded explicitly at the top of several .asd files like this (with the utmost disrespect for the Almighty ASDF Gods recommendations): (asdf:load-system :net.didierverna.clon.setup) I'm wondering if this may have something to do with the problem. Thanks! -- ¡En Seguida! -- New album: https://www.didierverna.com/records/en-seguida.php Available on all digital platforms now! Lisp, Jazz, Aïkido: http://www.didierverna.info

3 4

Calling into an ECL-compiled .so from C, best practices, how to pass strings, etc...
by Eric Schulte 15 Mar '21

15 Mar '21

Hi, I’m trying to compile a common lisp system into a .so which I can then wrap a Python library around to enable easy sharing of the functionality as a Python package (wheel). I’m having trouble finding examples of other C code calling into ECL-compiled shared objects of lisp code. I hope I can solicit some answer and critical code review here, or pointers to exemplar implementations would also be much appreciated. So far I have: 1. A Makefile [1] rule to build the .so from the common lisp package. This part actually seems to be working well (if slow to compile). 2. A C source file [2] wrapping the ECL-compiled shared object. I think this is likely where most of my problems are: specifically: * How does one get a string back out from Common Lisp to C? Currently I’m jumping through hoops that seem like they should be unnecessary [3] and only work some of the time (other times I’m getting multiple copies of the string text). * How does one get a UTF8 string from C (wchar_t*) into Common Lisp? I haven’t found a way so for now I’m limiting my input to ASCII (char*) [4]. * Is the best way to invoke a function really to call c_string_to_object (e.g., [5] among many others)? It seems like there should be a more efficient way than converting a string into a function name for every function dispatch. * Finally, calling init [6] has two problems. First, it takes a very long time every time I load the library. Is there no way to save the state of the lisp image after initialization? Second, it loads ASDF from a path relative to my local system. Can I get ASDF compiled into the shared object to remove as many external dependencies as possible? Any help is much appreciated. Also, thanks to those who answered issues on the ECL GitLab repository to help me get this far. Thanks! Eric [1] https://github.com/GrammaTech/sel/blob/python-library/Makefile#L110-L128 [2] https://github.com/GrammaTech/sel/blob/python-library/software/tree-sitter.c [3] https://github.com/GrammaTech/sel/blob/python-library/software/tree-sitter.… [4] https://github.com/GrammaTech/sel/blob/python-library/software/tree-sitter.… [5] https://github.com/GrammaTech/sel/blob/python-library/software/tree-sitter.… [6] https://github.com/GrammaTech/sel/blob/python-library/software/tree-sitter.… ________________________________ The information contained in this e-mail and any attachments from GrammaTech, Inc may contain confidential and/or proprietary information, and is intended only for the named recipient to whom it was originally addressed. If you are not the intended recipient, any disclosure, distribution, or copying of this e-mail or its attachments is strictly prohibited. If you have received this e-mail in error, please notify the sender immediately by return e-mail and permanently delete the e-mail and any attachments.

2 2