Skip to content
Snippets Groups Projects
Commit 86b57a0d authored by pfdietz's avatar pfdietz
Browse files

Made make clean more aggressive.

parent 360a665c
No related branches found
No related tags found
No related merge requests found
;-*- 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)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment