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

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

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

revision 1.14 by pfdietz, Mon Jun 13 13:01:35 2005 UTC revision 1.15 by pfdietz, Mon Jun 13 14:24:44 2005 UTC
# Line 143  Line 143 
143  ;;; If the coerce call is folded to a constant, this will fail  ;;; If the coerce call is folded to a constant, this will fail
144  ;;; when that constant is modified.  ;;; when that constant is modified.
145    
146  (deftest coerce.fold.1  (def-fold-test coerce.fold.1 (coerce '(1 2 3) 'vector))
147    (flet ((%f () (declare (optimize speed (safety 0)))  (def-fold-test coerce.fold.2 (coerce '(1 0 1) 'bit-vector))
148              (coerce '(1 2 3) 'vector)))  (def-fold-test coerce.fold.3 (coerce '(#\a #\b #\c) 'string))
     (values  
      (%f)  
      (let ((v (%f)))  
        (setf (aref v 0) 0)  
        v)  
      (%f)))  
   #(1 2 3)  
   #(0 2 3)  
   #(1 2 3))  
     
149    
150  ;;; Error tests  ;;; Error tests
151    

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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