(let ((consts (funcall constant-converter f)))
(if consts
(progn
- (setq collect (nconc collect consts))
+ (setq collect (append collect consts))
(values f t))
f)))))
collect))
(defun load-function-generator (test gensyms generator generator-lambda system)
(store-fgen (make-fgen test gensyms generator generator-lambda system)))
-