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