/[gcl]/gcl/ansi-tests/substitute.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/substitute.lsp

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

revision 1.12 by pfdietz, Sat May 7 01:55:34 2005 UTC revision 1.13 by pfdietz, Mon Jun 13 13:01:35 2005 UTC
# Line 1092  Line 1092 
1092    (substitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys nil)    (substitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys nil)
1093    (1 2 a 3 1 a 3))    (1 2 a 3 1 a 3))
1094    
1095    ;;; Constant folding tests
1096    
1097    (deftest substitute.fold.1
1098      (flet ((%f () (substitute 'z 'b '(a b c))))
1099        (values
1100         (%f)
1101         (let ((seq (%f))) (setf (elt seq 0) 'd) seq)
1102         (%f)))
1103      (a z c)
1104      (d z c)
1105      (a z c))
1106    
1107    (deftest substitute.fold.2
1108      (flet ((%f () (substitute 'z 'b #(a b c))))
1109        (values
1110         (%f)
1111         (let ((seq (%f))) (setf (elt seq 0) 'd) seq)
1112         (%f)))
1113      #(a z c)
1114      #(d z c)
1115      #(a z c))
1116    
1117    (deftest substitute.fold.3
1118      (flet ((%f () (substitute 0 1 #*001101)))
1119        (values
1120         (%f)
1121         (let ((seq (%f))) (setf (elt seq 0) 1) seq)
1122         (%f)))
1123      #*000000
1124      #*100000
1125      #*000000)
1126    
1127  ;;; Error cases  ;;; Error cases
1128    
1129  (deftest substitute.error.1  (deftest substitute.error.1

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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