Changeset 5186


Ignore:
Timestamp:
12/19/03 01:36:31 (18 years ago)
Author:
piso
Message:

CONTINUE, STORE-VALUE, USE-VALUE: return NIL if no such restart.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/restart.lisp

    r5185 r5186  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: restart.lisp,v 1.11 2003-12-19 01:24:27 piso Exp $
     4;;; $Id: restart.lisp,v 1.12 2003-12-19 01:36:31 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    199199         :format-control "ABORT restart failed to transfer control dynamically."))
    200200
    201 (defun continue (&optional condition)
    202   (invoke-restart 'continue))
    203 
    204201(defun muffle-warning (&optional condition)
    205202  (invoke-restart 'muffle-warning))
    206203
     204(defun continue (&optional condition)
     205  (let ((restart (find-restart 'continue condition)))
     206    (when restart
     207      (invoke-restart restart))))
     208
    207209(defun store-value (value &optional condition)
    208   (invoke-restart 'store-value value))
     210  (let ((restart (find-restart 'store-value condition)))
     211    (when restart
     212      (invoke-restart restart value))))
    209213
    210214(defun use-value (value &optional condition)
    211   (invoke-restart 'use-value value))
     215  (let ((restart (find-restart 'use-value condition)))
     216    (when restart
     217      (invoke-restart restart value))))
    212218
    213219;;; Adapted from SBCL.
Note: See TracChangeset for help on using the changeset viewer.