Skip to content
Snippets Groups Projects
Commit 2fb8db98 authored by Raymond Toy's avatar Raymond Toy
Browse files

Disable Darwin path normalization stuff.

Don't set up Unicode stuff needed for Darwin path normalization.  The
code remains, but initialization and enabling of these items are
removed from the initial function.
parent 98435a1a
No related branches found
No related tags found
1 merge request!113Address #158: Filename encoding for Darwin
Pipeline #8082 failed
......@@ -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")
......
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment