Skip to content

GitLab

Correct the `cond' forms in cl-print-string-with-limit 

In this function, calling with limit bound to t will cause an
error in any of the cond forms which set print-length, etc.
Correct them!

* lisp/emacs-lisp/cl-print.el (cl-print-string-with-limit):
Amend the doc string.  In the cond forms in the bindings for
print-length, etc., test the value t first.  Amend those for
print-length and print-level also to test for a zero value of
limit.
10 jobs for master in 205 minutes and 13 seconds (queued for 4 seconds)
849de5aa
No related merge requests found.
Status Job ID Name Coverage
  Build Images
passed #74970
build-image-inotify

01:37:13

 
  Normal
failed #74971
test-all-inotify

00:49:32

 
  Platform Images
passed #74972
build-image-eglot

02:00:59

failed #74974
build-image-gnustep

00:46:24

passed #74973
build-image-tree-sitter

02:01:08

 
  Platforms
passed #74975
test-eglot

00:03:13

skipped #74977
test-gnustep
passed #74976
test-tree-sitter

00:02:28

 
  Native Comp Images
passed #74978
build-native-comp-speed2

02:15:31

 
  Native Comp
failed #74979
test-native-comp-speed2

01:09:30

 
Name Stage Failure
failed
test-native-comp-speed2 Native Comp 
$ find ${test_name} ! \( -name "*.log" -o -name ${EMACS_TEST_JUNIT_REPORT} \) -type f -delete
$ find ${test_name} -type d -depth -exec rmdir {} + 2>/dev/null
Uploading artifacts...
test-native-comp-speed2-849de5aa/: found 531 matching files 
Uploading artifacts to coordinator... ok            id=74979 responseStatus=201 Created token=QH_cysPR
Uploading artifacts...
test-native-comp-speed2-849de5aa/junit-test-report.xml: found 1 matching files 
Uploading artifacts to coordinator... ok            id=74979 responseStatus=201 Created token=QH_cysPR
ERROR: Job failed: exit code 2
failed
test-all-inotify Normal 
$ find ${test_name} ! \( -name "*.log" -o -name ${EMACS_TEST_JUNIT_REPORT} \) -type f -delete
$ find ${test_name} -type d -depth -exec rmdir {} + 2>/dev/null
Uploading artifacts...
test-all-inotify-849de5aa/: found 531 matching files 
Uploading artifacts to coordinator... ok            id=74971 responseStatus=201 Created token=9agqryD8
Uploading artifacts...
test-all-inotify-849de5aa/junit-test-report.xml: found 1 matching files 
Uploading artifacts to coordinator... ok            id=74971 responseStatus=201 Created token=9agqryD8
ERROR: Job failed: exit code 2
failed
build-image-gnustep Platform Images 
executor failed running [/bin/sh -c make bootstrap]: exit code: 2
Running after_script
Running after script...
$ test -n "$(docker ps -aq -f name=${test_name})" && docker cp ${test_name}:checkout/test ${test_name}
$ test -n "$(docker ps -aq -f name=${test_name})" && docker rm ${test_name}
$ find ${test_name} ! \( -name "*.log" -o -name ${EMACS_TEST_JUNIT_REPORT} \) -type f -delete
find: build-image-gnustep-849de5aa: No such file or directory
Cleaning up project directory and file based variables
ERROR: Job failed: exit code 1