以下是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)))
- )
-
| 
