common-lisp

2热度

2回答

我有一个类消息的实例，我将称之为“味精”。我定义了一个类“my-message”，并希望实例“msg”现在成为该类。这听起来像它应该是相对简单的，但我不知道该怎么做。改变班给了我一个我不明白的错误。 (defclass my-message (message) ((account-name :accessor account-name :initform nil :initarg :a

2热度

1回答

古董店Iter项目未知的关键字矩阵元素

我使用Antik，并一致得到一个错误，“未知的关键词矩阵元素”： CL-USER> (defparameter m1 #m(1 2 3 grid:^ 0 6 8)) M1 CL-USER> m1 #2A((1.0 2.0 3.0) (0.0 6.0 8.0)) CL-USER> (iter:iter (iter:for e :matrix-element m1) (princ e) (pr

0热度

2回答

变量在if块中不可见

(let ((x 21) (y 7)) (princ (/ x y)) (let z (/ x y) (if (eq z 3)(princ "Working")))) 我对这个程序的打算是当z等于3时打印出“Working”，其中我假设z在if中可见（来自let z）in if块;然而，情况并非如此，错误读为： -IF：变量Z没有值。有没有办法让变量z

2热度

1回答

创建大量的gensyms是否合理？

我正在考虑使用大量的gensyms来区分我正在构建的系统中的对象（如erlang中的ref）。我是否应该在创建大量gensyms后遇到系统限制？仅供参考，我使用SBCL。

0热度

2回答

呈现列表

我有名字的列表和不同的语言 (setq l '((david spanish german) (amanda italian spanish english) (tom german french))) 我希望做下一个功能：为每一种语言，我需要用每一种语言relationed每一个名字。例如，如果我打电话与列表L的功能： (lenguages L) 我想说明这

3热度

1回答

Common Lisp中可比较的（Rankable/Sortable）枚举

我想知道是否有任何技巧或库在Common Lisp中获得可排序的枚举。一般我这样定义 (deftype weekdays() '(member :sunday :monday :tuesday :wednesday :thursday :friday :saturday)) 一组枚举的肯定我可以比较两个变量为含有相同平日，例如如果两者都包含：星期三。但我想比较两个不同的工作日，如

1热度

1回答

寻找一种通过2D Lisp阵列映射功能的方法

所有的地图功能，如mapcar,mapcan, mapc等都需要列表作为它们的输入。我正在处理二维数组，并且在给定通常较大的尺寸（有时为50,000 x 1,000）的情况下，宁愿不要混淆我的数组的排名。我需要一种方法来将像(log n)这样的函数应用到二维数组中的每个元素，并生成一个结果二维数组。任何帮助或方向是非常感谢。在AllegroCL（Common Lisp的）工作

0热度

1回答

动态定义setf扩展器

我试图定义一个宏，该结构将在结构中使用结构的名称，键和哈希表的名称，并定义函数以访问和修改键下的值哈希值。 (defmacro make-hash-accessor (struct-name key hash) (let ((key-accessor (gensym)) (hash-accessor (gensym))) `(let ((,key-accessor

1热度

1回答

无法与CL21一起平行安装（？）CL21.CORE.FUNCTION失败

我有一个奇怪的错误组合。我正在使用CL21，我在我的包中，我想安装lparallel。不可能的： (ql:quickload :lparallel) To load "lparallel": Load 1 ASDF system: lparallel ; Loading "lparallel" ; ; caught ERROR: ; DYNAMIC-EXTENT o

3热度

2回答

Lisp的排序功能键

我想要那种看起来像这样的列表： (defvar my-list '((:x 1 :y something) (:x 5 :y something) (:x 19 :y something))) 我试图通过:x值来排序。我是这样做的 (sort my-list #'> :key #'second) ，但我非常喜欢使用的，而不是second的getf功能，但我无法弄清楚如何通过:x作为参数。