(setq *package* (find-package-or-fail ',string-designator))))
;; This function is used internally to initialize the CL package
(setq *package* (find-package-or-fail ',string-designator))))
;; This function is used internally to initialize the CL package