/[gcl]/gcl/ansi-tests/make-string.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/make-string.lsp

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

revision 1.4 by pfdietz, Fri Jan 17 13:29:23 2003 UTC revision 1.5 by pfdietz, Fri Feb 14 05:10:36 2003 UTC
# Line 131  Line 131 
131  (deftest make-string.error.6  (deftest make-string.error.6
132    (classify-error (make-string 10 :element-type))    (classify-error (make-string 10 :element-type))
133    program-error)    program-error)
134    
135    ;;; Order of evaluation
136    
137    (deftest make-string.order.1
138      (let ((i 0) a b)
139        (values
140         (make-string (progn (setf a (incf i)) 4)
141                      :initial-element (progn (setf b (incf i)) #\a))
142         i a b))
143      "aaaa" 2 1 2)
144    
145    (deftest make-string.order.2
146      (let ((i 0) a b c)
147        (values
148         (make-string (progn (setf a (incf i)) 4)
149                      :initial-element (progn (setf b (incf i)) #\a)
150                      :element-type (progn (setf c (incf i)) 'base-char))
151         i a b c))
152      "aaaa" 3 1 2 3)
153    
154    (deftest make-string.order.3
155      (let ((i 0) a b c)
156        (values
157         (make-string (progn (setf a (incf i)) 4)
158                      :element-type (progn (setf b (incf i)) 'base-char)
159                      :initial-element (progn (setf c (incf i)) #\a))
160         i a b c))
161      "aaaa" 3 1 2 3)
162    
163    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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