caranmegil/splork-mode
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update to fix randomization issues

Browse Source
This commit is contained in:
William Moore 2025-01-07 20:53:16 -06:00
parent 8876ed8e57
commit 019fb839e8
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
splork.lsp
View File

@ -14,8 +14,6 @@
;; You should have received a copy of the GNU General Public License ;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
(setf *random-state* (make-random-state t))
(load "words.lsp") (load "words.lsp")
(load "sent-struct.lsp") (load "sent-struct.lsp")
@ -98,5 +96,6 @@
generated-sentence)) generated-sentence))
(defun splork-generate () (defun splork-generate ()
(setf *random-state* (make-random-state t))
(princ (splork))) (princ (splork)))