2
;;;; Author: Paul Dietz
3
;;;; Created: Sat Jun 21 10:56:09 2003
4
;;;; Contains: Generators for forms
8
(defclass form-generator (composite-generator) ())
10
(defparameter *form-generator* (make-instance 'composite-generator))
12
(defclass implicit-progn-generator (random-iterative-generator)
13
((subgenerator :initform *form-generator*)))
15
(defgenerator var-form-generator
17
:body (random-from-seq vars))
19
(defgenerator int-form-generator
23
#.(apply #'vector (loop for i from 0 to 31 collect (ash 1 i))))
25
#.(apply #'vector (loop for i from 0 to 31 collect (- (ash 1 i)))))
27
#.(make-array 128 :initial-contents
28
(loop for i from 0 to 31
30
nconc (list (1- x) (1+ x) (- 1 x) (- -1 x)))))