Commit 20de4186 authored by pfdietz's avatar pfdietz
Browse files

Added tests for LAMBDA-LIST-KEYWORDS.

parent 1ce355be
......@@ -10,6 +10,7 @@
(load "complement.lsp")
(load "function.lsp")
(load "functionp.lsp")
(load "lambda-list-keywords.lsp")
;;; Tests of conses
......
;-*- 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)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment