5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
|
(compile-and-load "bit-aux.lsp") |
9 |
|
|
10 |
(deftest bit-andc2.1 |
(deftest bit-andc2.1 |
11 |
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit)) |
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit)) |
12 |
(s2 (make-array nil :initial-element 0 :element-type 'bit))) |
(s2 (make-array nil :initial-element 0 :element-type 'bit))) |
232 |
|
|
233 |
(def-fold-test bit-andc2.fold.1 (bit-andc2 #*01101 #*10100)) |
(def-fold-test bit-andc2.fold.1 (bit-andc2 #*01101 #*10100)) |
234 |
|
|
235 |
|
;;; Random tests |
236 |
|
|
237 |
|
(deftest bit-andc2.random.1 |
238 |
|
(bit-random-test-fn #'bit-andc2 #'logandc2) |
239 |
|
nil) |
240 |
|
|
241 |
;;; Error tests |
;;; Error tests |
242 |
|
|
243 |
(deftest bit-andc2.error.1 |
(deftest bit-andc2.error.1 |