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

gray-streams: remove CLOSE general specialization

Browse source 
Some libraries somewhat abuse the CLOSE method specializing it on their
own stuff which isn't a stream. Calling the NEXT-METHOD triggers the
condition. For pragmatic reasons we'll honor this and will specialize
only on the streams.
This commit is contained in:
Daniel Kochmański 2015-11-27 17:54:02 +01:00
parent ed8714ab21
commit 40c82c18d8
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/streams.lsp
View file

@ -320,7 +320,7 @@
(defmethod close ((stream ansi-stream) &key abort)
(cl:close stream :abort abort))
(defmethod close ((stream t) &key abort)
(defmethod close ((stream stream) &key abort)
(declare (ignore abort))
(bug-or-error stream 'close))