/[gcl]/gcl/ansi-tests/lambda-list-keywords.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/lambda-list-keywords.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Tue Oct 8 03:34:30 2002 UTC revision 1.2 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 7  Line 7 
7    
8  ;;; The variable is bound  ;;; The variable is bound
9  (deftest lambda-list-keywords.1  (deftest lambda-list-keywords.1
10    (not (boundp 'lambda-list-keywords))    (not-mv (boundp 'lambda-list-keywords))
11    nil)    nil)
12    
13  ;;; The variable is a constant  ;;; The variable is a constant
14  (deftest lambda-list-keywords.2  (deftest lambda-list-keywords.2
15    (not (constantp 'lambda-list-keywords))    (not-mv (constantp 'lambda-list-keywords))
16    nil)    nil)
17    
18  ;;; The standard keywords are present in the list  ;;; The standard keywords are present in the list
19  (deftest lambda-list-keywords.3  (deftest lambda-list-keywords.3
20    (and (consp lambda-list-keywords)    (and (consp lambda-list-keywords)
21         (null (set-difference '(&allow-other-keys         (not-mv (set-difference '(&allow-other-keys
22                                 &aux &body &environment                                   &aux &body &environment
23                                 &key &optional &rest &whole)                                   &key &optional &rest &whole)
24                               lambda-list-keywords)))                                 lambda-list-keywords)))
25    t)    t)
26    
27  ;;; No lambda list keywords are in the keyword package  ;;; No lambda list keywords are in the keyword package
# Line 37  Line 37 
37                         (eql (aref name 0) #\&))))                         (eql (aref name 0) #\&))))
38              lambda-list-keywords)              lambda-list-keywords)
39    nil)    nil)
   
   
     

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26