Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv20474 Modified Files: los0-gc.lisp Log Message: Fixed install-los0-consing to reflect the new scheme where interrupt-handlers are now denoted by functions rather than symbols. Date: Thu Apr 15 09:21:42 2004 Author: ffjeld Index: movitz/losp/los0-gc.lisp diff -u movitz/losp/los0-gc.lisp:1.7 movitz/losp/los0-gc.lisp:1.8 --- movitz/losp/los0-gc.lisp:1.7 Sun Apr 11 14:57:06 2004 +++ movitz/losp/los0-gc.lisp Thu Apr 15 09:21:42 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Sat Feb 21 17:48:32 2004 ;;;; -;;;; $Id: los0-gc.lisp,v 1.7 2004/04/11 18:57:06 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.8 2004/04/15 13:21:42 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -113,7 +113,11 @@ (symbol-function 'new-malloc-clumps)) (setf (symbol-function 'new-malloc-clumps) old-malloc)) - (setf (interrupt-handler 113) 'los0-handle-out-of-memory) + (setf (interrupt-handler 113) + (lambda (exception interrupt-frame) + (declare (ignore exception interrupt-frame)) + (format t "~&;; Handling out-of-memory exception..") + (stop-and-copy))) (values)) (defun install-old-consing ()