Changeset 5174


Ignore:
Timestamp:
12/17/03 16:53:20 (17 years ago)
Author:
piso
Message:

FIND-RESTART

File:
1 edited

Legend:

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

    r5173 r5174  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: restart.lisp,v 1.6 2003-12-17 16:50:23 piso Exp $
     4;;; $Id: restart.lisp,v 1.7 2003-12-17 16:53:20 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7474
    7575(defun find-restart (name &optional condition)
    76   (dolist (restart-cluster *restart-clusters*)
    77     (dolist (restart restart-cluster)
     76  (let ((restarts (compute-restarts condition)))
     77    (dolist (restart restarts)
    7878      (when (or (eq restart name) (eq (restart-name restart) name))
    7979        (return-from find-restart restart)))))
Note: See TracChangeset for help on using the changeset viewer.