/[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.6 by pfdietz, Mon Jun 13 14:24:44 2005 UTC revision 1.7 by pfdietz, Mon Jul 25 00:43:56 2005 UTC
# Line 5  Line 5 
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)))
# Line 230  Line 232 
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

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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