X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-extensions.lisp;h=d8d0d638ebfd59774f94309f0d685b85c112765a;hb=d147d512602d761a2dcdfded506dd1a8f9a140dc;hp=529844a3d62e224e06971165b2c610eb78f92a07;hpb=22217256264c3a7af7dc03b9ffb1dd72a0c25368;p=sbcl.git

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index 529844a..d8d0d63 100644
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -389,8 +389,8 @@
   `(unless ,expr
      (%failed-aver ,(let ((*package* (find-package :keyword)))
 		      (format nil "~S" expr)))))
-(defun %failed-aver (expr)
-  (error "~@<failed AVER: ~2I~_~S~:>" expr))
+(defun %failed-aver (expr-as-string)
+  (error "~@<failed AVER: ~2I~_~S~:>" expr-as-string))
 
 ;;;; utilities for two-VALUES predicates