为什么LISP defun在参数参数之前不需要引用？
LISP（LISt Processing）是一种函数式编程语言，其特点之一是在定义函数时，参数列表不需要显式地引用。这是因为LISP采用了一种特殊的求值策略，即“先求值再应用”的原则。
在LISP中，函数定义使用defun关键字，其语法形式为：
(defun function-name (parameter-list)
body)在这个语法中，parameter-list是函数的参数列表，而body是函数的执行体。LISP在执行函数时，会先对参数列表进行求值，然后将求值结果应用到函数体中。
由于LISP的求值策略，参数在传递给函数之前会被自动求值。这意味着在函数体内部，可以直接使用参数的值，而不需要显式地引用参数。这种设计简化了函数的定义和使用，使得LISP代码更加简洁和易读。
举个例子，假设我们要定义一个加法函数add，它接受两个参数并返回它们的和。在LISP中，可以这样定义：
(defun add (a b)
(+ a b))在这个例子中，参数a和b在函数体内部可以直接使用，无需引用。当我们调用add函数时，LISP会自动对传入的参数进行求值，并将求值结果应用到函数体中。
总结一下，LISP的defun在参数列表之前不需要引用是因为LISP采用了一种特殊的求值策略，参数在传递给函数之前会被自动求值。这种设计简化了函数的定义和使用，使得LISP代码更加简洁和易读。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云函数计算（SCF）：腾讯云的无服务器计算服务，支持使用多种编程语言编写函数。
- 腾讯云云服务器（CVM）：腾讯云提供的弹性云服务器，可满足各种计算需求。
- 腾讯云数据库（TencentDB）：腾讯云的数据库服务，包括关系型数据库和NoSQL数据库等多种类型。
- 腾讯云容器服务（TKE）：腾讯云的容器服务平台，支持容器化应用的部署和管理。
- 腾讯云人工智能（AI）：腾讯云提供的人工智能服务，包括图像识别、语音识别、自然语言处理等功能。
- 腾讯云物联网（IoT）：腾讯云的物联网平台，提供设备接入、数据管理和应用开发等功能。
- 腾讯云移动开发（MPS）：腾讯云的移动应用开发服务，包括移动推送、移动分析等功能。
- 腾讯云对象存储（COS）：腾讯云提供的高可靠、低成本的对象存储服务。
- 腾讯云区块链（BCS）：腾讯云的区块链服务，支持快速搭建和管理区块链网络。
- 腾讯云虚拟专用网络（VPC）：腾讯云提供的隔离的虚拟网络环境，用于构建安全可靠的云上网络架构。
相关·内容
使用这个函数：
(defun sum-greater (x y z)
(> (+ x y) z))
我的理解是，在LISP中，列表中的第一个元素总是表示要在随后的原子/列表上执行的函数。那么，为什么LISP不将(x y z)中的x视为在y和z上执行的函数。显然，这不是可取的行为，但这将是预期的行为。
假设定义defun的函数以某种方式覆盖了列表的标准LISP计算？如果是这样，你能详细说明一下吗？
谢谢
浏览 1提问于2010-11-16得票数 13
回答已采纳
我正在学习Clojure，并试图通过绘制与Python相似的功能来理解reader、quoting、eval和homoiconicity。
在Python中，避免(或推迟)求值的一种方法是将表达式放在引号之间，例如。'3 + 4'。您可以稍后使用eval对其进行评估，例如。产生7的eval('3 + 4')。(如果只需要引用Python值，可以使用repr函数，而不是手动添加引用。)
在Lisp中，你用quote或'来表示引号，用eval来表示求值。产生7的(eval '(+ 3 4))。
因此，在Python语言中，“引用”的内容由一个字符串表
浏览 2提问于2012-12-27得票数 8
回答已采纳
4回答
我正在尝试编写一个Lisp函数order，如果给定的列表按升序或降序排序，它将返回True。
到目前为止，我有3个帮助器函数用于排序，然后一个用于比较它们，最后一个函数确定它们是否已排序。
当我在ordered (L)函数中调用compare时遇到了问题。它似乎每次都在破坏列表。也许我的整个实现都是错误的。感谢您的关注！
(defun ascending (L)
(sort L #'<)
)
(defun descending (L)
(sort L #'>)
)
(defun compare (original sorted)
(cond
浏览 0提问于2011-04-11得票数 1
回答已采纳
在emacs中执行函数调用(myfunction ...)时，如果在编译时不知道函数的定义，字节编译器将发出警告。这对于自上而下的编程风格非常有帮助，因为那时我可以很高兴地编写
(defun foo (bar baz)
(foo-filter-by-functon (lambda (a b) (equal (upcase a) (upcase b)))
(foo-combine-values bar baz)))
当我编译字节编译器时，它告诉我，我还没有定义或拼错这两个foo-函数。
然而，如果lambda表达式变得复杂，一些更多的重组是有意义的。
(defun foo (bar b
浏览 0提问于2013-07-23得票数 0
回答已采纳
我有：
(defun serve (&key (port 80) (handler #'IDENTITY))
(WITH-OPEN-SOCKET (socket :LOCAL-PORT port :LOCAL-HOST "localhost" :CONNECT :PASSIVE :REUSE-ADDRESS t)
(LABELS
((next-connection ()
(with-open-stream (stream (ACCEPT-CONNECTION socket :wait t))
(handl
浏览 2提问于2016-12-20得票数 1
回答已采纳
1回答
对不起，我的英语很差：)我对lisp有个问题。我在这里输入代码 to sbcl
* (define a 3)
; in: DEFINE A
; (DEFINE A 3)
;
; caught WARNING:
; undefined variable: A
;
; caught STYLE-WARNING:
; undefined function: DEFINE
;
; compilation unit finished
; Undefined function:
; DEFINE
; Undefined variable:
; A
; c
浏览 4提问于2011-09-20得票数 2
回答已采纳
在Ubuntu上，如果我运行MIT-Scheme，它将显示一个作为过程的函数：
1 ]=> (define (sq x) (* x x))
;Value: sq
1 ]=> (sq 3)
;Value: 9
1 ]=> sq
;Value 11: #[compound-procedure 11 sq]
伯克利的STk将把sq展示为一种封闭：
STk> (define (sq x) (* x x))
sq
STk> (sq 3)
9
STk> sq
#[closure arglist=(x) b73fab48]
为什么在Lisp ()中，当我做同样的
浏览 8提问于2015-12-13得票数 2
回答已采纳
我希望在函数中创建一个数组，并将其作为参数传递给另一个函数，该函数将从该函数调用。我怎么能这么做？下面是伪代码：
define FuncA (Array Q){
<whatever>
}
define FuncB (n){
make-array myArray = {0,0,....0}; <initialise an array of n elements with zeroes>
FuncA(myArray); <call FuncA from FuncB with myArray as an argument>
}
浏览 1提问于2014-10-29得票数 0
回答已采纳
2回答
我第一次接触扩展(...)语法是在JavaScript中，后来逐渐喜欢上了，但我承认我仍然觉得它很奇怪。在其他语言中有对应的语言吗?它在其他语言中被称为什么？
浏览 22提问于2018-05-05得票数 5
回答已采纳
1回答
上下文：我一直在使用即席和Opusmodus在现场情况下进行计算机辅助创作(在观众面前编程古典音乐)。由于我是一个专业的.Net开发人员，我开始为.Net ( F#和C#组合)编写自己的软件，深受即席和Opusmodus的影响。我现在谈到了实现时态递归的问题，因为它在即席上工作，无法在.Net平台上找到这样的方法。一些方向和灵感将是非常有用的。
定义:时态递归最简单地定义为任何代码块(函数、方法等)计划在未来某个精确的时间点被召回。
方案中的示例:理论上，标准递归函数是一个临时递归函数，它会立即调用自身--即没有任何时间延迟。例如(在计划中)：
;; A standard recursive
浏览 2提问于2017-01-16得票数 2
回答已采纳
1回答
在递归的Best-First搜索中，我如何修改它，以便能够回溯路线？
我是否需要一个数据结构来跟踪哪些节点在最后一次递归中断后被展开？
我已经在LISP和RBFS中实现了启发式和帮助函数(图形解析器，距离计算)。现在，为了打印最优路径，我有一个每个递归步骤的所有返回值(结果)的列表。
参见。
我的LISP代码：
(defun rbfs (state cost f-limit goal)
(let ((node (first state))
(f (second state)))
(if (equal node goal)
(list node cos
浏览 0提问于2013-11-20得票数 3
1回答
为什么字节编译下面的代码会产生警告？
(defmacro foomacro (shiftcode)
`(defun foo (&optional arg)
(interactive ,(concat shiftcode "p"))
(message "arg is %i" arg))
`(defun bar (&optional arg)
(interactive ,(concat shiftcode "Nenter a number: "))
(message "arg i
浏览 0提问于2013-06-13得票数 3
回答已采纳
我用的是SBCL，Emacs和Slime。因此，我可以：
CL-USER> (defvar example #'(lambda (x) (* x 20)))
EXAMPLE
CL-USER> (funcall example 10)
200
好的。它如预期的那样工作。利用图书馆的德克萨多，我也可以这样：
CL-USER> (ql:quickload :dexador)
To load "dexador":
Load 1 ASDF system:
dexador
; Loading "dexador"
.......
(:D
浏览 8提问于2022-04-25得票数 0
回答已采纳
1回答
在lisp中按值传递参数
、、、
我遇到的问题是，我无法回避这样一个事实: lisp通过值传递数组，而不是引用数组。
当我研究这个问题时，对其他人的问题的解答可分为四类。
使用闭包
从功能上思考
使用宏
使用一个全局变量--即，i.e.参数。
1& 2)我看不出前两种解决方案有什么用。也许我不明白闭包是如何工作的，也不明白如何从功能上考虑。
3)我已经创建了宏，而不是函数，但是当函数在自身上递归时，它们就不能工作(除非它们确实工作，而我只是没有正确地编写它们)。
4)我不喜欢全球性的概念。
在我写的一些函数中，我遇到了这个问题。我最成功的方法是在函数返回时返回数组。但是，当函数在数组的一个sub
浏览 2提问于2017-02-24得票数 1
我对Emacs的功能很陌生。今天是我第一次尝试创建一个函数。
我知道计数匹配会告诉我一个正则表达式在缓冲区的其余部分中出现了多少次，但大多数情况下，我需要从缓冲区的开头开始计数。所以我试了一下：
(defun count-matches-for-whole-buffer (text-to-count)
"Opens the ~/.emacs.d/init.el file"
(interactive "sText-to-count:")
(beginning-of-buffer)
(count-matches text-to-count))
我将
浏览 3提问于2016-12-20得票数 0
回答已采纳
2回答
在包中覆盖"defun“
、、、、
我想从我正在创建的包中定义一个名为"defun“的宏，我想导出它以供在某些地方使用。有一个名为parenscript的库在它的包里这样做，
(export #:defun)
当我试图在我自己的包中这样做时，我会得到这个SBCL错误。
Lock on package COMMON-LISP violated when defining DEFUN as a macro while in package COMMON-LISP-USER.
这是如何在文本库中完成的？我知道你可以打表格；
(ps (defun function-name (args) (body)))
我想做同样的事，但不知
浏览 2提问于2019-06-02得票数 4
回答已采纳
(删除gml2dwg ( odabir ) ;；随机代码；这是我应该打开filepath "odabir“( (open odabir”r“)的部分)；代码继续) (defun :gml2dwg (/ odabir) (setq (getstring " odabir :")) (gml2dwg odabir) (princ) (defun :gmlimport (/ allfiles fpath) ) (setq (vl-目录- file“C：\Users\Admin\Documents\gml2 2 "*.gml")) (前端文件所有文件(setq
浏览 3提问于2017-12-30得票数 0
1回答
因此，我尝试了以下几种方法
(defun toggle-input-chinese ()
(if (equal current-input-method 'chinese-py)
(set-input-method chinese-sisheng)
(set-input-method chinese-py)))
现在，基本上，我想写中文或拼音。我发现在非标准输入之间使用切换不是一种简单的方法。因此，我决定编写这个函数并绑定到一个键。
好的。我的问题是:它会引发错误(void-variable chinese-py)。我不知道如何将当前的方法等同于列出的方法
浏览 0提问于2021-03-17得票数 1
回答已采纳
1回答
每次我开始工作时，我启动Emacs，M-x cd到一个工作目录，M-x slime启动Slime，然后在slime中运行(ql:quickload ' myproject )，(或者，load-system myproject)，然后，+p myproject切换repl中的当前包。最后，我在repl中运行call a ( start - server )来启动我的web服务器。
我希望这一切都只是一次Emacs击键或命令。很尴尬，我不得不问这个问题，因为它都是lisp，但我不太明白Emacs和Slime之间的相互作用。然而，作为一名程序员，我觉得我应该自动化所有乏味的过程-我预计会有
浏览 5提问于2018-05-03得票数 6
我正在为一门课学习LISP。我在Ubuntu中有一个基本的工作流设置，在VIM中有我的LISP文件，在我编写代码时用来测试代码的终端中有一个交互式的LISP提示符。有没有办法让LISP在我每次输入命令时都加载一个特定的文件？必须不断地输入(load 'initial-code.cl) (是的，即使我正在使用终端的历史记录)，这让人有点累。
浏览 0提问于2011-09-15得票数 2
回答已采纳
定义像(defun hi () "Hi!")这样的函数并能够使用(hi)、(HI)或(Hi)调用它，或者访问(setf a-number 5)并能够使用a-number、A-NUMBER或A-Number访问该数字是否有什么好处
如果有这样的优势，为什么大多数其他语言都区分大小写？
浏览 4提问于2011-09-11得票数 22
回答已采纳
1回答
我在“Lisp的国度”这本书中读到，作者提到了syntax expression。这是否意味着能够将语法表达为一种数据形式？这是否与S-expression (符号表达式)相同？
浏览 1提问于2012-03-04得票数 0
回答已采纳
2回答
我对lisp非常陌生，以前有过函数式编程的经验(Haskell，SML)。为什么这段代码返回14，而不是10 (即1 + 2y + 3 + 1)？
(defvar x 1)
(defun g (z)
(+ x z))
(defun f (y)
(+ (g 1)
(let ((x (+ y 3)))
(g (+ y x)))))
(f 2)
浏览 2提问于2015-05-14得票数 5
回答已采纳
(defun lat
(lambda (l)
(cond ((null l) t)
((atom (car l))(lat (cdr l))
(t nil))))
该函数以列表作为参数。它是一个递归函数，用于检查列表中的每个元素。不管它是不是原子。如果每个元素都是一个原子，则返回true或false。
以下是编译LAT时显示的错误：
Bad lambda list : (LAMBDA (L)
(COND ((NULL L) T) ((ATOM # #)) (T NIL)))
[Condition
浏览 9提问于2017-12-22得票数 1
在通用Lisp中，通常的and和or运算符会懒惰地计算它们的操作数，例如，当遇到第一个nil时，and就会停止。我正在搜索一个不以这种方式工作的操作符，但是在返回结果之前总是对所有操作数进行评估。有这样的东西吗？
例如，在C语言中，您有惰性的&&，也有按位的&，它可以用作非惰性的替代。我知道logand和bit-and，但它们不适用于布尔操作数。
例如：
(and NIL (not-defined))
不会抛出错误，但我希望它能抛出一个错误。
浏览 0提问于2019-08-13得票数 5
回答已采纳
原谅我的滔滔不绝。我不太清楚该怎么描述我的处境。
考虑到以下情况..。
(defun three () 3)
(defun four () 4)
(defun makeplusser (x)
(list 'defun (make-symbol (format "%s+" x)) '(y)
(list '+ (list x) 'y)))
在我的scratch缓冲区中，我键入以下命令，然后按C-j ( following末位性行为).
(makeplusser 'three)
这让我觉得..。
(defun three+ (y)
浏览 0提问于2012-03-21得票数 5
回答已采纳
在研究Emacs Lisp的符号单元时，我发现在一个例子中，
(defun a (&rest x)
x)
我可以调用(symbol-function 'a)，它返回(lambda (&rest x) x)。如果我愿意的话，我可以用它
> ((lambda (&rest x) x) 1 2 3 4 5)
(1 2 3 4 5)
它具有与上面的原始函数相同的功能。现在，这让我想起了Scheme，其中lambda表达式是函数的主体，并被分配给一个变量名，并带有Scheme的通用define。例如
(define atom?
(lambda (x)
浏览 10提问于2020-02-13得票数 2
回答已采纳
3回答
我有一个关于lisp中列表评估的问题。
为什么不对(a)和(+ a 1)求值，
(defun test (a) (+ a 1))
就像这里不计算(print 4)一样
(if (< 1 2) (print 3) (print 4))
但这里计算的是(print (+ 2 3))
(test (print (+ 2 3)))
这和它们是标准库函数有关系吗？我可以在我的lisp程序中定义这样的函数吗？
浏览 1提问于2012-03-24得票数 4
回答已采纳
事情是这样的:我不“得到”setf扩展器，我想了解它们是如何工作的。
我需要了解它们是如何工作的，因为我有一个问题，它似乎是一个典型的例子，为什么你应该学习setf-扩展器，问题如下：
(defparameter some-array (make-array 10))
(defun arr-index (index-string)
(aref some-array (parse-integer index-string))
(setf (arr-index "2") 7) ;; Error: undefined function (setf arr-index)
如何为
浏览 5提问于2012-07-13得票数 17
回答已采纳
1回答
defmacro在上有文档记录，但是文档并不完全清楚事情发生的确切时间。通过对Clisp的实验，我发现如下(假设在顶层定义了所有宏和函数)：
直接的顶层代码只能调用前面定义的宏和函数。
宏或函数中的代码，或者由宏生成的代码，可以调用它喜欢的任何函数，包括稍后定义的函数(因为需要支持相互递归)。
宏中的代码只能调用比第一个宏的调用站点更早定义的宏。
由宏生成的代码可以调用稍后定义的宏。
是Clisp只是遵循规范，还是这方面的实现之间有任何不同？
具体的规则集及其背后的原理是否在任何地方都有文档记录？
浏览 0提问于2016-12-05得票数 0
回答已采纳
假设您有这样一个C代码：
void f1() {
int var1;
var1 = 1; // local use of var1
}
void f2() {
int var1;
var1 = 2; // local use of var1
}
void f3() {
int var1;
var 1 = 3; // local use of var1
}
如何使用Emacs和Global (gtags.el)来检查局部变量，同时指出它的本地用法？
我尝试过gtags-find-tag (以"var1“作为参数)，它没有找到任何东
浏览 3提问于2012-09-05得票数 2
函数的参数，我指的是x和y，如
(defun my-function (x y ) body)
有时也称为局部变量、局部参数、形式参数甚至参数。在Lisp中，所有这些术语都是正确的吗？另一个术语更合适吗？
此外，一个函数的参数被绑定到正在调用的函数的参数的值。这个术语“必然”正确吗？或者我们必须说，它们将“有价值”的参数被调用的函数？
人们是说全球符号是“绑定到一个值”还是“有价值”？我在一本书中读到，这是造成巨大混乱的一个原因。在这本书中，有人建议，“绑定”一词不应用于全球符号，而应仅用于函数的参数。但是另一方面，在功能上的构建就像在
(boundp 'x))
在Lisp中也用于
浏览 1提问于2016-07-05得票数 3
3回答
我已经在google和其他地方搜索了一段时间，但我找不到如何生成或创建点线对。我这样问是因为，我需要翻转一个如下所示的列表：
(X Y Z)
添加到以下格式的列表中：
((X . 1) (Y . 2) (Z . 3))
其中数字表示索引。我有一个函数可以将列表转换为
(X 1 Y 2 Z 3)
下面是该函数：
(defun listFormat (l)
(defun place-index (idx l)
(if (null l)
nil
(append (list (first l)) (list idx)
浏览 3提问于2011-01-31得票数 1
回答已采纳
7回答
另一个新手(普通) LISP问题：
基本上，在大多数编程语言中，函数接收对变量的引用，而不仅仅是值，也就是说，通过引用而不是通过值传递。比方说，为了简单起见，我想编写一个LISP函数，它接收一个变量并将变量的值增加一个：
(defun increase-by-one (var)
(setf var (+ var 1)))
显然，问题是这个函数只增加堆栈上变量副本的值，而不是实际的原始变量。我也试图通过使用宏来达到效果，但没有成功，尽管我有这样的感觉:使用宏是正确的方法。
我一直在用LISP解决这个问题，我确信肯定有办法解决这个问题，或者我还没有想过用一个完全不同的方法来解决这个问题呢？这样
浏览 11提问于2009-08-08得票数 28
回答已采纳
我有许多方便的函数，可以在当前单词或区域上操作，由于懒惰等原因，我已经从模板中构建了它们…
例如
(defun lower-camelcase-at-point-or-region ()
"lowerCamelCaseTheCurrent dashed or snake_case word or any words in text selection."
(interactive)
(let (pos1 pos2 meat)
(if (and transient-mark-mode mark-active)
(setq pos1 (regio
浏览 0提问于2013-01-30得票数 7
回答已采纳
在普通lisp中使用宏和函数返回lambda有什么区别？
(defun f ()
(lambda () (format t "hello world")))
(defmacro m ()
(lambda () (format t "hello world")))
; is (f) equal to (m) ?
它们返回的是完全相同的东西吗？
如果返回的lambda表单被引用了怎么办？('(lambda ...))
我之所以这样问，是因为在“实用Common Lisp”的第3章中，有一个宏(where)返回了一个带引号的λ，我不明白为什么它不能
浏览 0提问于2020-02-17得票数 0
2回答
在学习Lisp时，我已经看到，如果函数有两个参数，其中一个是单个元素或子集(指针)，另一个是列表(大海捞针)，那么元素或子集总是第一位的。
示例：
(member 3 '(3 1 4 1 5))
(assoc 'jane '((jane doe)
(john doe)))
(subsetp '(a e) '(a e i o u))
在我看来，在Lisp中似乎有一条规则，函数应该遵循这样的指导:第一部分，第二部分。
这个发现实际上是基于Lisp中的指导方针，还是偶然的呢？
浏览 4提问于2015-04-07得票数 3
回答已采纳
1回答
我在CLISP中定义了一个简单的power函数：
(defun power(B E)
(if (= E 1)
B
(* B ( power (B (- E 1))))))
但是当我试图像这样调用这个函数时：
(power 2 6)
我得到以下错误：
*- EVAL:未定义函数B
我在上尝试了以下代码：
(defun power(B E)
(if (= E 1)
B
(* B ( power (B (- E 1))))))
(setq base (read))
(setq exponent (read))
(print (power
浏览 2提问于2016-04-27得票数 1
回答已采纳
2回答
正如标题所说:为什么and是宏而不是函数？我试图申请并列出一个错误，经过一些搜索后，我发现我应该做一些类似(every #'identify list)的事情。
但是现在我想知道为什么and是一个宏，我找不到任何好的解释。
浏览 4提问于2015-12-06得票数 2
回答已采纳
2回答
我对Common相当陌生，来自Clojure，并且习惯于这样的东西：
(ns x.core
(:require [x.util :as u]))
当我启动一个REPL并对该文件进行评估时，x.util将自动编译并在x.core中提供给我。
在普通的Lisp中，我试图做一些类似的事情。在main.lisp中
(defpackage x.main
(:use :x.util))
(in-package :x.main)
(comment
(load "util.lisp"))
在util.lisp中
(defpackage x.util
(:use :common
浏览 0提问于2019-08-12得票数 2
回答已采纳
1回答
这是我在Scheme中的第二个问题。假设我有两个列表
'("a" "b" "c")
'("e" "f" "g")
我想以这种方式将它们结合起来：
'(("a" "e") ("b" "f") ("c" "g"))
这个是可能的吗？
浏览 3提问于2014-04-21得票数 0
我试图编写一个函数，它只接受一个列表作为参数，并计数符号a在列表中出现的次数，而不计算列表中的子列表中的任何a。
我对Lisp非常陌生，所以请尽可能使用基本代码，这样我就可以理解它在做什么，即使它效率很低。
(defun times (l)
(setf x 'a)
(cond
((null l) nil)
((equal x (car l)) (+ 1 (times x (cdr L))))
(t (times x(cdr l)))))
因此，(times '(a b (a) c))应该返回1。然而，我得到的错误是
浏览 0提问于2018-02-16得票数 3
回答已采纳
1回答
Elisp函数返回值
、、、
我和Elisp有一个(可能)愚蠢的问题。我希望函数根据when条件返回t或nil。代码如下：
(defun tmr-active-timer-p
"Returns t or nil depending of if there's an active timer"
(progn
(if (not (file-exists-p tmr-file))
nil
; (... more code)
)
)
)
但我有一个错误。我不确定如何让函数返回值...我已经读取了一个返回最后一个表达式结果值的函数，但在本例中，我
浏览 0提问于2013-05-15得票数 8
回答已采纳
1回答
在sbcl中，我知道我可以在使用&可选的和&key的defun时屏蔽预期的消息，但这在Def宏中似乎不起作用。(我知道，我应该重新设计/重写，但这是遗留代码。)
当我编译这个文件时..。
(declaim (sb-ext:muffle-conditions style-warning))
(defun wilma (&optional wilma1 &key wilma2 wilma3)
(declare (ignore wilma1 wilma2 wilma3)))
(defmacro betty (&optional betty1 &
浏览 2提问于2017-10-09得票数 2
回答已采纳
2回答
我有一个文件，test.lisp，它实际上是这样的：
(load (compile-file "init.lisp"))
(my-funcA 2 3)
(my-funcB 4 5)
; bunch more lines like the last ones
在init.lisp文件中，我希望能够读取行(my-Funca2 3)、(my-funcB4 5)等，并对其进行操作。这个是可能的吗？
我试着使用：
(let ((input (read)))
; do stuff here
)
在init.lisp文件中，但这只是等待来自键盘的输入，而不是从正在加载的文件中读取。任何帮助都
浏览 1提问于2015-06-12得票数 0
2回答
(defun add-1-all (list)
(mapcar #'1+ '(list))
)
我试图传递一个整数列表，并将1添加到列表中的每个整数中，但我一直得到列表的定义，但从未使用过。
; in: DEFUN ADD-1-ALL
; (DEFUN ADD-1-ALL (LIST) (MAPCAR #'1+ '(LIST)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA ADD-1-
浏览 8提问于2022-09-12得票数 0
2回答
我已经读过，Common中的每个表单在评估时都会返回一些内容。但是，最近我一直在使用ASDF，并找到了一个不返回任何内容的函数：
CL-USER> (asdf:clear-output-translations)
; No value
这怎么可能，为什么它不返回类似于NIL的东西
浏览 4提问于2014-08-15得票数 5
回答已采纳
3回答
我最近开始学lisp。我正在研究一书中的例子，我觉得自己对每件事都有很好的理解，直到我在第7章中提到了下面的例子：
(defun quote-it (x)
(list 'quote x))
现在，我知道list将创建一个带有参数的列表，就像在(list 1 2 3 4)中计算到list (1 2 3 4)一样。
我也知道quote允许我引用一个论点，就像我可以引用'一样。所以'east和(quote east)是一样的
有趣的是，上面的函数不返回列表，而只是引用我传递给它的任何内容。所以，如果我称之为
(quote-it east)它只会返回'east而不是
浏览 5提问于2013-11-18得票数 3
回答已采纳
有人知道我为什么会犯这个错误吗？
EVAL/APPLY:给SUMTAIL的参数太少(1而不是至少2)。
(defun sum (n)
(sumTail 0 n)
)
(defun sumTail(r n)
(if (null n)
r
(sumTail (+ (first n) r) (rest n) )
)
)
(sumtail '(59 21 6 5 30 98 17 22 1 0))
浏览 3提问于2022-10-18得票数 0
2回答
如何将符号对齐？以下面的默认'emacs-lisp-mode缩进为例
'(:a 1
:b 2
:c 3)
(defhydra h (:color amaranth
:pre some-pre
:post some-post)
nil)
如何实现以下缩进？
(defhydra h (:color amaranth
:pre some-pre
:post some-post)
nil)
另外，对于lisp是否有类似的函数，
浏览 1提问于2018-03-11得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
