From 304a494e338598a8153064854cd367569eda5253 Mon Sep 17 00:00:00 2001 From: Vitaly Mayatskikh Date: Fri, 25 Sep 2009 20:41:23 +0200 Subject: [PATCH] Use trivial-garbage for finalize --- cl-cluster.asd | 3 ++- cluster.lisp | 6 +++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/cl-cluster.asd b/cl-cluster.asd index b543f81..ac37a77 100644 --- a/cl-cluster.asd +++ b/cl-cluster.asd @@ -18,7 +18,8 @@ (cl:eval-when (:load-toplevel :execute) (asdf:operate 'asdf:load-op :bordeaux-threads) (asdf:operate 'asdf:load-op :split-sequence) - (asdf:operate 'asdf:load-op :eager-future)) + (asdf:operate 'asdf:load-op :eager-future) + (asdf:operate 'asdf:load-op :trivial-garbage)) (defpackage #:cl-cluster-asd (:use :cl :asdf)) diff --git a/cluster.lisp b/cluster.lisp index 26bb034..52fdc68 100644 --- a/cluster.lisp +++ b/cluster.lisp @@ -63,9 +63,9 @@ input (sb-ext:process-input process) output (sb-ext:process-output process)) (let ((proc process)) - (sb-ext:finalize object - (lambda () ;(format t "finalize ~a~%" proc) - (when proc (sb-ext:process-close proc)))))) + (tg:finalize object + (lambda () ;(format t "finalize ~a~%" proc) + (when proc (sb-ext:process-close proc)))))) (node-flush/unsafe object t) ; discard prompt and other trash process)))) -- 2.11.4.GIT