Raymond Toy pushed to branch issue-240-set-diff-with-hash-table at cmucl / cmucl
Commits:
-
f577eda6
by Raymond Toy at 2023-07-23T22:38:00+00:00
-
0411c386
by Raymond Toy at 2023-07-23T22:38:01+00:00
-
3e8b0a12
by Raymond Toy at 2023-07-26T13:43:15+00:00
-
24152f4d
by Raymond Toy at 2023-07-26T13:43:15+00:00
-
5b27393f
by Carl Shapiro at 2023-07-30T21:15:48-07:00
-
a7300f03
by Carl Shapiro at 2023-07-31T05:28:58+00:00
-
fef9f917
by Raymond Toy at 2023-07-31T13:38:26-07:00
5 changed files:
- bin/clean-target.sh
- bin/make-extra-dist.sh
- src/code/c-call.lisp
- src/general-info/release-21f.md
- tests/run-tests.lisp
Changes:
... | ... | @@ -48,10 +48,10 @@ CORE='-o -name "*.core"' |
48 | 48 | |
49 | 49 | if [ -n "$KEEP" ]; then
|
50 | 50 | case $KEEP in
|
51 | - lib) GREP='egrep -v'
|
|
51 | + lib) GREP='grep -Ev'
|
|
52 | 52 | PATTERN='(gray-streams|gray-compat|simple-streams|iodefs|external-formats|clx|hemlock|clm)-library' ;;
|
53 | 53 | core) CORE='' ;;
|
54 | - all) GREP='egrep -v'
|
|
54 | + all) GREP='grep -Ev'
|
|
55 | 55 | PATTERN='(gray-streams|gray-compat|simple-streams|iodefs|external-formats|clx|hemlock|clm)-library|(asdf|defsystem)'
|
56 | 56 | CORE='' ;;
|
57 | 57 | esac
|
... | ... | @@ -94,12 +94,12 @@ install ${GROUP} ${OWNER} -m 0755 $TARGET/motif/server/motifd \ |
94 | 94 | |
95 | 95 | # Install the contrib stuff. Create the directories and then copy the files.
|
96 | 96 | |
97 | -for d in `(cd src; find contrib -type d -print | egrep -v "CVS|asdf|defsystem")`
|
|
97 | +for d in `(cd src; find contrib -type d -print | grep -E -v "CVS|asdf|defsystem")`
|
|
98 | 98 | do
|
99 | 99 | install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/lib/cmucl/lib/$d
|
100 | 100 | done
|
101 | 101 | |
102 | -for f in `(cd src/contrib; find . -type f -print | egrep -v "CVS|asdf|defsystem|unix")`
|
|
102 | +for f in `(cd src/contrib; find . -type f -print | grep -E -v "CVS|asdf|defsystem|unix")`
|
|
103 | 103 | do
|
104 | 104 | FILE=`basename $f`
|
105 | 105 | DIR=`dirname $f`
|
... | ... | @@ -108,13 +108,13 @@ done |
108 | 108 | |
109 | 109 | # Install all the locale data.
|
110 | 110 | |
111 | -for d in `(cd src/i18n/; find locale -type d -print | egrep -v CVS)`
|
|
111 | +for d in `(cd src/i18n/; find locale -type d -print | grep -E -v CVS)`
|
|
112 | 112 | do
|
113 | 113 | install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/lib/cmucl/lib/$d
|
114 | 114 | done
|
115 | 115 | |
116 | 116 | # Install mo files.
|
117 | -for f in `(cd $TARGET/i18n; find locale -type f -print | egrep -v 'CVS|~.*~|.*~')`
|
|
117 | +for f in `(cd $TARGET/i18n; find locale -type f -print | grep -E -v 'CVS|~.*~|.*~')`
|
|
118 | 118 | do
|
119 | 119 | FILE=`basename $f`
|
120 | 120 | DIR=`dirname $f`
|
... | ... | @@ -122,7 +122,7 @@ do |
122 | 122 | done
|
123 | 123 | |
124 | 124 | # Install po files. (Do we really need to distribute the po files?)
|
125 | -#for f in `(cd $TARGET/i18n; find locale -type f -print | egrep -v 'CVS|~.*~|.*~')`
|
|
125 | +#for f in `(cd $TARGET/i18n; find locale -type f -print | grep -E -v 'CVS|~.*~|.*~')`
|
|
126 | 126 | #do
|
127 | 127 | # FILE=`basename $f`
|
128 | 128 | # DIR=`dirname $f`
|
... | ... | @@ -19,7 +19,7 @@ |
19 | 19 | |
20 | 20 | (intl:textdomain "cmucl")
|
21 | 21 | |
22 | -(export '(char short int long long-long unsigned-char unsigned-short unsigned-int
|
|
22 | +(export '(char short int long long-long signed-char unsigned-char unsigned-short unsigned-int
|
|
23 | 23 | unsigned-long unsigned-long-long float double c-string void))
|
24 | 24 |
|
25 | 25 | |
... | ... | @@ -30,6 +30,8 @@ |
30 | 30 | (def-alien-type int (integer 32))
|
31 | 31 | (def-alien-type long (integer #-alpha 32 #+alpha 64))
|
32 | 32 | (def-alien-type long-long (integer 64))
|
33 | +;; The same as c-call:char, for convenience with C signed-char.
|
|
34 | +(def-alien-type signed-char (integer 8))
|
|
33 | 35 | |
34 | 36 | (def-alien-type unsigned-char (unsigned 8))
|
35 | 37 | (def-alien-type unsigned-short (unsigned 16))
|
... | ... | @@ -25,6 +25,7 @@ public domain. |
25 | 25 | * ~~#154~~ piglatin translation does not work anymore
|
26 | 26 | * ~~#171~~ Readably print `(make-pathname :name :unspecfic)`
|
27 | 27 | * ~~#242~~ Fix bug in `alien-funcall` with `c-call:char` as result type
|
28 | + * ~~#244~~ Add `c-call:signed-char`
|
|
28 | 29 | * ~~#248~~ Print MOVS instruction with correct case
|
29 | 30 | * Other changes:
|
30 | 31 | * Improvements to the PCL implementation of CLOS:
|
... | ... | @@ -110,9 +110,10 @@ |
110 | 110 | (format t " ~5D tests failed~%" failed)
|
111 | 111 | (format t " ~5D tests with execution errors~%" execute-errors)
|
112 | 112 | (format t "~5,3f% of the tests passed~%"
|
113 | - (float (* 100
|
|
114 | - (- 1 (/ (+ failed execute-errors)
|
|
115 | - (+ passed failed execute-errors))))))
|
|
113 | + (let ((total (+ passed failed execute-errors)))
|
|
114 | + (if (zerop total)
|
|
115 | + 0.0
|
|
116 | + (* 100.0 (- 1.0 (/ (- total passed) total))))))
|
|
116 | 117 | ;; Print some info about any failed tests. Then exit. We want to
|
117 | 118 | ;; set the exit code so that any scripts runnning this can
|
118 | 119 | ;; determine if there were any test failures.
|