diff --git a/ansi-tests/load-conditions.lsp b/ansi-tests/load-conditions.lsp index 43c8048f331115a63140a46b148a274a542651fa..05b03fa6f775800398fa294f6ce9d4e077d55a4d 100644 --- a/ansi-tests/load-conditions.lsp +++ b/ansi-tests/load-conditions.lsp @@ -12,5 +12,7 @@ (load "ignore-errors.lsp") (compile-and-load "define-condition-aux.lsp") (load "define-condition.lsp") +(load "restart-bind.lsp") + diff --git a/ansi-tests/restart-bind.lsp b/ansi-tests/restart-bind.lsp new file mode 100644 index 0000000000000000000000000000000000000000..bb1b38e168cc5579c045b0cdf28194c5e288cabf --- /dev/null +++ b/ansi-tests/restart-bind.lsp @@ -0,0 +1,34 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Fri Mar 21 22:28:53 2003 +;;;; Contains: Tests for RESTART-BIND + +(in-package :cl-test) + +(deftest restart-bind.1 + (restart-bind () nil) + nil) + +(deftest restart-bind.2 + (restart-bind () (values))) + +(deftest restart-bind.3 + (restart-bind () (values 'a 'b 'c 'd 'e 'f)) + a b c d e f) + +(deftest restart-bind.4 + (block nil + (restart-bind () (return 'good) 'bad)) + good) + +(deftest restart-bind.5 + (block done + (tagbody + (restart-bind () (go 10) (return-from done 'bad)) + 10 + (return-from done 'good))) + good) + + + +