diff --git a/src/code/lispinit.lisp b/src/code/lispinit.lisp index 5d8b3de283804d04ef936918c820b57c0f19d6bc..67459d17e5c57118120d9f45554a97f42490068a 100644 --- a/src/code/lispinit.lisp +++ b/src/code/lispinit.lisp @@ -308,8 +308,7 @@ ;;; in Unwind-Protects will get executed. (declaim (special *lisp-initialization-functions* - *load-time-values* - *enable-darwin-path-normalization*)) + *load-time-values*)) (eval-when (compile) (defmacro print-and-call (name) @@ -345,7 +344,6 @@ (setf *type-system-initialized* nil) (setf *break-on-signals* nil) (setf unix::*filename-encoding* :null) - (setf *enable-darwin-path-normalization* nil) #+gengc (setf conditions::*handler-clusters* nil) (setq intl::*default-domain* "cmucl") (setq intl::*locale* "C") diff --git a/src/code/save.lisp b/src/code/save.lisp index f6c27a728530cf006478f1276998720a59aa2ede..9290113cbf471b6098b75eeb9e00149afc176425 100644 --- a/src/code/save.lisp +++ b/src/code/save.lisp @@ -316,17 +316,6 @@ ;; we've possibly changed the environment variables and ;; pathnames. (environment-init) - #+darwin - (progn - ;; Get some unicode stuff needed for decomposing strings. - ;; This is needed on Darwin to normalize pathname - ;; objects, which needs this information. If we don't, - ;; we'll load the information at runtime when creating - ;; the path to "unidata.dat", which then calls decompose - ;; again, and so on. - (lisp::load-decomp) - (lisp::load-combining) - (setf *enable-darwin-path-normalization* t)) ;; Set the locale for lisp (intl::setlocale) (ext::process-command-strings process-command-line)