Commit f4ad0fc2 authored by pfdietz's avatar pfdietz
Browse files

Added loop13.lsp (which is not complete).

parent 427111ab
......@@ -86,6 +86,7 @@
(load "loop10.lsp")
(load "loop11.lsp")
(load "loop12.lsp")
(load "loop13.lsp")
;;; Tests of conses
......
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sun Nov 17 12:37:45 2002
;;;; Contains: Tests of DO, DOING, RETURN in LOOP
(in-package :cl-test)
(deftest loop.13.1
(loop do (return 10))
10)
(deftest loop.13.2
(loop doing (return 10))
10)
(deftest loop.13.3
(loop for i from 0 below 100 by 7
when (> i 50) return i)
56)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment