MoganLab · da-liii · Apr 3, 2026 · Apr 3, 2026 · greptile-apps · Apr 3, 2026
diff --git a/devel/216_52.md b/devel/216_52.md
@@ -0,0 +1,3 @@
+# [216_52] 迁移 list的测试用例到scheme/base
+
+## 2026/04/03  迁移 list的测试用例到scheme/base
diff --git a/tests/scheme/base-test.scm b/tests/scheme/base-test.scm
@@ -90,3 +90,44 @@
 ;;   identity             - 原样返回输入值
 ;;   any?                 - 判断是否存在真值
 ;;   typed-lambda         - 带类型标注的 lambda 语法
+
+
+;; 六、序对操作
+;;   pair?        - 判断是否为序对
+;;   car          - 获取序对的 car 部分
+;;   cdr          - 获取序对的 cdr 部分
+;;   set-car!     - 修改序对的 car 部分
+;;   set-cdr!     - 修改序对的 cdr 部分
+;;   caar         - 获取 car 的 car
+;;   cadr         - 获取 car 的 cdr
+;;   cddr         - 获取 cdr 的 cdr
+
+;; 七、列表判断
+;;   null?        - 判断是否为空列表
+;;   list?        - 判断是否为列表
+
+;; 八、列表构造
+;;   make-list    - 创建指定长度的列表
+;;   list         - 创建列表
+;;   cons         - 构造序对
+
+;; 九、列表查询
+;;   length       - 获取列表长度
+;;   append       - 连接多个列表
+;;   reverse      - 反转列表
+
+;; 十、列表选择
+;;   list-tail    - 获取列表尾部
+;;   list-ref     - 获取指定索引的元素
+;;   list-set!    - 修改指定索引的元素
+;;   memq         - 按 eq? 查找元素
+;;   memv         - 按 eqv? 查找元素
+;;   member       - 按 equal? 查找元素
+
+;; 十一、关联列表
+;;   assq         - 按 eq? 在关联列表中查找
+;;   assv         - 按 eqv? 在关联列表中查找
+;;   assoc        - 按 equal? 在关联列表中查找
+
+;; 十二、列表复制
+;;   list-copy    - 复制列表
-;;   list-copy    - 复制列表
+;;   list-copy    - 复制列表
-;;   list-copy    - 复制列表
+;;   list-copy    - 复制列表
diff --git a/tests/scheme/list/append-test.scm → tests/scheme/base/append-test.scm b/tests/scheme/list/append-test.scm → tests/scheme/base/append-test.scm
diff --git a/tests/scheme/list/assoc-test.scm → tests/scheme/base/assoc-test.scm b/tests/scheme/list/assoc-test.scm → tests/scheme/base/assoc-test.scm
diff --git a/tests/scheme/list/assq-test.scm → tests/scheme/base/assq-test.scm b/tests/scheme/list/assq-test.scm → tests/scheme/base/assq-test.scm
diff --git a/tests/scheme/list/assv-test.scm → tests/scheme/base/assv-test.scm b/tests/scheme/list/assv-test.scm → tests/scheme/base/assv-test.scm
diff --git a/tests/scheme/list/caar-test.scm → tests/scheme/base/caar-test.scm b/tests/scheme/list/caar-test.scm → tests/scheme/base/caar-test.scm
diff --git a/tests/scheme/list/cadr-test.scm → tests/scheme/base/cadr-test.scm b/tests/scheme/list/cadr-test.scm → tests/scheme/base/cadr-test.scm
diff --git a/tests/scheme/list/car-test.scm → tests/scheme/base/car-test.scm b/tests/scheme/list/car-test.scm → tests/scheme/base/car-test.scm
diff --git a/tests/scheme/list/cddr-test.scm → tests/scheme/base/cddr-test.scm b/tests/scheme/list/cddr-test.scm → tests/scheme/base/cddr-test.scm
diff --git a/tests/scheme/list/cdr-test.scm → tests/scheme/base/cdr-test.scm b/tests/scheme/list/cdr-test.scm → tests/scheme/base/cdr-test.scm
diff --git a/tests/scheme/list/length-test.scm → tests/scheme/base/length-test.scm b/tests/scheme/list/length-test.scm → tests/scheme/base/length-test.scm
diff --git a/tests/scheme/list/list-copy-test.scm → tests/scheme/base/list-copy-test.scm b/tests/scheme/list/list-copy-test.scm → tests/scheme/base/list-copy-test.scm
diff --git a/tests/scheme/list/list-p-test.scm → tests/scheme/base/list-p-test.scm b/tests/scheme/list/list-p-test.scm → tests/scheme/base/list-p-test.scm
diff --git a/tests/scheme/list/list-ref-test.scm → tests/scheme/base/list-ref-test.scm b/tests/scheme/list/list-ref-test.scm → tests/scheme/base/list-ref-test.scm
diff --git a/tests/scheme/list/list-set-bang-test.scm → tests/scheme/base/list-set-bang-test.scm b/tests/scheme/list/list-set-bang-test.scm → tests/scheme/base/list-set-bang-test.scm
diff --git a/tests/scheme/list/list-tail-test.scm → tests/scheme/base/list-tail-test.scm b/tests/scheme/list/list-tail-test.scm → tests/scheme/base/list-tail-test.scm
diff --git a/tests/scheme/list/list-test.scm → tests/scheme/base/list-test.scm b/tests/scheme/list/list-test.scm → tests/scheme/base/list-test.scm
diff --git a/tests/scheme/list/make-list-test.scm → tests/scheme/base/make-list-test.scm b/tests/scheme/list/make-list-test.scm → tests/scheme/base/make-list-test.scm
diff --git a/tests/scheme/list/member-test.scm → tests/scheme/base/member-test.scm b/tests/scheme/list/member-test.scm → tests/scheme/base/member-test.scm
diff --git a/tests/scheme/list/memq-test.scm → tests/scheme/base/memq-test.scm b/tests/scheme/list/memq-test.scm → tests/scheme/base/memq-test.scm
diff --git a/tests/scheme/list/memv-test.scm → tests/scheme/base/memv-test.scm b/tests/scheme/list/memv-test.scm → tests/scheme/base/memv-test.scm
diff --git a/tests/scheme/list/null-p-test.scm → tests/scheme/base/null-p-test.scm b/tests/scheme/list/null-p-test.scm → tests/scheme/base/null-p-test.scm
diff --git a/tests/scheme/list/pair-p-test.scm → tests/scheme/base/pair-p-test.scm b/tests/scheme/list/pair-p-test.scm → tests/scheme/base/pair-p-test.scm
diff --git a/tests/scheme/list/reverse-test.scm → tests/scheme/base/reverse-test.scm b/tests/scheme/list/reverse-test.scm → tests/scheme/base/reverse-test.scm
diff --git a/tests/scheme/list/set-car-bang-test.scm → tests/scheme/base/set-car-bang-test.scm b/tests/scheme/list/set-car-bang-test.scm → tests/scheme/base/set-car-bang-test.scm
diff --git a/tests/scheme/list/set-cdr-bang-test.scm → tests/scheme/base/set-cdr-bang-test.scm b/tests/scheme/list/set-cdr-bang-test.scm → tests/scheme/base/set-cdr-bang-test.scm
diff --git a/tests/scheme/list-test.scm b/tests/scheme/list-test.scm
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		# [216_52] 迁移 list的测试用例到scheme/base

		## 2026/04/03 迁移 list的测试用例到scheme/base
Comment on lines +1 to +3 Copy link Copy Markdown Contributor greptile-apps bot Apr 3, 2026 Choose a reason for hiding this comment The reason will be displayed to describe this comment to others. Learn more. 开发文档缺少必要章节 `devel/216_52.md` 仅有标题和一行日期，缺少 CLAUDE.md 模板要求的以下章节：`## 任务相关的代码文件`、`## 如何测试`、以及 `### What` / `### Why` / `### How` 子章节。参考同类文件 `devel/216_51.md` 的完整结构。 Context Used: CLAUDE.md (source)