Merge branch 'gray-streams-module' into 'develop'

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

See merge request embeddable-common-lisp/ecl!306
This commit is contained in:
Daniel Kochmański 2023-11-16 13:34:25 +00:00
commit 2fb0e7d42c

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)