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

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

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

revision 1.3 by pfdietz, Fri Jan 16 14:44:05 2004 UTC revision 1.4 by pfdietz, Mon Jun 13 13:01:35 2005 UTC
# Line 127  Line 127 
127       i x))       i x))
128    #*110010 1 1)    #*110010 1 1)
129    
130    (deftest bit-not.fold.1
131      (flet ((%f () (declare (optimize speed (safety 0) (space 0)))
132                 (bit-not #*00101)))
133        (values (%f) (let ((bv (%f))) (setf (elt bv 0) 0) bv) (%f)))
134      #*11010 #*01010 #*11010)
135    
136  ;;; Error tests  ;;; Error tests
137    
138  (deftest bit-not.error.1  (deftest bit-not.error.1

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

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