- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时,我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
我要做的是:
(defun test-macrolet ()
(macrolet
((%test
(x)
(message "%%test is called")
`(message "x: %s" ,x))
(%aref (array place)
`(aref ,array ,place)))
;; it doesn't expand to (message "x: %s" 100)
(message "expanded: %s" (macroexpand-all '(%test 100)))
(%test 100)
(%aref (%test 100) 0)))
(iter (for i from 0 to 10)
(when (oddp i) (collect i)))
for
和
collect
的环境中展开,但我不希望全局定义这些宏(显然,不是放入全局名称空间的最佳名称)。
macrolet
定义本地宏,可以展开包含本地定义的宏的窗体,然后返回展开,但是
macroexpand
和
macroexpand-all
的行为好像它们不识别本地定义的宏(并且不展开它们)。
(defun byte-compile-make-lambda-lexenv (form)
"Return a new lexical environment for a lambda expression FORM."
;; See if this is a closure or not
(let ((args (byte-compile-arglist-vars (cadr form))))
(let ((lexenv nil))
;; Fill in the initial stack contents
(let ((stackpos 0))
;; Add entries for each argument
(dolist (arg args)
(push (cons arg stackpos) lexenv)
(setq stackpos (1+ stackpos)))
;; Return the new lexical environment
lexenv))))
(defun test-macrolet ()
(macrolet
((%test
(x)
(message "%%test is called")
`(message "x: %s" ,x))
(%aref (array place)
`(aref ,array ,place)))
(%test 100)
(%aref (%test 100) 0)
(message "expanded: %S"
(macroexpand
'(%test 100)
(cons `(,@(list (intern "%test")) .
(lambda (y)
(message "Called from environment '%s'" y)
`(message "Final expansion '%s'" ,y)))
macroexpand-all-environment)))))
(test-macrolet)
"expanded: (message \"Final expansion '%s'\" 100)"
macroexpand-all-environment
是编译器/解释器存储当前环境的变量environment对象包含
(expander-name . expander-function)
对,其中对的car是在宏扩展的这一步遇到的符号,cdr是处理扩展的函数。
macrolet
的表单,而是在生成代码之前展开所有内容。
(iter (for var in '(1 2 3 4))
(when (oddp var) (collect (next var)))
var
和一个自动生成的变量,结果存储在其中,我们将其命名为
--0
(因为这就是我生成名称的方式)只有在分析
--0
中的第二个表达式之后,我才能发现我需要
iter
变量所以,如果我很早就将
for
扩展成了一些
let
表达式,并且只有在第一次扩展之后,我才发现我需要再添加一个变量-那就太晚了也就是说,上面的扩展应该是这样的:
(let (--0 var (--1 '(1 2 3 4)))
(while --1
(setq var (car --1) --1 (cdr --1))
(if (oddp var) (setq --0 (cons (cadr --l) --0))))
--0)
macrolet
,我就不知道需要收集到哪个变量中,如何生成
next
表达式等等。
(iter (for (key . value) in some-hash-table)
(message "key: %s => value: %s" key value))
(while ...)
循环,因为这样做效率低下,在这里使用
(maphash ...)
更好然而:
(iter (for (key . value) in some-hash-table)
(for (key-2 . value-2) in some-other-hash-table)
(message "key: %s => value: %s" (list key key-2) (list value value-2)))
(maphash ...)
表达式前面的部分所以,如果我在这里生成了一个宏,我会陷入这样一种境地,我必须生成已经生成的代码,也就是说,我已经有了一个陈旧的表达式,我需要回去重新分析(如果我幸运的话,我仍然可以到达那里)。
最佳答案
我还是不知道你想干什么但是,您编写的代码运行在
macroexpand-all
相反,它应该是宏展开的)。
我认为你想要的是:
(defmacro iter (&rest elems)
`(macrolet ((for (..) ...)
(collect (..) ...))
,@elems))
(%test 100)
和
for
宏的各种扩展过程中保持一些本地状态,那么您应该将
collect
全部删除,并使用类似的命令;
(defmacro iter (&rest elems)
(let (..some.local.state..)
(let ((body (macroexpand-all `(progn elems)
`((for . ,(lambda (..) ...))
(loop . ,(lambda (..) ...))
,@macroexpand-all-environment))))
...)))
macrolet
在内部所做的事情。
关于emacs - 在宏环境中强制扩展宏,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13531362/
我是 magento 的新手,目前我在 magento 安装期间遇到“必须加载 PHP 扩展 curl ”错误。你能帮帮我吗? 最佳答案 如果您的服务器上没有安装 curl,您可以键入以下命令之一来安
我在 macOS Mojave/macOS Big Sur/macOS Monterey/macOS Ventura 上使用最新的 php 版本 7.2 并收到类似错误 $composer requ
这个问题已经有答案了: Why generic type is not applicable for argument extends super class for both? (5 个回答) 已关
我正在使用 NightWatch.js 并进行一些 UI 测试,我想用一些额外的 desiredCapabilities 启动默认浏览器实例(即启用扩展并应用一些特定值)。 p> 注意:我可以执行这些
有人知道为什么我在 java 8 中使用此代码时没有服务器扩展名称吗: try { URL url = new URL(urlString); URLC
扩展提供给我的类(class)。为现有的类提供新功能。或扩展现有的mixin s 或虚拟类,任何东西都可以工作。 也许是这样的: class FlatButton {} // maybe no
我有一个关于使用 c 代码和 mod_wsgi 扩展 python 的问题。 我在 apache 服务器中有一个 django 应用程序,它查询 postgresql 数据库以生成报告。在某些报告中,
testcafe支持在Chrome浏览器中加载crx扩展吗? 如果是这样,请告诉我需要尝试什么方法。 我尝试了下面的代码,但没有成功 await t.eval(new Function(fs.read
这个问题已经有答案了: What is a raw type and why shouldn't we use it? (16 个回答) 已关闭 3 年前。 有什么区别: // 1 class A c
我正在编写一个 chrome 扩展来记录单击开始按钮后触发的请求。 这是我的文件:1. list .json { "manifest_version": 2, "name": "recorde
我每天都在使用 vim 和 perforce 现在我的问题是,如果我想查看 perforce 文件修订版,则从命令模式下的 vim :!p4 打印文件#1 vim 试图让我获得缓冲区 #1。有没有办法
大家好,我有一个关于 NUnit 扩展(2.5.10)的问题。 我想做的是向 数据库。为此,我使用 Event 创建了 NUnit 扩展 听众。 我遇到的问题是公共(public)无效 TestFin
我有弹出窗口,而不是模态窗口。 如何通过单击页面的其他部分(不在窗口中)来关闭此窗口? 最佳答案 像这样的东西: function closeWin(e, t) { var el = win.
我通常非常谨慎地使用扩展方法。当我确实觉得有必要编写一个扩展方法时,有时我想重载该方法。我的问题是,您对调用其他扩展方法的扩展方法有何看法?不好的做法?感觉不对,但我无法真正定义原因。 例如,第二个
扩展 Ant Ant带有一组预定义的任务,但是你可以创建自己的任务,如下面的例子所示。 定制Ant 任务应扩展 org.apache.tools.ant.Task 类,同时也应该拓展 execut
我想要一个重定向所有请求的扩展: http://website.com/foo.js 到: http://localhost/myfoo.js 我无法使用主机文件将主机从 website.com 编辑
对于为什么 QChartView 放在 QTabWidget 中时会扩展,我有点迷惑。 这是 QChartView 未展开(因为它被隐藏)时应用程序的图片。 应用程序的黑色部分是 QOpenGLWid
如果在连接条件中使用 OR 运算符,如何优化以下查询以避免 SQL 调优方面的 OR 扩展? SELECT t1.A, t2.B, t1.C, t1.D, t2.E FROM t1 LEFT J
一旦加载插件的问题得到解决(在 .NET 中通过 MEF 的情况下),下一步要解决的是与它们的通信。简单的方法是实现一个接口(interface),使用插件实现,但有时插件只需要扩展应用程序的工作方式
在我的 Symfony2 包中,我需要检查是否定义了一个函数(一个扩展)。更具体地说,如果安装了 KnpMenuBundle,我会在我的包中使用那个,否则我将自己渲染插件。 我试过了,但这当然不起作用
我是一名优秀的程序员,十分优秀!