Commit d7c708ed authored by pfdietz's avatar pfdietz
Browse files

Added eval.lsp, which contains tests of the EVAL function. It is very incomplete.

parent 2177c597
;-*- 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?
...@@ -5,6 +5,7 @@ ...@@ -5,6 +5,7 @@
(load "cl-symbols.lsp") (load "cl-symbols.lsp")
;;; Tests of evaluation and compilation ;;; Tests of evaluation and compilation
(load "eval.lsp")
(load "eval-and-compile.lsp") (load "eval-and-compile.lsp")
(load "compile.lsp") (load "compile.lsp")
......
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