Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |