Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv15768
Modified Files: conditions.lisp Log Message: *** empty log message *** Date: Sat Apr 30 00:36:23 2005 Author: ffjeld
Index: movitz/losp/muerte/conditions.lisp diff -u movitz/losp/muerte/conditions.lisp:1.14 movitz/losp/muerte/conditions.lisp:1.15 --- movitz/losp/muerte/conditions.lisp:1.14 Wed Apr 27 01:40:29 2005 +++ movitz/losp/muerte/conditions.lisp Sat Apr 30 00:36:23 2005 @@ -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.14 2005/04/26 23:40:29 ffjeld Exp $ +;;;; $Id: conditions.lisp,v 1.15 2005/04/29 22:36:23 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -270,7 +270,7 @@ (signal-simple 'simple-condition datum args) nil)
-(defun invoke-debugger (&optional condition) +(defun invoke-debugger (condition) (when *debugger-hook* (let ((hook *debugger-hook*) (*debugger-hook* nil))