[git] CMU Common Lisp branch master updated. snapshot-2013-05-1-gba06f21

Raymond Toy rtoy at common-lisp.net
Wed May 15 03:02:43 UTC 2013


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  ba06f21ff5d6192b78746bd634eacb69fee17739 (commit)
      from  32d261e41c94c72e95ea13ea87c89a4b6f13ee45 (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 ba06f21ff5d6192b78746bd634eacb69fee17739
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Tue May 14 20:02:28 2013 -0700

    Wrap exports in eval-when.
    
     src/compiler/generic/objdef.lisp::
     src/compiler/generic/utils.lisp:;
     src/compiler/generic/vm-macs.lisp::
     src/compiler/sparc/c-callback.lisp::
     src/compiler/sparc/parms.lisp::
    
      When export lost its compile-time effects and became a normal
      function, the exports in many files no longer took affect while
      compiling the file.  This change makes the compile-time effects
      happen as before in selected files. With this change, the sparc port
      can be cross-compiled from x86 again.
    
     src/tools/cross-scripts/cross-x86-sparc.lisp::
      Need to frob CHAR-BYTES, which is needed by BYTE-BASH-COPY. .

diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp
index 0995883..d97d04e 100644
--- a/src/code/float-trap.lisp
+++ b/src/code/float-trap.lisp
@@ -18,7 +18,9 @@
 (in-package "VM")
 (intl:textdomain "cmucl")
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(current-float-trap floating-point-modes sigfpe-handler))
+)
 (in-package "EXTENSIONS")
 (export '(set-floating-point-modes get-floating-point-modes
 	  with-float-traps-masked))
diff --git a/src/code/room.lisp b/src/code/room.lisp
index 85e8a41..1c5418b 100644
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -15,10 +15,12 @@
 (use-package "SYSTEM")
 (intl:textdomain "cmucl")
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(memory-usage count-no-ops descriptor-vs-non-descriptor-storage
 		       instance-usage find-holes print-allocated-objects
 		       code-breakdown uninterned-symbol-count
 		       list-allocated-objects))
+)
 (in-package "LISP")
 (import '(
 	  dynamic-0-space-start dynamic-1-space-start read-only-space-start
diff --git a/src/code/sparc-svr4-vm.lisp b/src/code/sparc-svr4-vm.lisp
index 92b7af0..646dbd4 100644
--- a/src/code/sparc-svr4-vm.lisp
+++ b/src/code/sparc-svr4-vm.lisp
@@ -17,10 +17,12 @@
 
 (intl:textdomain "cmucl-sparc-vm")
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(fixup-code-object internal-error-arguments
 	  sigcontext-program-counter sigcontext-register
 	  sigcontext-float-register sigcontext-floating-point-modes
 	  extern-alien-name sanctify-for-execution))
+)
 
 #+complex-fp-vops
 (sys:register-lisp-feature :complex-fp-vops)
diff --git a/src/compiler/generic/objdef.lisp b/src/compiler/generic/objdef.lisp
index da04b4f..d64178a 100644
--- a/src/compiler/generic/objdef.lisp
+++ b/src/compiler/generic/objdef.lisp
@@ -17,6 +17,7 @@
 (in-package "VM")
 (intl:textdomain "cmucl")
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(lowtag-bits lowtag-mask lowtag-limit type-bits type-mask
 	  target-most-positive-fixnum target-most-negative-fixnum
 	  even-fixnum-type function-pointer-type other-immediate-0-type
@@ -52,6 +53,7 @@
 	  complex-double-double-float-type
 	  simple-array-double-double-float-type
 	  simple-array-complex-double-double-float-type))
+)
 
 (in-package "KERNEL")
 (export '(%make-funcallable-instance
diff --git a/src/compiler/generic/utils.lisp b/src/compiler/generic/utils.lisp
index e036fa8..fe24ad0 100644
--- a/src/compiler/generic/utils.lisp
+++ b/src/compiler/generic/utils.lisp
@@ -17,8 +17,10 @@
 (in-package "VM")
 (intl:textdomain "cmucl")
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(fixnumize static-symbol-p static-symbol-offset offset-static-symbol
 	  static-function-offset))
+)
 
 
 
diff --git a/src/compiler/generic/vm-macs.lisp b/src/compiler/generic/vm-macs.lisp
index f97ac12..883cdb1 100644
--- a/src/compiler/generic/vm-macs.lisp
+++ b/src/compiler/generic/vm-macs.lisp
@@ -163,8 +163,8 @@
 	(forms `(def-alloc ,alloc-trans ,offset ,variable-length ,header
 			   ,lowtag ',(inits))))
       `(progn
-	 (export ',(exports))
 	 (eval-when (compile load eval)
+	   (export ',(exports))
 	   (%define-primitive-object
 	    ',(make-primitive-object :name name
 				     :header header
diff --git a/src/compiler/sparc/c-callback.lisp b/src/compiler/sparc/c-callback.lisp
index 24bd7af..b1fa10c 100644
--- a/src/compiler/sparc/c-callback.lisp
+++ b/src/compiler/sparc/c-callback.lisp
@@ -13,8 +13,10 @@
 (use-package "ALIEN-INTERNALS")
 
 ;;; Support for callbacks to Lisp.
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(make-callback-trampoline callback-accessor-form
 	  compatible-function-types-p))
+)
 
 (defun callback-accessor-form (type sp offset)
   (let ((parsed-type (alien::parse-alien-type type)))
diff --git a/src/compiler/sparc/parms.lisp b/src/compiler/sparc/parms.lisp
index 4ff61bc..be73a40 100644
--- a/src/compiler/sparc/parms.lisp
+++ b/src/compiler/sparc/parms.lisp
@@ -61,6 +61,7 @@
 
 ;;;; Machine Architecture parameters:
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(word-bits byte-bits char-bits word-shift word-bytes char-bytes
 	  fixnum-tag-bits fixnum-tag-mask positive-fixnum-bits
 
@@ -86,6 +87,7 @@
 	  float-underflow-trap-bit float-overflow-trap-bit
 	  float-imprecise-trap-bit float-invalid-trap-bit
 	  float-divide-by-zero-trap-bit))
+)
 
 #+double-double
 (export '(double-double-float-digits))
@@ -208,11 +210,13 @@
 
 ;;;; Description of the target address space.
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(target-read-only-space-start
 	  target-static-space-start
 	  target-dynamic-space-start
 	  target-foreign-linkage-space-start
 	  target-foreign-linkage-entry-size))
+)
 
 ;;; Where to put the different spaces.  Must match the C code!
 ;;; 
@@ -228,6 +232,7 @@
 
 ;;;; Other random constants.
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(halt-trap pending-interrupt-trap error-trap cerror-trap
 	  breakpoint-trap function-end-breakpoint-trap
 	  after-breakpoint-trap allocation-trap
@@ -239,6 +244,7 @@
 #+heap-overflow-check
 (export '(dynamic-space-overflow-error-trap
 	  dynamic-space-overflow-warning-trap))
+)
 	  
 (defenum (:suffix -trap :start 8)
   halt
@@ -268,7 +274,9 @@
 
 ;;;; Static symbols.
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(static-symbols static-functions))
+)
 
 ;;; These symbols are loaded into static space directly after NIL so
 ;;; that the system can compute their address by adding a constant
diff --git a/src/tools/cross-scripts/cross-x86-sparc.lisp b/src/tools/cross-scripts/cross-x86-sparc.lisp
index 0e6dfbd..3525b69 100644
--- a/src/tools/cross-scripts/cross-x86-sparc.lisp
+++ b/src/tools/cross-scripts/cross-x86-sparc.lisp
@@ -186,8 +186,10 @@
 				       (find-symbol ,(symbol-name sym)
 						    :vm))))
 			       syms))))
-  (frob OLD-VM:BYTE-BITS OLD-VM:WORD-BITS
+  (frob OLD-VM:BYTE-BITS
+	OLD-VM:WORD-BITS
 	OLD-VM:CHAR-BITS
+	OLD-VM:CHAR-BYTES
 	OLD-VM:LOWTAG-BITS
 	#+long-float OLD-VM:SIMPLE-ARRAY-LONG-FLOAT-TYPE 
 	OLD-VM:SIMPLE-ARRAY-DOUBLE-FLOAT-TYPE 

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

Summary of changes:
 src/code/float-trap.lisp                     |    2 ++
 src/code/room.lisp                           |    2 ++
 src/code/sparc-svr4-vm.lisp                  |    2 ++
 src/compiler/generic/objdef.lisp             |    2 ++
 src/compiler/generic/utils.lisp              |    2 ++
 src/compiler/generic/vm-macs.lisp            |    2 +-
 src/compiler/sparc/c-callback.lisp           |    2 ++
 src/compiler/sparc/parms.lisp                |    8 ++++++++
 src/tools/cross-scripts/cross-x86-sparc.lisp |    4 +++-
 9 files changed, 24 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp



More information about the cmucl-cvs mailing list