之前写过 SRFI 1的函数，这回来写 SRFI 13的 函数，这些函数在Racket中都是内置的， 可能名字不一样，功能基本上是相同的。

string-every

string-every 接受 2 个参数，1个函数符号f，一个字符串a。它的功能和 vl-every 是类似的， 不同之处在于，一个接受list做参数，一个接受字符串做参数。

AutoCAD的第1版，发布于1982年12月，到现在已经40多年的历史了。几年之后，1986年1月， 带有全功能的AutoLISP的AutoCAD 2.18版发布了。算起来，AutoLISP面世也快40年了。

SRFI 1 是 scheme 的标准的一种补充，包括 Racket 在内的 scheme 实现（变种、方言），通常都会支持大部分的 SRFI。 SRFI 1 是关于 list 的，它提供几十个常用的 list 函数，对 R4RS/R5RS两版 scheme 标准来说非常有用， 因为这两版标准删除了很多常用的 list 函数。

用 autolisp 实现 racket 函数这个事情，之前写过一篇 blog， 记录的函数不是很多，远远不及SRFI 1的函数数量。这回再补充一些，不一定能写多少个，反正补一点算一点。

GB50330有一幅配图，说的是在边坡坡面倾斜的情况下如何计算边坡的土压力、稳定系数， 这个图就是“图6.2.10”，就是下面这个样子的。

这个图是打算用来说明“边坡的坡面倾斜”是怎么一回事的，这本规范是边坡设计规范，很显然， 这个图的核心就是“边坡”、“坡面倾斜的边坡”。