I build with CCL on windows again today, and find that my
previous fix d2d7e978d3de17cdadb184ee7c08deed182116fe
is not enough:
I think it needs to have the :win32 feature at compile time,
otherwise the reader macro will discard unused branch
when compiling |trim_directory_name|.
So I moved the code from fricas-lisp.lisp to fricas-package.lisp,
which already have a code block modifying *FEATURES*.
- Qian
diff --git a/src/lisp/fricas-lisp.lisp b/src/lisp/fricas-lisp.lisp
index be51b6fb..bf46a61a 100644
--- a/src/lisp/fricas-lisp.lisp
+++ b/src/lisp/fricas-lisp.lisp
@@ -236,9 +236,6 @@ with this hack and will try to convince the GCL
crowd to fix this.
;;; For ECL assume :unix, when :netbsd or :darwin
#+(and :ecl (or :darwin :netbsd)) (push :unix *features*)
-;;; For Clozure CL assume :win32, when :windows
-#+(and :openmcl :windows) (push :win32 *features*)
-
;;; -----------------------------------------------------------------
;;; Deleting files ignoring errors
diff --git a/src/lisp/fricas-package.lisp b/src/lisp/fricas-package.lisp
index fdc02117..279eeb30 100644
--- a/src/lisp/fricas-package.lisp
+++ b/src/lisp/fricas-package.lisp
@@ -65,6 +65,8 @@
)
#+:openmcl
(eval-when (:execute :compile-toplevel :load-toplevel)
+ ;;; For Clozure CL assume :win32, when :windows
+ #+:windows (push :win32 *features*)
(setf *features* (delete :CCL *features*)))
;;; Package containing Shoe to Lisp translator
--
You received this message because you are subscribed to the Google Groups "FriCAS -
computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/fricas-devel/b26f5ac2-99cc-4ba3-8008-2508eab85c7b%40gmail.com.
