0.6.11.23:

[sbcl.git] / src / code / early-extensions.lisp

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index 529844a..d8d0d63 100644 (file)
--- 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))
 \f
 ;;;; utilities for two-VALUES predicates