mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-20 08:40:46 -07:00
Code Issues Projects Releases Packages Wiki Activity

The previous version of streams.lsp failed to properly redefine CLOS and other functions

Browse source
This commit is contained in:
jjgarcia 2008-09-01 19:08:19 +00:00
parent 881af8a9eb
commit cf6cd93ad0
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/clos/streams.lsp
View file

@ -611,10 +611,11 @@
(let ((x (si::package-lock "COMMON-LISP" nil)))
(loop for cl-symbol in '#.+conflicting-symbols+
with gray-package = (find-package "GRAY")
do (let ((gray-symbol (find-symbol (symbol-name cl-symbol) gray-package)))
(setf (fdefinition cl-symbol) (fdefinition gray-symbol))
(unintern gray-symbol gray-package)
(import cl-symbol gray-package)
(export cl-symbol gray-package)))
do (unless (typep (fdefinition cl-symbol) 'generic-function)
(let ((gray-symbol (find-symbol (symbol-name cl-symbol) gray-package)))
(setf (fdefinition cl-symbol) (fdefinition gray-symbol))
(unintern gray-symbol gray-package)
(import cl-symbol gray-package)
(export cl-symbol gray-package))))
(si::package-lock "COMMON-LISP" x)
nil))