       (if association
           (setf (assoc package radian-disabled-packages)
                 (1+ (cdr association)))
-        (push (cons package -1) packages)))))
+        (push (cons package -1) radian-disabled-packages)))))
 
 (defun radian-package-enabled-p (&rest packages)
   "Returns `t' if none of the given packages are disabled (for example,

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

      (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
