← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

« back to all changes in this revision

Viewing changes to ansi-tests/data-and-control-flow.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
ansi-tests/data-and-control-flow.lsp
 
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
  
 
 
b'\\ No newline at end of file'