Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv1544 Modified Files: conditions.lisp Log Message: Have condition argument to invoke-debugger be optional. Date: Wed Apr 27 01:40:30 2005 Author: ffjeld Index: movitz/losp/muerte/conditions.lisp diff -u movitz/losp/muerte/conditions.lisp:1.13 movitz/losp/muerte/conditions.lisp:1.14 --- movitz/losp/muerte/conditions.lisp:1.13 Tue Nov 2 16:52:21 2004 +++ movitz/losp/muerte/conditions.lisp Wed Apr 27 01:40:29 2005 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001-2004, +;;;; Copyright (C) 2001-2005, ;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Wed Nov 20 15:47:04 2002 ;;;; -;;;; $Id: conditions.lisp,v 1.13 2004/11/02 15:52:21 ffjeld Exp $ +;;;; $Id: conditions.lisp,v 1.14 2005/04/26 23:40:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -270,7 +270,7 @@ (signal-simple 'simple-condition datum args) nil) -(defun invoke-debugger (condition) +(defun invoke-debugger (&optional condition) (when *debugger-hook* (let ((hook *debugger-hook*) (*debugger-hook* nil))