From 4e7ce9bb20a939984bbc2b29118701e3d84ed7ae Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 1 Jul 2003 02:10:32 +0000
Subject: [PATCH] More fragments.

---
 ansi-tests/rctest/form-generators.lsp | 31 +++++++++++++++++++++++++++
 ansi-tests/rctest/makefile            |  3 +++
 2 files changed, 34 insertions(+)
 create mode 100644 ansi-tests/rctest/form-generators.lsp
 create mode 100644 ansi-tests/rctest/makefile

diff --git a/ansi-tests/rctest/form-generators.lsp b/ansi-tests/rctest/form-generators.lsp
new file mode 100644
index 00000000..10e3185a
--- /dev/null
+++ b/ansi-tests/rctest/form-generators.lsp
@@ -0,0 +1,31 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Sat Jun 21 10:56:09 2003
+;;;; Contains: Generators for forms
+
+(in-package :rctest)
+
+(defclass form-generator (composite-generator) ())
+
+(defparameter *form-generator* (make-instance 'composite-generator))
+
+(defclass implicit-progn-generator (random-iterative-generator)
+  ((subgenerator :initform *form-generator*)))
+
+(defgenerator var-form-generator
+  :keys (vars)
+  :body (random-from-seq vars))
+
+(defgenerator int-form-generator
+  :body (random-case
+	 0
+	 (random-from-seq
+	  #.(apply #'vector (loop for i from 0 to 31 collect (ash 1 i))))
+	 (random-from-seq
+	  #.(apply #'vector (loop for i from 0 to 31 collect (- (ash 1 i)))))
+	 (random-from-seq
+	  #.(make-array 128 :initial-contents
+			(loop for i from 0 to 31
+			      for x = (ash 1 i)
+			      nconc (list (1- x) (1+ x) (- 1 x) (- -1 x)))))
+	 (random 1000)))
diff --git a/ansi-tests/rctest/makefile b/ansi-tests/rctest/makefile
new file mode 100644
index 00000000..2e9ee102
--- /dev/null
+++ b/ansi-tests/rctest/makefile
@@ -0,0 +1,3 @@
+
+clean:
+	rm -f test.out *.fasl *.o *.so *~ *.fn *.x86f *.fasl *.ufsl
-- 
GitLab