diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp index 14e0cfef29c0407b72319d6c298bc7df3e1c8742..0a85194ea4d5d72045eb714d348062b53adbfd05 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 0000000000000000000000000000000000000000..59b8b6946a124e4e40f439662ddbff0ec05fb0ef --- /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) + + +