GitLab

at 2025-12-13T15:11:21-08:00

Add fixed issue #458 to release notes

Forgot to do that.

[skip-ci]

Use (new) Ubuntu VM to run CI instead of OpenSUSE

Merge branch 'rtoy-add-ubuntu-runner' into 'master'

Use (new) Ubuntu VM to run CI instead of OpenSUSE

See merge request cmucl/cmucl!339
Fix #457:  delete-directory signals errors

Merge branch 'issue-457-delete-directory-signals-errors' into 'master'

Fix #457:  delete-directory signals errors

Closes #457

See merge request cmucl/cmucl!336
Remove extra blank lines

Addresses comment from !337:
https://gitlab.common-lisp.net/cmucl/cmucl/-/merge_requests/337#note_18529

Don't need to run CI for this.

[skip-ci]

Fix #460:  Exit with error if main unit-tests fail

Merge branch 'issue-460-ci-fails-if-unit-tests-do' into 'master'

Fix #460:  Exit with error if main unit-tests fail

Closes #460

See merge request cmucl/cmucl!340
Merge branch 'master' into issue-459-more-accurate-dd-complex-div

   script:

     - echo PATH = $PATH

     - ls -F /usr/local/bin

+    # Make sure gitlab-runner is available because it's needed by the

+    # VM to upload artifacts.

     - type -all gitlab-runner

     # Download binaries.  (Do we really need the extras tarball?)

     - $CURL -o cmucl-$version-$osname.tar.$tar_ext $download_url/cmucl-$version-$osname.tar.$tar_ext

     - make -C build-4/lisp ANALYZER=-fanalyzer > analyzer.log 2>&1

 #### OpenSUSE jobs ####

-opensuse:install:

+ubuntu:install:

   <<: *install_configuration

   tags:

-    - opensuse

+    - ubuntu

   variables:

     osname: "linux"

     CURL: "curl"

-opensuse:build:

+ubuntu:build:

   <<: *build_configuration

   tags:

-    - opensuse

+    - ubuntu

   needs:

-    - job: opensuse:install

+    - job: ubuntu:install

       artifacts: true

-opensuse:test:

+ubuntu:test:

   <<: *unit_test_configuration

   tags:

-    - opensuse

+    - ubuntu

   needs:

     # Needs artifacts from build (dist/)

-    - job: opensuse:build

+    - job: ubuntu:build

       artifacts: true

-opensuse:ansi-test:

+ubuntu:ansi-test:

   <<: *ansi_test_configuration

   tags:

-    - opensuse

+    - ubuntu

   needs:

     # Needs artifacts from build (dist/)

-    - job: opensuse:build

+    - job: ubuntu:build

       artifacts: true

 # Optional job that runs the markdown link checker.  This is optional

     echo "run-tests.sh [-?h] [-d test-dir] [-l lisp] [tests]"

     echo "    -d test-dir  Directory containing the unit test files"

     echo "    -l lisp      Lisp to use for the tests; defaults to lisp"

+    echo "    -p           Skip package-local-nicknames test"

+    echo "    -u           Skip lisp-unit tests"

     echo "    -?           This help message"

     echo "    -h           This help message"

     echo ""

 }

 LISP=lisp

-while getopts "h?l:d:" arg

+while getopts "puh?l:d:" arg

 do

     case $arg in

       l) LISP=$OPTARG ;;

       d) TESTDIR=$OPTARG ;;

+      p) SKIP_PLN=yes ;;

+      u) SKIP_UNIT=yes ;;

       h|\?) usage ;;

     esac

 done

 ln -s /bin/ls test-tmp/ls-link

 # Set the timestamps on 64-bit-timestamp-2038.txt and

-# 64-bit-timestamp-2106.txt.  The time for the first file is a

-# negative value for a 32-bit time_t.  The second file won't fit in a

-# 32-bit time_t value.  It's ok if this doesn't work in general, as

-# long as it works on Linux for the stat test in tests/os.lisp.

-touch -d "1 April 2038" tests/resources/64-bit-timestamp-2038.txt

-touch -d "1 April 2106" tests/resources/64-bit-timestamp-2106.txt

+# 64-bit-timestamp-2106.txt, but only for OSes where we know this

+# works.  (This is so we don't an annoying error message from touch

+# that doesn't accept the -d option, like MacOS 10.13.)  The time for

+# the first file is a negative value for a 32-bit time_t.  The second

+# file won't fit in a 32-bit time_t value.  It's ok if this doesn't

+# work in general, as long as it works on Linux for the stat test in

+# tests/os.lisp.

+case `uname -s` in

+    Linux)

+	touch -d "1 April 2038" tests/resources/64-bit-timestamp-2038.txt

+	touch -d "1 April 2106" tests/resources/64-bit-timestamp-2106.txt

+	;;

+esac

 # Cleanup temp files and directories that we created during testing.

 function cleanup {

 # gcc since clang isn't always available.

 (cd "$TESTDIR" || exit 1 ; gcc -m32 -O3 -c test-return.c)

-if [ $# -eq 0 ]; then

-    # Test directory arg for run-all-tests if a non-default 

-    # No args so run all the tests

-    $LISP -nositeinit -noinit -load "$TESTDIR"/run-tests.lisp -eval "(cmucl-test-runner:run-all-tests ${TESTDIRARG})"

-else

-    # Run selected files.  Convert each file name to uppercase and append "-TESTS"

-    result=""

-    for f in "$@"

-    do

-	new=$(echo "$f" | tr '[:lower:]' '[:upper:]')

-        result="$result "\"$new-TESTS\"

-    done

-    $LISP -nositeinit -noinit -load "$TESTDIR"/run-tests.lisp -eval "(progn (cmucl-test-runner:load-test-files) (cmucl-test-runner:run-test $result))"

+if [ "$SKIP_UNIT" != "yes" ]; then

+    if [ $# -eq 0 ]; then

+	# Test directory arg for run-all-tests if a non-default 

+	# No args so run all the tests

+	$LISP -nositeinit -noinit -load "$TESTDIR"/run-tests.lisp -eval "(cmucl-test-runner:run-all-tests ${TESTDIRARG})" ||

+	    exit 1

+    else

+	# Run selected files.  Convert each file name to uppercase and append "-TESTS"

+	result=""

+	for f in "$@"

+	do

+	    new=$(echo "$f" | tr '[:lower:]' '[:upper:]')

+            result="$result "\"$new-TESTS\"

+	done

+	# Run unit tests.  Exits with a non-zero code if there's a failure.

+

+	$LISP -nositeinit -noinit -load "$TESTDIR"/run-tests.lisp -eval "(progn (cmucl-test-runner:load-test-files) (cmucl-test-runner:run-test $result))" ||

+	    exit 1

+    fi

 fi

 ## Now run tests for trivial-package-local-nicknames

-REPO=trivial-package-local-nicknames

-BRANCH=cmucl-updates

+if [ "$SKIP_PLN" != "yes" ]; then

+    REPO=trivial-package-local-nicknames

+    BRANCH=cmucl-updates

-set -x

-if [ -d ../$REPO ]; then

-    (cd ../$REPO || exit 1; git stash; git checkout $BRANCH; git pull --rebase)

-else

-    (cd ..; git clone https://gitlab.common-lisp.net/cmucl/$REPO.git)

-fi

+    set -x

+    if [ -d ../$REPO ]; then

+	(cd ../$REPO || exit 1; git stash; git checkout $BRANCH; git pull --rebase)

+    else

+	(cd ..; git clone https://gitlab.common-lisp.net/cmucl/$REPO.git)

+    fi

-LISP=$PWD/$LISP

-cd ../$REPO || exit 1

-git checkout $BRANCH

+    LISP=$PWD/$LISP

+    cd ../$REPO || exit 1

+    git checkout $BRANCH

-# Run the tests.  Exits with a non-zero code if there's a failure.

-$LISP -noinit -nositeinit -batch <<'EOF'

+    # Run the tests.  Exits with a non-zero code if there's a failure.

+    $LISP -noinit -nositeinit -batch <<'EOF'

 (require :asdf)

 (push (default-directory) asdf:*central-registry*)

 (asdf:test-system :trivial-package-local-nicknames)

 EOF

+fi

 	     "INVALID-FASL"

 	     "WITH-TEMPORARY-DIRECTORY"

-	     "WITH-TEMPORARY-FILE")

+	     "WITH-TEMPORARY-FILE"

+	     "DELETE-DIRECTORY")

   ;; gencgc features

   #+gencgc

   (:export "GET-GC-ASSERTIONS"

 (defun delete-directory (dirname &key recursive)

   _N"Delete the directory Dirname.  If the Recursive is non-NIL,

   recursively delete the directory Dirname including all files and

-  subdirectories. Dirname must be a pathname to a directory.  Any NAME

-  or TYPE components in Dirname are ignored."

-  (declare (type pathname dirname))

+  subdirectories. Dirname must name a directory.  Any NAME or TYPE

+  components in Dirname are ignored.  A FILE-ERROR is signaled if any

+  directory cannot be deleted."

   (when recursive

     ;; Find all the files or directories in DIRNAME.

     (dolist (path (directory (merge-pathnames "*.*" dirname)))

 	  (delete-directory path :recursive t)

 	  (delete-file path))))

   ;; Finally delete the directory.

-  (unix:unix-rmdir (namestring dirname))

-  (values))

+  (multiple-value-bind (ok errno)

+      (unix:unix-rmdir (namestring dirname))

+    (unless ok

+      (error 'kernel:simple-file-error

+	     :pathname dirname

+	     :format-control (intl:gettext "Could not remove directory \"~A\": ~A.")

+	     :format-arguments (list dirname

+				     (unix:get-unix-error-msg errno))))

+    ok))

 ;;; WITH-TEMPORARY-DIRECTORY  -- Public

     * #446: Use C compiler to get errno values to update UNIX

             defpackage with errno symbols

     * #453: Use correct flags for analyzer and always save logs.

+    * #458: Spurious overflow in double-double-float multiply

   * Other changes:

   * Improvements to the PCL implementation of CLOS:

   * Changes to building procedure:

 msgid ""

 "Delete the directory Dirname.  If the Recursive is non-NIL,\n"

 "  recursively delete the directory Dirname including all files and\n"

-"  subdirectories. Dirname must be a pathname to a directory.  Any NAME\n"

-"  or TYPE components in Dirname are ignored."

+"  subdirectories. Dirname must name a directory.  Any NAME or TYPE\n"

+"  components in Dirname are ignored.  A FILE-ERROR is signaled if any\n"

+"  directory cannot be deleted."

+msgstr ""

+

+#: src/code/extensions.lisp

+msgid "Could not remove directory \"~A\": ~A."

 msgstr ""

 #: src/code/extensions.lisp

 (in-package "FLOAT-X86-TESTS")

+;; This tests the floating-point modes for x86.  This works only if we

+;; have the feature :sse2 but not :darwin since darwin has always used

+;; sse2 and not x87.  But see also how FLOATING-POINT-MODES is

+;; implemented in src/code/float-trap.lisp.

+#+(and sse2 (not darwin))

 (define-test set-floating-point-modes

   (let ((old-x87-modes (x86::x87-floating-point-modes))

 	(old-sse2-modes (x86::sse2-floating-point-modes))

       (assert-equal 2153718000 st-atime)

       (assert-equal 2153718000 st-mtime))))

+#+linux

 (define-test stat.64-bit-timestamp-2106

     (:tag :issues)

   (let ((test-file #.(merge-pathnames "resources/64-bit-timestamp-2106.txt"

       (assert-equal dir-tilde dir-home))))

 (define-test delete-directory

-  (let ((dir (ensure-directories-exist "tmp/a/b/c/")))

-    ;; Verify that the directories were created.

-    (assert-equal "tmp/a/b/c/"

-		  dir)

-    ;; Try to delete the directory.  It should fail, which we verify

-    ;; by noting the directory listing is not empty.

-    (ext::delete-directory (pathname "tmp/"))

-    (assert-true (directory "tmp/"))

-    ;; Now recursively delete the directory.

-    (ext::delete-directory (pathname "tmp/") :recursive t)

-    (assert-false (directory "tmp/"))))
+  (:tag :issues)

+  (ext:with-temporary-directory (path)

+    (let ((dir (ensure-directories-exist (merge-pathnames "tmp/a/b/c/" path))))

+      ;; Try to delete the directory.  It should fail..

+      (assert-error 'kernel:simple-file-error

+		    (ext:delete-directory (merge-pathnames "tmp/" path)))

+      ;; Now recursively delete the directory.

+      (assert-true (ext:delete-directory (merge-pathnames "tmp/" path)

+					 :recursive t))

+      (assert-false (directory "tmp/")))))

Raymond Toy pushed to branch issue-459-more-accurate-dd-complex-div at cmucl / cmucl

Commits:

9 changed files:

Changes: