   (radian--every (lambda (package)
                    (let ((association (assoc package radian-disabled-packages)))
                      (and association
-                          (> (cdr association) 1))))
+                          (> (cdr association) 0))))
                  packages))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

      (if association
          (setf (assoc package radian-disabled-packages)
                (1+ (cdr association)))
        (push (cons package -1) packages)))))

(defun radian-package-enabled-p (&rest packages)
  "Returns `t' if none of the given packages are disabled (for example,

      (if association
          (setf (assoc package radian-disabled-packages)
                (1+ (cdr association)))
        (push (cons package 1) radian-disabled-packages)))))

(defun radian-reenable-package (&rest packages)
  "Undoes the effects of `radian-disable-package', by
