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