X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-format.lisp;h=ee5deb16b0c3d49cc11a1eeb777a204bb6695860;hb=22b819c0cd0ca0ea5be52ba280b9e9e0b8e86210;hp=a0d204ebeedcd84a8567f1578109aabca3bc1570;hpb=0118ad1a3d67833723c6c237e99dbc55ec9f02ca;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)