integrated Raymond Wiker's patches to port RUN-PROGRAM from CMU CL and

[sbcl.git] / src / pcl / fngen.lisp

diff --git a/src/pcl/fngen.lisp b/src/pcl/fngen.lisp
index 9c74f49..4bd35ca 100644 (file)
--- a/src/pcl/fngen.lisp
+++ b/src/pcl/fngen.lisp
@@ -109,10 +109,10 @@
     new))
 
 (defun fgen-test            (fgen) (svref fgen 0))
-(defun fgen-gensyms      (fgen) (svref fgen 1))
-(defun fgen-generator  (fgen) (svref fgen 2))
+(defun fgen-gensyms         (fgen) (svref fgen 1))
+(defun fgen-generator       (fgen) (svref fgen 2))
 (defun fgen-generator-lambda (fgen) (svref fgen 3))
-(defun fgen-system        (fgen) (svref fgen 4))
+(defun fgen-system          (fgen) (svref fgen 4))
 \f
 (defun get-function-generator (lambda test-converter code-converter)
   (let* ((test (compute-test lambda test-converter))