/[gcl]/gcl/ansi-tests/cl-symbols.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cl-symbols.lsp

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

revision 1.30 by pfdietz, Thu May 5 03:08:56 2005 UTC revision 1.31 by pfdietz, Fri May 6 01:13:40 2005 UTC
# Line 1146  Line 1146 
1146    t)    t)
1147    
1148  (deftest symbol-package.error.3  (deftest symbol-package.error.3
1149    (loop for x in *mini-universe*    (check-type-error #'symbol-package #'symbolp)
         for form = `(signals-type-error x ',x (symbol-package x))  
         unless (or (symbolp x) (eval form))  
         collect x)  
1150    nil)    nil)
1151    
1152    
# Line 1162  Line 1159 
1159    t)    t)
1160    
1161  (deftest symbol-plist.error.3  (deftest symbol-plist.error.3
1162    (loop for x in *mini-universe*    (check-type-error #'symbol-plist #'symbolp)
         for form = `(signals-type-error x ',x (symbol-plist x))  
         unless (or (symbolp x) (eval form))  
         collect x)  
1163    nil)    nil)
1164    
1165  (deftest symbol-plist.error.4  (deftest symbol-plist.error.4
1166    (loop for x in *mini-universe*    (check-type-error #'(lambda (x) (setf (symbol-plist x) nil))
1167          for form = `(signals-type-error x ',x (setf (symbol-plist x)                      #'symbolp)
                                                     (find-package "CL-USER")))  
         unless (or (symbolp x) (eval form))  
         collect x)  
1168    nil)    nil)
1169    
1170    
# Line 1187  Line 1178 
1178    t)    t)
1179    
1180  (deftest symbol-value.error.3  (deftest symbol-value.error.3
1181    (loop for x in *mini-universe*    (check-type-error #'symbol-value #'symbolp)
         for form = `(signals-type-error x ',x (symbol-value x))  
         unless (or (symbolp x) (eval form))  
         collect x)  
1182    nil)    nil)
1183    
1184  (deftest symbol-value.error.4  (deftest symbol-value.error.4
1185    (loop for x in *mini-universe*    (check-type-error #'(lambda (x) (setf (symbol-value x) nil)) #'symbolp)
         for form = `(signals-type-error x ',x (setf (symbol-value x) nil))  
         unless (or (symbolp x) (eval form))  
         collect x)  
1186    nil)    nil)
1187    
1188  (deftest symbol-value.error.5  (deftest symbol-value.error.5

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

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