← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

« back to all changes in this revision

Viewing changes to ansi-tests/nil.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
ansi-tests/nil.lsp
 
1
;-*- Mode:     Lisp -*-
 
2
;;;; Author:   Paul Dietz
 
3
;;;; Created:  Thu Oct 17 06:32:46 2002
 
4
;;;; Contains: Tests for NIL
 
5
 
 
6
(in-package :cl-test)
 
7
 
 
8
(deftest nil.1
 
9
  (loop for x in *universe*
 
10
        thereis (subtypep (type-of x) nil))
 
11
  nil)
 
12
 
 
13
 
 
14
(deftest nil.2
 
15
  (loop for x in *universe*
 
16
        unless (subtypep nil (type-of x))
 
17
        collect (type-of x))
 
18
  nil)
 
19
 
 
20
(deftest nil.3
 
21
  (not-mv (constantp nil))
 
22
  nil)
 
23
 
 
24
(deftest nil.4
 
25
  (car nil)
 
26
  nil)
 
27
 
 
28
(deftest nil.5
 
29
  (cdr nil)
 
30
  nil)
 
31
 
 
32
(deftest nil.6
 
33
  (eval nil)
 
34
  nil)
 
35
 
 
36
(deftest nil.7
 
37
  (symbol-value nil)
 
38
  nil)
 
39
 
 
40
(deftest nil.8
 
41
  (eqt nil 'nil)
 
42
  t)
 
43
 
 
44
;;; NIL is, of course, present in many other files