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