Commit 86b57a0d authored by pfdietz's avatar pfdietz

Made make clean more aggressive.

parent 360a665c
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Mon Oct 21 22:21:48 2002
;;;; Contains: Overall tests for section 5 of spec, "Data and Control Flow"
(in-package :cl-test)
;;; Functions from section 5
(defparameter *dcf-fns*
'(apply fboundp fmakunbound funcall function-lambda-expression
functionp compiled-function-p not eq eql equal equalp identity
complement constantly every some notevery notany
values-list get-setf-expansion))
;;; Macros from section 5
(defparameter *dcf-macros*
'(defun defconstant defparameter defvar destructuring-bind
psetq return and cond or when unless case ccase ecase
multiple-value-list multiple-value-setq nth-value
prog prog* prog1 prog2 define-modify-macro defsetf
define-setf-expander setf psetf shiftf rotatef))
(deftest dcf-funs
(remove-if #'fboundp *dcf-fns*)
nil)
(deftest dcf-macros
(remove-if #'macro-function *dcf-macros*)
nil)
\ No newline at end of file
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat Oct 19 11:42:14 2002
;;;; Contains: Tests of DEFINE-MODIFY-MACRO
(in-package :cl-test)
(deftest define-modify-macro.1
(let ((u '(p q r)) v)
(values
(define-modify-macro dmm1-appendf (&rest args)
append "Append lists onto a list")
(setq v u)
(dmm1-appendf u '(a b c d))
(dmm1-appendf u ())
(dmm1-appendf u '(e f g))
u
v))
dmm1-appendf
(p q r)
(p q r a b c d)
(p q r a b c d)
(p q r a b c d e f g)
(p q r a b c d e f g)
(p q r))
(deftest define-modify-macro.2
(let ((i 10))
(values
(define-modify-macro new-incf (&optional (delta 1)) +)
(new-incf i)
(new-incf i 100)
i))
new-incf
11
111
111)
(deftest define-modify-macro.3
(let ((a (vector 0 0 0 0 0))
(i 1))
(values
(define-modify-macro new-incf (&optional (delta 1)) +)
(new-incf (aref a (incf i)))
a
i))
new-incf
1
#(0 0 1 0 0)
2)
(deftest define-modify-macro.4
(let ((a (vector 0 0 0 0 0))
(i 1))
(values
(define-modify-macro new-incf (&optional (delta 1)) +)
(new-incf (aref a (incf i)) (incf i))
a
i))
new-incf
3
#(0 0 3 0 0)
3)
\ No newline at end of file
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Mon Oct 21 22:52:19 2002
;;;; Contains: Overall tests for section 3, 'Evaluation and Compilation'
(in-package :cl-test)
(defparameter *eval-and-compile-fns*
'(compile eval macroexpand macroexpand-1 proclaim special-operator-p
constantp))
(deftest eval-and-compile-fns
(remove-if #'fboundp *eval-and-compile-fns*)
nil)
(defparameter *eval-and-compile-macros*
'(lambda define-compiler-macro defmacro define-symbol-macro declaim))
(deftest eval-and-compile-macros
(remove-if #'macro-function *eval-and-compile-macros*)
nil)
......@@ -5,10 +5,12 @@
(load "cl-symbols.lsp")
;;; Tests of evaluation and compilation
(load "eval-and-compile.lsp")
(load "compile.lsp")
;;; Tests of data and control flow
(load "data-and-control-flow.lsp")
(load "places.lsp")
(load "and.lsp")
......@@ -22,6 +24,7 @@
(load "cond.lsp")
(load "ctypecase.lsp")
(load "defconstant.lsp")
(load "define-modify-macro.lsp")
(load "defparameter.lsp")
(load "defvar.lsp")
(load "destructuring-bind.lsp")
......@@ -68,7 +71,8 @@
(load "values.lsp")
(load "when.lsp")
;;; Tests of iteration forms
(load "iteration.lsp")
;;; Tests of conses
......
......@@ -3,4 +3,4 @@ test:
echo "(load \"gclload.lsp\")" | gcl | tee test.out
clean:
rm -f *.fasl *.o *~ *.fn rt/*.o rt/*.fasl rt/*.fn rt/*~
rm -f test.out *.fasl *.o *~ *.fn *.x86f *.fasl rt/*.o rt/*.fasl rt/*.fn rt/*~ rt/*.x86f rt/*.fasl
......@@ -377,3 +377,14 @@
;; This should be greatly expanded
(defparameter *type-and-class-fns*
'(coerce subtypep type-of typep type-error-datum type-error-expected-type))
(deftest type-and-class-fns
(remove-if #'fboundp *type-and-class-fns*)
nil)
(defparameter type-and-class-macros
(not (macro-function 'deftype))
nil)
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