source: trunk/source/tests/ansi-tests/data-and-control-flow.lsp @ 8991

Last change on this file since 8991 was 8991, checked in by gz, 12 years ago

Check in the gcl ansi test suite (original, in preparation for making local changes)

File size: 941 bytes
Line 
1;-*- Mode:     Lisp -*-
2;;;; Author:   Paul Dietz
3;;;; Created:  Mon Oct 21 22:21:48 2002
4;;;; Contains: Overall tests for section 5 of spec, "Data and Control Flow"
5
6(in-package :cl-test)
7
8;;; Functions from section 5
9(defparameter *dcf-fns*
10  '(apply fboundp fmakunbound funcall function-lambda-expression
11          functionp compiled-function-p not eq eql equal equalp identity
12          complement constantly every some notevery notany
13          values-list get-setf-expansion))
14
15;;; Macros from section 5
16(defparameter *dcf-macros*
17  '(defun defconstant defparameter defvar destructuring-bind
18     psetq return and cond or when unless case ccase ecase
19     multiple-value-list multiple-value-setq nth-value
20     prog prog* prog1 prog2 define-modify-macro defsetf
21     define-setf-expander setf psetf shiftf rotatef))
22
23(deftest dcf-funs
24  (remove-if #'fboundp *dcf-fns*)
25  nil)
26
27(deftest dcf-macros
28  (remove-if #'macro-function *dcf-macros*)
29  nil)
30
31
32
33 
34 
Note: See TracBrowser for help on using the repository browser.