EusLisp ver. 10

.github/workflows/dfsg-deban-eus10.patch

@@ -0,0 +1,46 @@
+diff --git a/debian/patches/fix-for-blhc.patch b/debian/patches/fix-for-blhc.patch
+index 2d34fab..eec84b2 100644
+--- a/debian/patches/fix-for-blhc.patch
++++ b/debian/patches/fix-for-blhc.patch
+@@ -23,12 +23,12 @@ index abf7b7b..01bc54f 100644
+  (defparameter *defun-list* nil)
+  (defparameter *verbose* nil)
+  (defparameter *optimize* 2)
+-@@ -1261,7 +1261,7 @@
+- 	 (setq file (merge-pathnames ".l" file))
+-          (if (null (probe-file  file)) 
+- 	     (error "file ~A not found~%" file)))
+--      (warn "compiling file: ~A~%" (namestring file))
+-+      ;; (warn "compiling file: ~A~%" (namestring file))
+-       (setq ins (open file))
+-       (setq *defun-list* nil)
+-       (when *multipass-optimize*
++@@ -1855,7 +1855,7 @@
++            (setq file (merge-pathnames ".l" file))
++            (if (null (probe-file  file))
++                (error io-error "file ~A not found~%" file)))
++-        (warn "compiling file: ~A~%" (namestring file))
+++        ;; (warn "compiling file: ~A~%" (namestring file))
++         (setq ins (open file))
++         (setq *defun-list* nil)
++         (when *multipass-optimize*
+diff --git a/debian/patches/fix-for-hardening.patch b/debian/patches/fix-for-hardening.patch
+index f32285e..ad7e358 100644
+--- a/debian/patches/fix-for-hardening.patch
++++ b/debian/patches/fix-for-hardening.patch
+@@ -22,6 +22,7 @@ index 247bfa3..4b8e968 100644
+
+ -CFLAGS= $(WFLAGS) -fPIC -D$(MACHINE) -DLinux -D_REENTRANT -DVERSION=\"$(VERSION)\" \
+ +CFLAGS:= $(CFLAGS) $(CPPFLAGS) $(WFLAGS) -fPIC -D$(MACHINE) -DLinux -D_REENTRANT -DVERSION=\"$(VERSION)\" \
++	-DCOMPILERVERSION=\"$(COMPILERVERSION)\" \
+  	-DLIB6 $(ALIGN_FUNCTIONS) \
+          $(DEBUG) $(CPU_OPTIMIZE) $(THREAD) -D$(XVERSION) \
+  	-DGCC $(GCC3) \
+@@ -78,6 +79,7 @@ index ec1665b..1de89b1 100644
+
+ -CFLAGS=$(WFLAGS) -D$(MACHINE) -DLinux -DARM -D_REENTRANT -DVERSION=\"$(VERSION)\" \
+ +CFLAGS:= $(CFLAGS) $(CPPFLAGS) $(WFLAGS) -D$(MACHINE) -DLinux -DARM -D_REENTRANT -DVERSION=\"$(VERSION)\" \
++	-DCOMPILERVERSION=\"$(COMPILERVERSION)\" \
+  	-DLIB6 $(ALIGN_FUNCTIONS) $(ADD_CFLAGS) \
+          $(DEBUG) $(CPU_OPTIMIZE) $(THREAD) -D$(XVERSION) \
+  	-DGCC $(GCC3) \

.gitignore

@@ -0,0 +1,39 @@
+Linux64
+Darwin
+Linux
+IRIX
+Alpha
+Cygwin
+LinuxARM
+LinuxSH4
+SunOS4
+SunOS5
+IRIX6
+
+include
+
+lisp/Makefile
+lisp/c/makedate.c
+
+lisp/comp/*.c
+lisp/comp/*.h
+lisp/geo/*.c
+lisp/geo/*.h
+lisp/image/*.c
+lisp/image/*.h
+lisp/l/*.c
+lisp/l/*.h
+lisp/opengl/src/*.c
+lisp/opengl/src/*.h
+lisp/xwindow/*.c
+lisp/xwindow/*h
+
+*.aux
+*.idx
+*.ilg
+*.ind
+*.log
+*.out
+*.toc
+*.hlp
+*.dvi

.travis.sh

@@ -81,6 +81,7 @@ if [[ "$QEMU" != "" && "$DOCKER_IMAGE" != "arm64v8/ubuntu:"* ]]; then
     travis_time_start download.euslisp-debian
     export GIT_SSL_NO_VERIFY=1
     git clone http://salsa.debian.org/science-team/euslisp /tmp/euslisp-dfsg
+    patch -d /tmp/euslisp-dfsg -f -p1 < .github/workflows/dfsg-deban-eus10.patch
     for file in $(cat /tmp/euslisp-dfsg/debian/patches/series); do
         # skip patches already applied by https://github.com/euslisp/EusLisp/pull/482
         [[ $file =~ use-rtld-global-loadelf.patch|fix-arm-ldflags.patch|fix-library-not-linked-against-libc.patch|fix-manpage-has-bad-whatis-entry-on-man-pages.patch ]] && continue;

README.md

@@ -27,17 +27,17 @@ $ git clone https://github.com/euslisp/EusLisp euslisp
 $ cd euslisp
 $ export ARCHDIR=Linux64
 $ export EUSDIR=`pwd`
-$ export PATH=$PATH:$EUSDIR/$ARCHDIR/bin
-$ export LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$EUSDIR/$ARCHDIR/lib
+$ export PATH=$EUSDIR/$ARCHDIR/bin:$PATH
+$ export LD_LIBRARY_PATH=$EUSDIR/$ARCHDIR/lib:$LD_LIBRARY_PATH
 $ cd lisp
 $ ln -sf Makefile.Linux64 Makefile
 $ make eus0 eus1 eus2 eusg eusx eusgl eus
 ```
 
-For cygwin sytem, set ARCHDIR=Cygwin and ln -sf Makefile.Cygwin Makefile<br>
+For cygwin system, set ARCHDIR=Cygwin and ln -sf Makefile.Cygwin Makefile<br>
 For 32bit Linux system, set ARCHDIR=Linux and ln -sf Makefile.Linux.thread Makefile
 
-### Documnets
+### Documents
 
 See online [manual](http://euslisp.github.io/EusLisp/manual.html). (Japanese translation [manual](http://euslisp.github.io/EusLisp/jmanual.html))
 

contrib/utyo/select.l

@@ -312,7 +312,6 @@
 (defun reploop (prompt)		;read-eval-print loop
   (let* ((result)
 	 (ttyp (unix:isatty *terminal-io*))
-	 (*error-handler* 'euserror)
 	 (eof (gensym))
 	 (command) (input)
 	 (arg) (arglist) (local-bindings) (special-bindings))

doc/help.eus/makehelp.l

@@ -30,13 +30,16 @@
 			      "sequences"
 			      "io"
 			      "evaluation"
+			      "types"
 			      "sysfunc"
 			      "matrix"
 			      "geometry"
 			      "contact"
 			      "voronoi"
 			      "graphics"
 			      "xwindow"
+			      "xtoolkit"
+			      "mthread"
 			      "image"
 			      "manipulator"))
 (defvar *eus-jtex-list* (list "jintro"
@@ -56,6 +59,8 @@
 			      "jvoronoi"
 			      "jgraphics"
 			      "jxwindow"
+			      "jxtoolkit"
+			      "jmthread"
 			      "jimage"
 			      "jmanipulator"))