Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
d7c708ed
Commit
d7c708ed
authored
Nov 25, 2002
by
pfdietz
Browse files
Added eval.lsp, which contains tests of the EVAL function. It is very incomplete.
parent
2177c597
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/eval.lsp
0 → 100644
View file @
d7c708ed
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Thu Nov 21 10:43:15 2002
;;;; Contains: Tests of EVAL
(in-package :cl-test)
(deftest eval.1
(eval 1)
1)
(deftest eval.2
(loop for x being the symbols of "KEYWORD"
always (eq (eval x) x))
t)
(deftest eval.3
(let ((s "abcd"))
(eqlt (eval s) s))
t)
(deftest eval.4
(eval '(car '(a . b)))
a)
(deftest eval.5
(eval '(let ((x 0)) x))
0)
(deftest eval.6
(funcall #'eval 1)
1)
;;; Many more tests will go here?
ansi-tests/gclload2.lsp
View file @
d7c708ed
...
...
@@ -5,6 +5,7 @@
(load "cl-symbols.lsp")
;;; Tests of evaluation and compilation
(load "eval.lsp")
(load "eval-and-compile.lsp")
(load "compile.lsp")
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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