Changeset 5182

Timestamp:

12/19/03 00:04:14 (20 years ago)

Author:

piso

Message:

ABORT

File:

• trunk/j/src/org/armedbear/lisp/restart.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/restart.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: restart.lisp,v 1.9 2003-12-17 18:38:38 piso Exp $
+;;; $Id: restart.lisp,v 1.10 2003-12-19 00:04:14 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -193 +193 @@
 
 (defun abort (&optional condition)
-  (invoke-restart 'abort))
+  (invoke-restart 'abort)
+  (error 'control-error
+         :format-control "ABORT restart failed to transfer control dynamically."))
 
 (defun continue (&optional condition)