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)
+
+
+