[Git][cmucl/cmucl][issue-158-darwin-pathnames-utf8] Disable Darwin path normalization stuff.

[Raymond Toy (@rtoy)]

Raymond Toy pushed to branch issue-158-darwin-pathnames-utf8 at cmucl / cmucl


Commits:
2fb8db98 by Raymond Toy at 2023-03-12T16:17:13-07:00
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.

- - - - -


2 changed files:

- src/code/lispinit.lisp
- src/code/save.lisp


Changes:

=====================================
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")


=====================================
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)



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2fb8db98f6766d5d38c8c2ce411fe519f99d3195

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2fb8db98f6766d5d38c8c2ce411fe519f99d3195
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20230312/40f6ea69/attachment-0001.html>