diff --git a/ansi-tests/and.lsp b/ansi-tests/and.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..83623fd1f3bd64823157adad84e309daf9551485
--- /dev/null
+++ b/ansi-tests/and.lsp
@@ -0,0 +1,42 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Fri Oct 18 07:23:48 2002
+;;;; Contains: Tests for AND
+
+(in-package :cl-test)
+
+(deftest and.1
+  (and)
+  t)
+
+(deftest and.2
+  (and nil)
+  nil)
+
+(deftest and.3
+  (and 'a)
+  a)
+
+(deftest and.4
+  (and (values 'a 'b 'c))
+  a b c)
+
+(deftest and.5 (and (values)))
+
+(deftest and.6
+  (and (values t nil) 'a)
+  a)
+
+(deftest and.7
+  (and nil (values 'a 'b 'c))
+  nil)
+
+(deftest and.8
+  (let ((x 0))
+    (values (and nil (incf x))
+	    x))
+  nil 0)
+
+(deftest and.9
+  (and (values 1 nil) (values nil 2))
+  nil 2)
diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp
index 73e0ea86f060ef7e5b53d5d0fc72b1b2eb05184e..204b596e729a020aab921334c332d968750dc67d 100644
--- a/ansi-tests/gclload2.lsp
+++ b/ansi-tests/gclload2.lsp
@@ -10,6 +10,8 @@
 ;;; Tests of data and control flow
 
 (load "places.lsp")
+
+(load "and.lsp")
 (load "block.lsp")
 (load "call-arguments-limit.lsp")
 (load "catch.lsp")
@@ -39,6 +41,7 @@
 (load "not-and-null.lsp")
 (load "notany.lsp")
 (load "notevery.lsp")
+(load "or.lsp")
 (load "progv.lsp")
 (load "some.lsp")
 (load "t.lsp")
diff --git a/ansi-tests/or.lsp b/ansi-tests/or.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..4b7d746226d9cf8f2878a691d7eed0a5719c7e4e
--- /dev/null
+++ b/ansi-tests/or.lsp
@@ -0,0 +1,48 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Fri Oct 18 07:29:27 2002
+;;;; Contains: Tests of OR
+
+(in-package :cl-test)
+
+(deftest or.1
+  (or)
+  nil)
+
+(deftest or.2
+  (or nil)
+  nil)
+
+(deftest or.3
+  (or 'a)
+  a)
+
+(deftest or.4
+  (or (values 'a 'b 'c))
+  a b c)
+
+(deftest or.5 (or (values)))
+
+(deftest or.6
+  (or (values t nil) 'a)
+  t)
+
+(deftest or.7
+  (or nil (values 'a 'b 'c))
+  a b c)
+
+(deftest or.8
+  (let ((x 0))
+    (values (or t (incf x))
+	    x))
+  t 0)
+
+(deftest or.9
+  (or (values nil 1 2) (values 1 nil 2))
+  1 nil 2)
+
+
+
+
+  
+