common-lisp

1热度

1回答

我使用inferior-shell:run来启动一个长期运行的任务，它可能会经常失败（这是一个构建验证例程）。我的主要问题是，我找不到一种方法来查看已启动活动的“实时”输出。我想要一个活饲料的原因是因为如果发生错误，我看不到输出;我看了一下ON-ERROR:的关键，但是它只是说有一个退出代码是1。这很有道理，因为看起来这个关键是一个采取某种恢复操作的回调。但是，如果我的任务失败了，我还想知道它

0热度

1回答

从文件中读取Common Lisp

我需要从文件中读取，但我在代码中遇到了一些问题。我已经读我的文件是这样的：每通过#\Space或#\Tab分离线 1.0 4.5 4.555 6.43 4.0 5 ..... 6 3 2号（文件中我能有行的一个大数目）。该函数读必须返回一个列表如下： ((1.0 4.5)(4.555 6.43)(4.0 5)...(6 3)) 我使用with-open-file，read-line

0热度

1回答

汇编和宏

这是关于“汇编和宏扩展”主题的引用，来自Common Lisp: A gentle introduction to symbolic computation这本书。 (defmacro bad-announce-macro() (format t "~%Hi mom!")) (defun say-hi() (bad-announce-macro)) > (compile 'say-hi)

1热度

1回答

嵌入式通用Lisp（ECL）：具有扩展功能的加载共享库

是否可以在ECL中加载共享库，导入一些接收并返回cl_object的C函数（就好像它们是用ecl_def_c_function()定义的）并在REPL中调用它们（没有编译* .lisp文件）？例如： // file 'extensions.c' compiled to 'extensions.so' cl_object do_something (cl_object a

0热度

2回答

符号所生产实习生

这里是一个代码段： CL-USER> (setf (symbol-value (intern "foo")) 98) 98 CL-USER> foo ; Evaluation aborted on #<UNBOUND-VARIABLE FOO {1003FC6213}>. CL-USER> |foo| 98 通过intern创建的符号具有在前端和末端我创建的符号的"|"。但在this

0热度

1回答

写在文件的Common Lisp

的问题是：我喜欢这个列表的列表清单： (((1 2) (3 4) (5 6)) ((7 8) (9 0))) 我把它写在一个文件，其中列出的每一个列表编号打印在这样一行： ....... 1 2 3 4 5 6 7 8 9 0 ...... ......意味着我可以有更多的列表清单。我想知道如何在不使用循环并使用with-open-file,format和递归的情况下实现这一点。每个

0热度

1回答

Lisp /参数传递

为了解决我在使用Common Lisp时遇到的一些问题，我浏览了网络并发现： Variable references in lisp 这与我的问题非常相关。阅读这一部分：想想功能！ .................. 因此，要做你想做的事，代码需要a）在范围内或b）可以访问范围内的函数。我想弄清楚它，但事情并不清楚。首先，我不确定a）和b）在最后一句中指的是什么。第二我如何实际上使用提

1热度

1回答

如何在Common Lisp中获取文件大小（以及其他属性）？

我们如何获得文件属性？我主要是想获得大小，但也是它的最后访问时间和其他属性。我只找到(file-length some-file)那得到的流，以便用于这种方式： (with-open-file (file "some file name") (file-length file)) 看起来是做了工作，但：它会流：这是未粘附，其余的api 真的没有更短的功能？（这是最有效的方式呢？

1热度

3回答

使用的软件包阴影符号

比如我有阴影COMMON-LISP这个包定义：听： (defpackage :shadows (:use :common-lisp) (:shadow #:listen) (:export #:listen)) 然后我想从另一个包中使用这个包，说 (defpackage :light (:use :common-lisp :shadows))

0热度

1回答

呼叫下一个最具体的方法是行不通的

考虑类account： (defclass account() ((name :initarg :name :reader name) (balance :initarg :balance :initform 0.00 :accessor balance) (interest-rate :allocation :class :initform 0.06