2
;;;; Author: Paul Dietz
3
;;;; Created: Mon Jan 13 16:27:12 2003
4
;;;; Contains: Tests for FUNCTION-LAMBDA-EXPRESSION
8
(deftest function-lambda-expression.1
11
(function-lambda-expression #'cons)))
14
(deftest function-lambda-expression.2
19
(function-lambda-expression #'%f))))
20
(values (length ret-vals)
21
(notnot (second ret-vals))))))
24
(deftest function-lambda-expression.order.1
26
(function-lambda-expression (progn (incf i) #'cons))
30
(deftest function-lambda-expression.error.1
31
(signals-error (function-lambda-expression) program-error)
34
(deftest function-lambda-expression.error.2
35
(signals-error (function-lambda-expression #'cons nil) program-error)