From 019fb839e8b932c7a9f96a1a02a9bc2472b41f15 Mon Sep 17 00:00:00 2001 From: William Moore Date: Tue, 7 Jan 2025 20:53:16 -0600 Subject: [PATCH] Update to fix randomization issues --- splork.lsp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/splork.lsp b/splork.lsp index 40c0664..684544d 100644 --- a/splork.lsp +++ b/splork.lsp @@ -14,8 +14,6 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . -(setf *random-state* (make-random-state t)) - (load "words.lsp") (load "sent-struct.lsp") @@ -98,5 +96,6 @@ generated-sentence)) (defun splork-generate () + (setf *random-state* (make-random-state t)) (princ (splork)))