[git] CMU Common Lisp branch master updated. snapshot-2014-09-3-g9b83625d

Raymond Toy rtoy at common-lisp.net
Fri Sep 5 04:16:07 UTC 2014


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  9b83625d4fc0809170354f5397afb7dab2103d42 (commit)
      from  2ec1fda2a83f17fe9ee580ef14b887b5c66f844a (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 9b83625d4fc0809170354f5397afb7dab2103d42
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Sep 4 21:15:58 2014 -0700

    Wrap all exports in eval-when since export is now an ordinary function
    without any compiler magic.
    
    Untested.

diff --git a/src/compiler/alpha/parms.lisp b/src/compiler/alpha/parms.lisp
index 79e396f..4916ebf 100644
--- a/src/compiler/alpha/parms.lisp
+++ b/src/compiler/alpha/parms.lisp
@@ -40,6 +40,7 @@
 
 ;;;; Machine Architecture parameters:
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(word-bits byte-bits word-shift word-bytes float-sign-shift
 
 	  single-float-bias single-float-exponent-byte
@@ -55,6 +56,7 @@
 	  float-underflow-trap-bit float-overflow-trap-bit
 	  float-imprecise-trap-bit float-invalid-trap-bit
 	  float-divide-by-zero-trap-bit))
+;  ; eval-when
 
 	  
 
@@ -128,11 +130,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.
 ;;; 
@@ -157,10 +161,12 @@
 
 ;;;; 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 single-step-breakpoint
 	  trace-table-normal trace-table-call-site
 	  trace-table-function-prologue trace-table-function-epilogue))
+)
 
 (defenum (:suffix -trap :start 8)
   halt
@@ -181,7 +187,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/compiler/hppa/parms.lisp b/src/compiler/hppa/parms.lisp
index 90259c2..2ad4692 100644
--- a/src/compiler/hppa/parms.lisp
+++ b/src/compiler/hppa/parms.lisp
@@ -39,6 +39,7 @@
 
 ;;;; Machine Architecture parameters:
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(word-bits byte-bits word-shift word-bytes float-sign-shift
 
 	  single-float-bias single-float-exponent-byte
@@ -54,7 +55,7 @@
 	  float-underflow-trap-bit float-overflow-trap-bit
 	  float-imprecise-trap-bit float-invalid-trap-bit
 	  float-divide-by-zero-trap-bit))
-
+) ; eval-when
 	  
 
 (eval-when (compile load eval)
@@ -119,11 +120,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.
@@ -143,11 +146,13 @@
 
 ;;;; 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
 	  single-step-breakpoint-trap
 	  trace-table-normal trace-table-call-site
 	  trace-table-function-prologue trace-table-function-epilogue))
+)
 
 (defenum (:suffix -trap :start 8)
   halt
@@ -168,7 +173,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/compiler/mips/parms.lisp b/src/compiler/mips/parms.lisp
index 7cf4b8a..740258d 100644
--- a/src/compiler/mips/parms.lisp
+++ b/src/compiler/mips/parms.lisp
@@ -50,6 +50,7 @@
 
 ;;;; Machine Architecture parameters:
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(word-bits byte-bits word-shift word-bytes float-sign-shift
 
 	  single-float-bias single-float-exponent-byte
@@ -65,7 +66,7 @@
 	  float-underflow-trap-bit float-overflow-trap-bit
 	  float-imprecise-trap-bit float-invalid-trap-bit
 	  float-divide-by-zero-trap-bit))
-
+) ; eval-when
 
 (eval-when (compile load eval)
 
@@ -129,11 +130,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.
 ;;; 
@@ -147,7 +150,8 @@
 ;;; large object space instead.  Must be less then a page.
 ;;;
 #+gengc
-(export 'large-object-cutoff)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (export 'large-object-cutoff))
 #+gengc
 (defparameter large-object-cutoff 1024)
 
@@ -155,10 +159,12 @@
 
 ;;;; Other non-type constants.
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(atomic-flag interrupted-flag halt-trap pending-interrupt-trap
 	  error-trap cerror-trap breakpoint-trap function-end-breakpoint-trap
 	  after-breakpoint-trap trace-table-normal trace-table-call-site
 	  trace-table-function-prologue trace-table-function-epilogue))
+)
 
 (defenum (:suffix -flag)
   atomic
@@ -183,7 +189,9 @@
 
 ;;;; Static symbols.
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (export '(static-symbols static-functions))
+)
 
 ;;; Static symbols are loaded into static space directly after NIL so
 ;;; that the system can compute their address by adding a constant

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

Summary of changes:
 src/compiler/alpha/parms.lisp |    8 ++++++++
 src/compiler/hppa/parms.lisp  |    9 ++++++++-
 src/compiler/mips/parms.lisp  |   12 ++++++++++--
 3 files changed, 26 insertions(+), 3 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp



More information about the cmucl-cvs mailing list