common-lisp

    2热度

    1回答

    在sbcl中,我知道在defun中同时使用&可选键和&键时,我可以消除预期的消息,但这似乎在defmacro中不起作用。 (我应该重新设计/重写,我知道,但是这是遗留代码) 当我编译这个文件...... (declaim (sb-ext:muffle-conditions style-warning)) (defun wilma (&optional wilma1 &key wilma2 wi

    -1热度

    2回答

    如果我有一个列表如下: (((X))) 我想只是X,并没有得到括号 在LISP,如果我这样做CAR,我仍然会得到括号。 有什么功能可以为我做这个吗?

    1热度

    1回答

    这只是一个快速问题,但是如何在Git Bash中运行“clisp”命令。它适用于Windows Powershell,但不适用于Git Bash。 (以下简称“CLISP”命令是用于Common Lisp的。) 这是所有我写这两个控制台: 是有办法解决这一问题? P.S.我知道这似乎是一个愚蠢的问题,但我更喜欢Git Bash来Powershell(因为我使用git很多),所以我想让它在Git B

    -1热度

    1回答

    欲限定在共同口齿不清一个功能,它使用不知道口齿不清一些字/符号,对于具有这样的功能/宏例如: (my-func-or-macro lst key-word idx) 其返回在lst项目高达的idx如果key-word是到从idx到最后,如果key-word是从。 所以实际上它应该像: (my-func-or-macro '(1 2 3 4 5 6) from 3) => '(4 5 6)

    1热度

    1回答

    我来自Python世界的Lisp,它本质上运行于virtualenv和pip,作为创建容器和管理依赖关系的方式。 目前,我正在更详细地学习Common Lisp,并想知道它的社区理念是如何管理依赖和包。 举例来说,如果我跑: (ql:quickload '(cl-who hunchentoot parenscript elephant fiveam css-lite cl-json)) 这是我的理

    0热度

    1回答

    我有这样的功能: (defun test (variable) (cond ((null variable) nil) ((< (- 12 (other-function variable) 3) 0) 1) (t (- 12 (other-function variable) 3)) ) ) 的想法是,如果12的与3的函数的值的减法运算的结果小于0

    1热度

    1回答

    我学习口齿不清,我不明白这个问题 修改,使其返回根的实部和虚部返回一元二次方程的根的功能,在 的情况下,它们很复杂。假设系数是真实的。 ;;;gnu clisp 2.49 (defun root(a b c) (let ((root1 (/ (+ (* -1 b) (sqrt (- (expt b 2) (* 4 a c)))) (* 2 a))) (root2 (/ (

    3热度

    1回答

    我认为Common Lisp中利弊细胞的大多数实现通常/总是堆上分配(见Why is consing in Lisp slow?) Common Lisp中确实提供用于从函数返回多个值的设施(返回时使用values和在呼叫地点的multiple-value-bind)。我在这里猜测了一下,但我认为这种结构的动机有两方面:1)在不关心丢弃值的典型情况下,使truncate等功能更易于使用; 2)使之

    0热度

    2回答

    这个问题是关于sbcl - 或者我原本以为。问题:什么时候角色不是角色?请看下面的代码: (defconstant +asc-lf+ #\Newline) (defconstant +asc-space+ #\Space) (prin1 (type-of #\Newline )) (terpri) (prin1 (type-of #\Space )) (terpri) (prin1 (ty

    0热度

    1回答

    假设我想从状态列表中删除一个步骤(元素)。 (defparameter *states* '((:top nil nil) (:subjects nil nil))) ;predicate (defun equal-state? (step state) (equal (car step) state)) 如果我使用(delete-if #'equal-state? *state