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

Add gray-streams module to avoid use of redefine-cl-functions

Browse source
This commit is contained in:
Tarn W. Burton 2023-11-02 13:57:02 -04:00 • committed by Marius Gerbershagen
parent 26d95e8d4f
commit 239f329ee6
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/clos/streams.lsp
View file

@ -822,6 +822,15 @@ them so."
'gray:stream-file-position
gray-package)
(si::package-lock "COMMON-LISP" x)
(provide '#:gray-streams)
nil))
(pushnew :gray-streams-module *features*)
(pushnew #'(lambda (module)
(when (string-equal module '#:gray-streams)
(redefine-cl-functions)
t))
sys:*module-provider-functions*)
(setf clos::*clos-booted* t)