/[gcl]/gcl/ansi-tests/misc.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/misc.lsp

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

revision 1.210 by pfdietz, Sat Feb 26 13:37:32 2005 UTC revision 1.211 by pfdietz, Sat Feb 26 17:17:28 2005 UTC
# Line 9991  Broken at C::WT-MAKE-CLOSURE. Line 9991  Broken at C::WT-MAKE-CLOSURE.
9991                           :displaced-index-offset 2)))                           :displaced-index-offset 2)))
9992      (find #c(1.0 2.0) d1))      (find #c(1.0 2.0) d1))
9993    nil)    nil)
9994    
9995    ;;; A crasher bug of REMOVE on non-simple nibble arrays
9996    
9997    (deftest misc.541
9998      (dotimes (i 1000)
9999        (let* ((init '(12 11 8 8 11 10 9 1 3 9 6 12 4 3 6 4 7 10 12 6 11 12 4 15 8 10 7 0 0
10000                        0 12 9 6 1 0 14 2 14 6 4 2 2 11 7 13 11 3 9 0 2 3 4 2 11 8 7 9 0 0 3
10001                        8 3 10 8 2 8 9 4 9 0 11 4 9 8 12 8 5 2 10 10 1 14 7 8 5 5 7 8 1 13 2
10002                        13 12 2 5 11 1 12 12 0 2 5 15 2 14 2 3 10 1 0 7 7 11 3 7 6 1 13 8 4 2
10003                        7 14 9 9 7 3 8 1 15 6 11 15 0 11 9 7 15 12 10 6 4 5 6 10 4 4 4 15 5 1
10004                        8 9 3 12 11 8 4 10 8 3 15 12 3 4 10 8 12 8 14 2 12 12 14 14 5 14 6 10
10005                        13 9 6 4 14 9 6 8 4 11 1 6 0 7 7 5 4 12 15 7 4 4 10 7 3 0 11 10 11 1
10006                        8 9 0 12 14 6 2 15 2 5 11 8 3 4 2 9 9 7 0 7 11 13 5 7 12 8 6 12 11 15
10007                        3 6 11 0 1 2 7 2 13 14 15 4))
10008              (d0 (make-array
10009                  '(251) :element-type '(integer 0 15)
10010                  :initial-contents init
10011                  :adjustable t)))
10012          (assert
10013           (equalp
10014            (remove 7 d0)
10015            (coerce (remove 7 init) '(vector (integer 0 15)))))))
10016      nil)
10017    
10018    ;;; Object identity for bit vectors
10019    
10020    (deftest misc.542
10021      (funcall
10022       (compile
10023        nil
10024        (let ((bv1 (copy-seq #*1))
10025              (bv2 (copy-seq #*1)))
10026          `(lambda () (eq ,bv1 ,bv2)))))
10027      nil)

Legend:
Removed from v.1.210  
changed lines
  Added in v.1.211

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