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

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

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

revision 1.4 by pfdietz, Fri Jan 16 14:44:05 2004 UTC revision 1.5 by pfdietz, Mon Jun 13 13:01:35 2005 UTC
# Line 228  Line 228 
228       x y z))       x y z))
229    #*0 2 1 2)    #*0 2 1 2)
230    
231    (deftest bit-andc2.fold.1
232      (flet ((%f () (declare (optimize speed (safety 0) (space 0)))
233                 (bit-andc2 #*01101 #*10100)))
234        (values (%f) (let ((bv (%f))) (setf (elt bv 0) 1) bv) (%f)))
235      #*01001 #*11001 #*01001)
236    
237  ;;; Error tests  ;;; Error tests
238    
239  (deftest bit-andc2.error.1  (deftest bit-andc2.error.1

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