ecl

    6热度

    1回答

    我有以下包定义。我如何编译所有组件递归,以及它们的依赖到C源?换句话说,我想保留所有 C文件,这些文件用于构建本机可执行文件。 目前,我使用(asdf:make-build :example但是,这并不周围留下任何C文件。 我期待看到 simple.c simple.h simple.data cl-opengl.c cl-opengl.h ... example.asd: (def

    2热度

    1回答

    我试过这个例子ECL repository asdf example,它工作正常,但它没有任何asdf依赖关系。如果我添加 :取决于上(#:劣质壳) 到example.asd然后运行编译独立的可执行给这个错误: Condition of type: SIMPLE-PACKAGE-ERROR There exists no package with name "ASDF/DRIVER" No r

    1热度

    1回答

    是否可以在ECL中加载共享库,导入一些接收并返回cl_object的C函数(就好像它们是用ecl_def_c_function()定义的)并在REPL中调用它们(没有编译* .lisp文件)? 例如: // file 'extensions.c' compiled to 'extensions.so' cl_object do_something (cl_object a

    0热度

    2回答

    请首先参阅#7755661。我使用ECL,基本上想要执行一些代码,捕获可能发生的任何状况,然后继续执行,而不提示或输入调试器。这是很容易实现与以下处理情况的宏: (handler-case (load "code.lisp") ; this may raise a condition (error (condition) (print condition))) ;

    1热度

    2回答

    我用下面的函数来运行shell命令: (defun sh (cmd) #+clisp (shell cmd) #+ecl (si:system cmd) #+sbcl (sb-ext:run-program "/bin/sh" (list "-c" cmd) :input nil :output*standard-output*) #+clozure (cc

    0热度

    5回答

    我使用ECL和newlisp运行面函数。 ECL: >(defun fac (n) (if (= n 1) 1 (* n (fac (- n 1))))) >(fac 20) 22432902008176640000 >(fac 30) 2265252859812191058636308480000000 >(fac 40) 815915283247897734345611269596

    -2热度

    2回答

    ECL可以计算fac(1000)真是太棒了! ECL如何做到这一点? >(defun fac (n) (if (= n 1) 1 (* n (fac (- n 1))))) >(disassemble #'fac) #(FAC N = - * #<bytecompiled-function FAC> SI:FSET) Name: FAC 0 PO

    0热度

    3回答

    我在编译Example of a C program embedding ECL with callbacks to C functions.github。我已经安装了ECL (Embeddable Common Lisp)克隆ECL回购与git clone git://git.code.sf.net/p/ecls/ecl ecl然后$ make和# make install,并且安装似乎没问题,

    1热度

    2回答

    测试功能如下: (defun fab (n) (let ((res '(1 1))) (loop for i from 2 to n do (nconc res (list (+ (nth (- i 2) res) (nth (- i 1) res))))) res)) $ ECL ... EECL(嵌入式共Lisp的)12.7.1(GIT:未知

    0热度

    1回答

    我目前正在使用TGUI(基于SFML的GUI库)和ECL(因此我可以使用Lisp作为配置和脚本)。它的工作原理在Linux/gcc的罚款,但在Windows/MinGW的ECL抛出一个错误: Condition of type: FLOATING-POINT-INVALID-OPERATION #<a FLOATING-POINT-INVALID-OPERATION> Available re