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

Commits:

5 changed files:

Changes:

  • bin/clean-target.sh
    ... ... @@ -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
    

  • bin/make-extra-dist.sh
    ... ... @@ -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`
    

  • src/code/c-call.lisp
    ... ... @@ -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))
    

  • src/general-info/release-21f.md
    ... ... @@ -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:
    

  • tests/run-tests.lisp
    ... ... @@ -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.