projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8alpha.0.32:
[sbcl.git]
/
src
/
compiler
/
macros.lisp
diff --git
a/src/compiler/macros.lisp
b/src/compiler/macros.lisp
index
f6e4fb0
..
a86bbc9
100644
(file)
--- a/
src/compiler/macros.lisp
+++ b/
src/compiler/macros.lisp
@@
-133,7
+133,7
@@
(deftype attributes () 'fixnum)
(deftype attributes () 'fixnum)
-(eval-when (:compile-toplevel :load-toplevel :execute)
+(eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
;;; Given a list of attribute names and an alist that translates them
;;; to masks, return the OR of the masks.
;;; Given a list of attribute names and an alist that translates them
;;; to masks, return the OR of the masks.
@@
-263,7
+263,7
@@
;;;; to parse the IR1 representation of a function call using a
;;;; standard function lambda-list.
;;;; to parse the IR1 representation of a function call using a
;;;; standard function lambda-list.
-(eval-when (:compile-toplevel :load-toplevel :execute)
+(eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
;;; Given a DEFTRANSFORM-style lambda-list, generate code that parses
;;; the arguments of a combination with respect to that lambda-list.
;;; Given a DEFTRANSFORM-style lambda-list, generate code that parses
;;; the arguments of a combination with respect to that lambda-list.
@@
-689,7
+689,7
@@
,@body))
(defmacro with-component-last-block ((component block) &body body)
,@body))
(defmacro with-component-last-block ((component block) &body body)
- (let ((old-last-block (gensym "OLD-LAST-BLOCK")))
+ (with-unique-names (old-last-block)
(once-only ((component component)
(block block))
`(let ((,old-last-block (component-last-block ,component)))
(once-only ((component component)
(block block))
`(let ((,old-last-block (component-last-block ,component)))
@@
-707,7
+707,7
@@
;;; experimentation, not for ordinary use, so it should probably
;;; become conditional on SB-SHOW.
;;; experimentation, not for ordinary use, so it should probably
;;; become conditional on SB-SHOW.
-(eval-when (:compile-toplevel :load-toplevel :execute)
+(eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
(defstruct (event-info (:copier nil))
;; The name of this event.
(defstruct (event-info (:copier nil))
;; The name of this event.