Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
ansi-test
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Karsten Poeck
ansi-test
Commits
5915d219
Commit
5915d219
authored
Oct 12, 2002
by
pfdietz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Added tests for LET, LET*
parent
f961af91
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
152 additions
and
0 deletions
+152
-0
ansi-tests/gclload2.lsp
ansi-tests/gclload2.lsp
+1
-0
ansi-tests/let.lsp
ansi-tests/let.lsp
+151
-0
No files found.
ansi-tests/gclload2.lsp
View file @
5915d219
...
...
@@ -25,6 +25,7 @@
(load "labels.lsp")
(load "lambda-list-keywords.lsp")
(load "lambda-parameters-limit.lsp")
(load "let.lsp")
(load "macrolet.lsp")
;;; Tests of conses
...
...
ansi-tests/let.lsp
0 → 100644
View file @
5915d219
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat Oct 12 09:24:36 2002
;;;; Contains: Tests for LET, LET*
(in-package :cl-test)
;;; LET and LET* are also heavily exercised in the many other tests.
(deftest let.1
(let ((x 0)) x)
0)
(deftest let.2
(let ((x 0) (y 1)) (values x y))
0 1)
(deftest let.3
(let ((x 0) (y 1)) (declare (special x y)) (values x y))
0 1)
(deftest let.4
(let ((x 0))
(let ((x 1))
x))
1)
(deftest let.5
(let ((x 0))
(let ((#:x 1))
x))
0)
(deftest let.6
(let ((x 0))
(declare (special x))
(let ((x 1))
(values x (locally (declare (special x)) x))))
1 0)
(deftest let.7
(let ((x '(a b c)))
(declare (dynamic-extent x))
x)
(a b c))
(deftest let.8
(let ((x 0) (x 1)) x)
1)
(deftest let.9
(let (x y z) (values x y z))
nil nil nil)
(deftest let.10
(let ((x 1) x) x)
nil)
(deftest let.11
(let ((x 1))
(list x
(let (x x x)
(declare (special x))
x)
x))
(1 nil 1))
(deftest let.13
(flet ((%f () (declare (special x))
(if (boundp 'x) x 10)))
(let ((x 1)
(x (1+ (%f))))
(declare (special x))
x))
11)
;;; Tests for LET*
(deftest let*.1
(let* ((x 0)) x)
0)
(deftest let*.2
(let* ((x 0) (y 1)) (values x y))
0 1)
(deftest let*.3
(let* ((x 0) (y 1)) (declare (special x y)) (values x y))
0 1)
(deftest let*.4
(let* ((x 0))
(let* ((x 1))
x))
1)
(deftest let*.5
(let* ((x 0))
(let* ((#:x 1))
x))
0)
(deftest let*.6
(let* ((x 0))
(declare (special x))
(let* ((x 1))
(values x (locally (declare (special x)) x))))
1 0)
(deftest let*.7
(let* ((x '(a b c)))
(declare (dynamic-extent x))
x)
(a b c))
(deftest let*.8
(let* ((x 0) (x 1)) x)
1)
(deftest let*.9
(let* (x y z) (values x y z))
nil nil nil)
(deftest let*.10
(let* ((x 1) x) x)
nil)
(deftest let*.11
(let* ((x 1))
(list x
(let* (x x x)
(declare (special x))
x)
x))
(1 nil 1))
(deftest let*.12
(let* ((x 1)
(y (1+ x))
(x (1+ y))
(z (+ x y)))
(values x y z))
3 2 5)
(deftest let*.13
(flet ((%f () (declare (special x)) x))
(let* ((x 1)
(x (1+ (%f))))
(declare (special x))
x))
2)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment