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) (