X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-format.lisp;h=ee5deb16b0c3d49cc11a1eeb777a204bb6695860;hb=a0a413499415738d23cc40baa44e9c404af54a94;hp=a0d204ebeedcd84a8567f1578109aabca3bc1570;hpb=148e3820ad314a9b59d0133c1d60eaac4af9118b;p=sbcl.git

diff --git a/src/code/late-format.lisp b/src/code/late-format.lisp
index a0d204e..ee5deb1 100644
--- a/src/code/late-format.lisp
+++ b/src/code/late-format.lisp
@@ -327,7 +327,7 @@
        (values (progn ,@body-without-decls)
 	       ,directives))))
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
+(eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
 
 (defun %set-format-directive-expander (char fn)
   (setf (aref *format-directive-expanders* (char-code (char-upcase char))) fn)