GitLab

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.

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

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

Commits:

2 changed files:

Changes: