Function: OPEN-CACHE

Source

(defun open-cache (directory &rest args
                             &key (class 'standard-cache)
                             &allow-other-keys)
  (setq *cache*
        (apply #'make-instance class :directory directory
               (sans args :class))))