From 20de4186591f6f19663a2233806142e248f28e09 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 8 Oct 2002 03:34:30 +0000
Subject: [PATCH] Added tests for LAMBDA-LIST-KEYWORDS.

---
 ansi-tests/gclload2.lsp             |  1 +
 ansi-tests/lambda-list-keywords.lsp | 42 +++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+)
 create mode 100644 ansi-tests/lambda-list-keywords.lsp

diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp
index 14e0cfef..0a85194e 100644
--- a/ansi-tests/gclload2.lsp
+++ b/ansi-tests/gclload2.lsp
@@ -10,6 +10,7 @@
 (load "complement.lsp")
 (load "function.lsp")
 (load "functionp.lsp")
+(load "lambda-list-keywords.lsp")
 
 ;;; Tests of conses
 
diff --git a/ansi-tests/lambda-list-keywords.lsp b/ansi-tests/lambda-list-keywords.lsp
new file mode 100644
index 00000000..59b8b694
--- /dev/null
+++ b/ansi-tests/lambda-list-keywords.lsp
@@ -0,0 +1,42 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Mon Oct  7 22:11:31 2002
+;;;; Contains: Tests for LAMBDA-LIST-KEYWORDS
+
+(in-package :cl-test)
+
+;;; The variable is bound
+(deftest lambda-list-keywords.1
+  (not (boundp 'lambda-list-keywords))
+  nil)
+
+;;; The variable is a constant
+(deftest lambda-list-keywords.2
+  (not (constantp 'lambda-list-keywords))
+  nil)
+
+;;; The standard keywords are present in the list
+(deftest lambda-list-keywords.3
+  (and (consp lambda-list-keywords)
+       (null (set-difference '(&allow-other-keys 
+			       &aux &body &environment
+			       &key &optional &rest &whole)
+			     lambda-list-keywords)))
+  t)
+
+;;; No lambda list keywords are in the keyword package
+(deftest lambda-list-keywords.4
+  (some #'keywordp lambda-list-keywords)
+  nil)
+
+;;; Every keyword starts with an ampersand
+(deftest lambda-list-keywords.5
+  (notevery #'(lambda (sym)
+		(let ((name (symbol-name sym)))
+		  (and (> (length name) 0)
+		       (eql (aref name 0) #\&))))
+	    lambda-list-keywords)
+  nil)
+
+
+  
-- 
GitLab