nightly build make check etc

[<don...@is...>]

1. tail of output of make check:
(seems a bad way for make check to end)

 Copyright (c) Sam Steingold, Bruno Haible 2001-2018

 Type :h and hit Enter for context help.

 ;; connecting to "http://clisp.org/beta/impnotes/id-href.map"...connected...HTTP/1.1 301 Moved Permanently --> "https://clisp.sourceforge.io/beta/impnotes/id-href.map"
 *** - OPEN-HTTP("https://clisp.sourceforge.io/beta/impnotes/id-href.map"):
       HTTPS protocol is not supported yet
 Bye.
 Makefile:2247: recipe for target 'check-doc' failed
 make: *** [check-doc] Error 1


2. tail of output of make extracheck:
(Is this output considered "correct"?)

 STACK size: 98238 [0x180000bfe00 0x18000000010]
 if ./image; then exit 1; fi
 STACK size: 98238 [0x180000bfe00 0x18000000010]
 *** - myerror
 ls -l lisp.run lispinit.mem image image.mem
 -rwxr-xr-x. 1 don don 9894688 Jan 24 04:09 image
 -rw-r--r--. 1 don don 3357472 Jan 24 04:09 image.mem
 -rw-r--r--. 1 don don 3361472 Jan 24 03:09 lispinit.mem
 -rwxr-xr-x. 1 don don 6532472 Jan 24 03:08 lisp.run
 rm -f image image.mem


3. tail of output of make mod-check:
This looks like a big improvement.

 EQL-OK: 5
 RUN-TEST: finished #P"/home/don/hg/clisp/modules/readline/test.tst" (0 errors out of 37 tests)
 finished   4 files:               3 errors out of     632 tests
   1             i18n/test.tst:    0 errors out of      11 tests
   2         syscalls/test.tst:    3 errors out of     264 tests
   3           regexp/test.tst:    0 errors out of     320 tests
   4         readline/test.tst:    0 errors out of      37 tests
 Bye.
 Makefile:2403: recipe for target 'base-mod-check' failed
 make: *** [base-mod-check] Error 1


syscalls/test.erg:

Form: (LET ((DIR "syscalls-tests-dir/") (DEST "qwer/adsf") COPY) (WHEN (NTH-VALUE 1 (ENSURE-DIRECTORIES-EXIST DIR :VERBOSE T)) (MAPC #'DELETE-FILE (DIRECTORY (CONCATENATE 'STRING DIR "**") :IF-DOES-NOT-EXIST :KEEP))) (SETQ COPY (COPY-FILE DEST DIR :METHOD :SYMLINK)) (LIST (STRING= DEST (CAAR COPY)) (STRING= (PATHNAME-NAME DEST) (PATHNAME-NAME (DELETE-FILE (CADAR COPY)))) (DELETE-DIRECTORY DIR) (PROBE-PATHNAME DIR)))
CORRECT: (T T T NIL)
CLISP  : ERROR
OS-FILE-ERROR(ENOENT): No such file or directory
OUT:
"Creating directory: /home/don/hg/clisp/build-dir/syscalls-tests-dir/
[OS-FILE-ERROR]: OS-FILE-ERROR(ENOENT): No such file or directory
"


Form: (LET ((DIR "syscalls-tests-dir/") (LINK #P"syscalls-tests-symlink/")) (LIST (MAKE-DIRECTORY DIR) (STRING= DIR (CAAR (COPY-FILE DIR LINK :METHOD :SYMLINK))) (DELETE-DIRECTORY DIR) (DELETE-DIRECTORY LINK)))
CORRECT: (T T T T)
CLISP  : ERROR
OS-FILE-ERROR(EEXIST): File exists
OUT:
"[OS-FILE-ERROR]: OS-FILE-ERROR(EEXIST): File exists
"


Form: (LET ((DIR "syscalls-tests-dir/") (DEST "foo/bar")) (MAKE-DIRECTORY DIR) (COPY-FILE DEST DIR :METHOD :SYMLINK) (HANDLER-CASE (OR (DELETE-DIRECTORY DIR) (ERROR "deleted non-empty directory")) (OS-ERROR (E) (OR (EQ (OS-ERROR-CODE E) :ENOTEMPTY) (INTEGERP (OS-ERROR-CODE E)) (ERROR "wrong error code: ~s" (OS-ERROR-CODE E))))) (MAPC #'DELETE-FILE (DIRECTORY (CONCATENATE 'STRING DIR "**") :IF-DOES-NOT-EXIST :KEEP)) (DELETE-DIRECTORY DIR))
CORRECT: T
CLISP  : ERROR
OS-FILE-ERROR(EEXIST): File exists
OUT:
"[OS-FILE-ERROR]: OS-FILE-ERROR(EEXIST): File exists
"