(error err))
'(wrong-type-argument consp 3))))
-;; (ert-deftest comp-tests-bubble-sort ()
-;; "Run bubble sort."
-;; (defun comp-bubble-sort-f (list)
-;; (let ((i (length list)))
-;; (while (> i 1)
-;; (let ((b list))
-;; (while (cdr b)
-;; (when (< (cadr b) (car b))
-;; (setcar b (prog1 (cadr b)
-;; (setcdr b (cons (car b) (cddr b))))))
-;; (setq b (cdr b))))
-;; (setq i (1- i)))
-;; list))
-
-;; (native-compile #'comp-bubble-sort-f)
-
-;; (let* ((list1 (mapcar 'random (make-list 1000 most-positive-fixnum)))
-;; (list2 (copy-sequence list1)))
-;; (should (equal (comp-bubble-sort-f list1)
-;; (sort list2 #'<)))))
+(ert-deftest comp-tests-bubble-sort ()
+ "Run bubble sort."
+ (defun comp-bubble-sort-f (list)
+ (let ((i (length list)))
+ (while (> i 1)
+ (let ((b list))
+ (while (cdr b)
+ (when (< (cadr b) (car b))
+ (setcar b (prog1 (cadr b)
+ (setcdr b (cons (car b) (cddr b))))))
+ (setq b (cdr b))))
+ (setq i (1- i)))
+ list))
+
+ (native-compile #'comp-bubble-sort-f)
+
+ (let* ((list1 (mapcar 'random (make-list 1000 most-positive-fixnum)))
+ (list2 (copy-sequence list1)))
+ (should (equal (comp-bubble-sort-f list1)
+ (sort list2 #'<)))))
(ert-deftest comp-tests-list-inline ()
"Test some inlined list functions."