/[gcl]/gcl/ansi-tests/bit-nand.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/bit-nand.lsp

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

revision 1.5 by pfdietz, Mon Jun 13 13:01:35 2005 UTC revision 1.6 by pfdietz, Mon Jun 13 14:24:44 2005 UTC
# Line 228  Line 228 
228       x y z))       x y z))
229    #*1 2 1 2)    #*1 2 1 2)
230    
231  (deftest bit-nand.fold.1  (def-fold-test bit-nand.fold.1 (bit-nand #*00101 #*10100))
   (flet ((%f () (declare (optimize speed (safety 0) (space 0)))  
              (bit-nand #*00101 #*10100)))  
     (values (%f) (let ((bv (%f))) (setf (elt bv 0) 0) bv) (%f)))  
   #*11011 #*01011 #*11011)  
232    
233  ;;; Error tests  ;;; Error tests
234    

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

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