clisp

    1熱度

    1回答

    當從CLISP移植遺留代碼的SbCl,我遇到語法這引起由該代碼而沒有明顯的錯誤運行在CLISP所示的問題: (defun foo ((alpha integer)) (princ (type-of alpha)) (princ " ") (prin1 alpha) (terpri)) (foo 3) (foo 3.5) (foo (list "beta

    1熱度

    2回答

    我想爲常用的lisp(clisp準確地)設置別名,用於大量使用的命令,比如「defun」和「lambda」等,是否可以這樣做? 這實際上是這個question樣的副本,但我不能評論和解決方案並不在這兩個SBCL爲defun函數或lambda工作,CLISP

    0熱度

    2回答

    (defun index-iteration (n) (let ((x 0)) (loop for j from 0 to n while (< x n) do (setf x (max-index-for-iteration j))))) 我有以下lisp代碼,在循環結束時我想返回值j。我已經調查: collect但返回與我想要的值(最後j末) finally

    1熱度

    1回答

    該函數導致堆棧溢出超過大約2000步,有什麼方法可以輕鬆優化它以使用更少的內存嗎? (defun randomwalk (steps state) (displaystate state) (if (equal steps 0) nil (if (solved? state) t (let ((nrmlstate (normalize state)))

    0熱度

    2回答

    這個問題是關於sbcl - 或者我原本以爲。問題:什麼時候角色不是角色?請看下面的代碼: (defconstant +asc-lf+ #\Newline) (defconstant +asc-space+ #\Space) (prin1 (type-of #\Newline )) (terpri) (prin1 (type-of #\Space )) (terpri) (prin1 (ty

    1熱度

    1回答

    我有一些一段代碼: ; Palatal Pulmonic Consonants (loop for e in (list '(:nasal "ɲ") '(:plosive "c") '(:plosive "ɟ") '(:fricative "ç") '(:fricative "ʝ") '(:approximant "j")

    0熱度

    2回答

    我想定義一個與以下相反的函數to-string。 > (read-from-string "(foo a b)") (FOO A B) ;

    1熱度

    1回答

    我一直在用allegro common lisp運行一個lisp程序幾天。我現在需要使用CLISP但是當我嘗試編譯它,我得到: SYSTEM::%FIND-PACKAGE: There is no package with name "COMMON-GRAPHICS-USER" 我非常新的口齒不清,所以我一直在尋找一個解決方案,但我沒有發現。 clisp在哪裏找這個包? 我該如何添

    1熱度

    1回答

    我目前通過的Lisp的例子土地工作,並已經運行到一個編譯例外:包EXT不會從該行存在 我懷疑: (ext:shell (concatenate 'string "dot -Tpng -O" fname)) 我裏面運行我的REPL emacs與粘液,我不確定如何補救這一點後,一些谷歌搜索錯誤。 任何幫助將不勝感激。

    0熱度

    1回答

    我的名單「直」的列表: (setq straight '( ("Arad" 366) ("Bucharest" 0) ("Craiova" 160) ("Dobreta" 242) ("Eforie" 161) ("Fagaras" 176) ("Giurgiu" 77) (