[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-12-33-gb57f602

Raymond Toy rtoy at common-lisp.net
Fri Jan 6 06:05:06 UTC 2012


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  b57f6029c505b50eb9bfa97784627076ed4242f6 (commit)
       via  afbe47a0c7f3400890c897b8bb7af43fc7b20e4c (commit)
       via  f29eb245b1979c66d1e43577a96e7842f4d94b77 (commit)
      from  a29c4320d366db73a86dc135a6bcd17ecfb03876 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit b57f6029c505b50eb9bfa97784627076ed4242f6
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Jan 5 22:04:44 2012 -0800

    The SIGFPE with no exceptions clause really only applies when we're
    not running on solaris/x86.

diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp
index 0ac3898..d800e14 100644
--- a/src/code/float-trap.lisp
+++ b/src/code/float-trap.lisp
@@ -299,10 +299,10 @@
 	     ;; actually save the status word of the FPU.  The
 	     ;; operands also seem to be missing.  Signal a general
 	     ;; arithmetic error.
-	     #+solaris
+	     #+(and x86 solaris)
 	     (error 'arithmetic-error :operands operands)
-	     #-solaris
-	     (error (intl:gettext "SIGFPE with no exceptions currently enabled?")))))))
+	     #-(and x86 solaris)
+	     (error _"SIGFPE with no exceptions currently enabled?"))))))
 
 ;;; WITH-FLOAT-TRAPS-MASKED  --  Public
 ;;;

commit afbe47a0c7f3400890c897b8bb7af43fc7b20e4c
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Jan 5 20:42:53 2012 -0800

    STRING-TO-NFC and friends are available on 8-bit lisps too.

diff --git a/src/code/exports.lisp b/src/code/exports.lisp
index d34e2d3..a46d5bb 100644
--- a/src/code/exports.lisp
+++ b/src/code/exports.lisp
@@ -909,7 +909,7 @@
    "GLYPH" "SGLYPH"
    "STRING-TO-NFC"
    "CODEPOINT-LIMIT" "CODEPOINT")
-  #+unicode
+  ;; Unicode
   (:export "STRING-TO-NFC" "STRING-TO-NFD"
 	   "STRING-TO-NFKC" "STRING-TO-NFKD"
 	   "UNICODE-COMPLETE" "UNICODE-COMPLETE-NAME"

commit f29eb245b1979c66d1e43577a96e7842f4d94b77
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Jan 5 20:19:57 2012 -0800

    Solaris/x86 cc doesn't like $##bytes; use $bytes instead.  This works
    fine with gcc (on darwin and linux).

diff --git a/src/lisp/x86-assem.S b/src/lisp/x86-assem.S
index 5557060..1c166b0 100644
--- a/src/lisp/x86-assem.S
+++ b/src/lisp/x86-assem.S
@@ -71,7 +71,7 @@ GNAME(x):			;
 #define STACK_PROLOGUE(bytes) \
 	pushl	%ebp		; \
 	mov	%esp, %ebp	; \
-	subl	$##bytes, %esp	; \
+	subl	$bytes, %esp	; \
 	andl	$-16, %esp	; 
 
 /* Undo STACK_PROLOGUE */

-----------------------------------------------------------------------

Summary of changes:
 src/code/exports.lisp    |    2 +-
 src/code/float-trap.lisp |    6 +++---
 src/lisp/x86-assem.S     |    2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp




More information about the cmucl-cvs mailing list