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@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