nil.lsp 588 Bytes
Newer Older
1 2 3 4 5
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Thu Oct 17 06:32:46 2002
;;;; Contains: Tests for NIL

6

7 8

(deftest nil.1
9
  (check-predicate #'(lambda (x) (not (subtypep (type-of x) nil))))
10 11 12 13
  nil)


(deftest nil.2
14
  (check-predicate #'(lambda (x) (subtypep nil (type-of x))))
15 16 17
  nil)

(deftest nil.3
18
  (not-mv (constantp nil))
19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
  nil)

(deftest nil.4
  (car nil)
  nil)

(deftest nil.5
  (cdr nil)
  nil)

(deftest nil.6
  (eval nil)
  nil)

(deftest nil.7
  (symbol-value nil)
  nil)

(deftest nil.8
  (eqt nil 'nil)
  t)

;;; NIL is, of course, present in many other files