mhupp 发表于 2022-7-25 12:16:28

我用这个做我的选择集。仅返回实体名称。
(foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))

kirby 发表于 2022-7-25 14:51:37

以下是Gilles Chanteau的相关功能…
（以及许多论坛“重量级人物”的相关讨论链接）。
(defun dottedPairp (p)
; Test for dotted pair, by Gile (Gilles Chanteau)
; http://www.theswamp.org/index.php?topic=42940.msg482148#msg482148
; Returns T is dotted pair and nil if not
      (and (listp p) (cdr p) (atom (cdr p)))
)

kirby 发表于 2022-7-30 11:43:49

之前(代码7]
之前
页: 1 [2]
查看完整版本: FYI-listp函数