call-arguments-limit.lsp 655 Bytes
Newer Older
1 2 3 4 5
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Thu Oct 10 22:39:25 2002
;;;; Contains: Tests for CALL-ARGUMENTS-LIMIT

6

7 8

(deftest call-arguments-limit.1
9 10
  (notnot-mv (constantp 'call-arguments-limit))
  t)
11 12

(deftest call-arguments-limit.2
13 14
  (notnot-mv (typep call-arguments-limit 'integer))
  t)
15 16 17 18 19 20 21

(deftest call-arguments-limit.3
  (< call-arguments-limit 50)
  nil)

(deftest call-arguments-limit.4
  (let* ((m (min 65536 (1- call-arguments-limit)))
sds's avatar
sds committed
22
         (args (make-list m :initial-element 'a)))
23
    (equalt (apply #'list args) args))
24 25 26 27 28 29
  t)

(deftest call-arguments-limit.5
  (< call-arguments-limit lambda-parameters-limit)
  nil)