GitLab

at 2023-07-23T22:38:00+00:00

Fix #244:  Add c-call:signed-char

Merge branch 'issue-244-c-call-signed-char' into 'master'

Fix #244:  Add c-call:signed-char

Closes #244

See merge request cmucl/cmucl!157
Fix #245: Replace egrep with grep -E

Merge branch 'issue-245-replace-egrep-with-grep' into 'master'

Fix #245: Replace egrep with grep -E

Closes #245

See merge request cmucl/cmucl!158
Guard against a division by zero in test run reports

Merge branch 'zero-tests' into 'master'

Guard against a division by zero when reporting test results

See merge request cmucl/cmucl!161
Merge branch 'master' into issue-240-set-diff-with-hash-table

Merge branch 'issue-240-set-diff-with-hash-table' into issue-240-intersection-with-hash-table

 if [ -n "$KEEP" ]; then

     case $KEEP in

-      lib) GREP='egrep -v'

+      lib) GREP='grep -Ev'

 	   PATTERN='(gray-streams|gray-compat|simple-streams|iodefs|external-formats|clx|hemlock|clm)-library' ;;

       core) CORE='' ;;

-      all) GREP='egrep -v'

+      all) GREP='grep -Ev'

 	   PATTERN='(gray-streams|gray-compat|simple-streams|iodefs|external-formats|clx|hemlock|clm)-library|(asdf|defsystem)'

 	   CORE='' ;;

     esac

 # Install the contrib stuff.  Create the directories and then copy the files.

-for d in `(cd src; find contrib -type d -print | egrep -v "CVS|asdf|defsystem")`

+for d in `(cd src; find contrib -type d -print | grep -E -v "CVS|asdf|defsystem")`

 do

     install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/lib/cmucl/lib/$d

 done

-for f in `(cd src/contrib; find . -type f -print | egrep -v "CVS|asdf|defsystem|unix")`

+for f in `(cd src/contrib; find . -type f -print | grep -E -v "CVS|asdf|defsystem|unix")`

 do

     FILE=`basename $f`

     DIR=`dirname $f`

 # Install all the locale data.

-for d in `(cd src/i18n/; find locale -type d -print | egrep -v CVS)`

+for d in `(cd src/i18n/; find locale -type d -print | grep -E -v CVS)`

 do

     install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/lib/cmucl/lib/$d

 done

 # Install mo files.

-for f in `(cd $TARGET/i18n; find locale -type f -print | egrep -v 'CVS|~.*~|.*~')`

+for f in `(cd $TARGET/i18n; find locale -type f -print | grep -E -v 'CVS|~.*~|.*~')`

 do

     FILE=`basename $f`

     DIR=`dirname $f`

 done

 # Install po files.  (Do we really need to distribute the po files?)

-#for f in `(cd $TARGET/i18n; find locale -type f -print | egrep -v 'CVS|~.*~|.*~')`

+#for f in `(cd $TARGET/i18n; find locale -type f -print | grep -E -v 'CVS|~.*~|.*~')`

 #do

 #    FILE=`basename $f`

 #    DIR=`dirname $f`

 (intl:textdomain "cmucl")

-(export '(char short int long long-long unsigned-char unsigned-short unsigned-int

+(export '(char short int long long-long signed-char unsigned-char unsigned-short unsigned-int

 	  unsigned-long unsigned-long-long float double c-string void))

 (def-alien-type int (integer 32))

 (def-alien-type long (integer #-alpha 32 #+alpha 64))

 (def-alien-type long-long (integer 64))

+;; The same as c-call:char, for convenience with C signed-char.

+(def-alien-type signed-char (integer 8))

 (def-alien-type unsigned-char (unsigned 8))

 (def-alien-type unsigned-short (unsigned 16))

     * ~~#154~~ piglatin translation does not work anymore

 	* ~~#171~~ Readably print `(make-pathname :name :unspecfic)`

 	* ~~#242~~ Fix bug in `alien-funcall` with `c-call:char` as result type

+    * ~~#244~~ Add `c-call:signed-char`

     * ~~#248~~ Print MOVS instruction with correct case

   * Other changes:

   * Improvements to the PCL implementation of CLOS:

     (format t " ~5D tests failed~%" failed)

     (format t " ~5D tests with execution errors~%" execute-errors)

     (format t "~5,3f% of the tests passed~%"

-	    (float (* 100

-		      (- 1 (/ (+ failed execute-errors)

-			      (+ passed failed execute-errors))))))

+	    (let ((total (+ passed failed execute-errors)))

+	      (if (zerop total)

+		  0.0

+		  (* 100.0 (- 1.0 (/ (- total passed) total))))))

     ;; Print some info about any failed tests.  Then exit.  We want to

     ;; set the exit code so that any scripts runnning this can

     ;; determine if there were any test failures.

Raymond Toy pushed to branch issue-240-intersection-with-hash-table at cmucl / cmucl

Commits:

5 changed files:

Changes: