mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 13:01:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

make-load-form: add random-state implementation

Browse source
This commit is contained in:
Daniel Kochmański 2016-08-10 13:55:06 +02:00
parent e1d11cddbd
commit 7569359860
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/clos/print.lsp
View file

@ -136,6 +136,9 @@ printer and we should rather use MAKE-LOAD-FORM."
(values
`(ext:hash-table-fill ,make-form ',content)
nil))))
(random-state
(let ((state (ext:random-state-array object)))
(values `(make-random-state ,state) nil)))
(t
(no-make-load-form object)))))