Permalink
Browse files

Eliminate finalizers.

  • Loading branch information...
1 parent e35bbe2 commit f620d7e088023f57a90f726ca58166485d4c6fa7 @sionescu committed May 11, 2012
Showing with 3 additions and 5 deletions.
  1. +1 −1 src/iolib.streams.asd
  2. +1 −1 src/multiplex/event-loop.lisp
  3. +1 −3 src/streams/gray/gray-stream-methods.lisp
@@ -9,7 +9,7 @@
(read f))
:licence "MIT"
:defsystem-depends-on (:iolib.asdf :iolib.conf)
- :depends-on (:iolib.base :iolib.multiplex :cffi :trivial-garbage)
+ :depends-on (:iolib.base :iolib.multiplex :cffi)
:default-component-class :iolib-source-file
:pathname "streams/gray/"
:components
@@ -77,7 +77,7 @@
;;; KLUDGE: CLOSE is for streams. --luis
;;;
;;; Also, we might want to close FDs here. Or have a version/argument
-;;; that handles that. Or... add finalizers to the fd streams.
+;;; that handles that.
(defmethod close ((event-base event-base) &key abort)
(declare (ignore abort))
(close-multiplexer (mux-of event-base))
@@ -29,8 +29,7 @@
stream
(setf ibuf (allocate-iobuf input-buffer-size)
obuf (allocate-iobuf output-buffer-size)
- ef external-format)
- (trivial-garbage:finalize stream (lambda () (free-stream-buffers ibuf obuf))))))
+ ef external-format))))
;;;-------------------------------------------------------------------------
@@ -66,7 +65,6 @@
(with-accessors ((ibuf input-buffer-of)
(obuf output-buffer-of))
stream
- (trivial-garbage:cancel-finalization stream)
(unless (or abort (null ibuf)) (finish-output stream))
(free-stream-buffers ibuf obuf)
(setf ibuf nil obuf nil))

0 comments on commit f620d7e

Please sign in to comment.