0.6.11.24:

[sbcl.git] / src / code / target-eval.lisp

diff --git a/src/code/target-eval.lisp b/src/code/target-eval.lisp
index 8345ec7..f518110 100644 (file)
--- a/src/code/target-eval.lisp
+++ b/src/code/target-eval.lisp
@@ -84,7 +84,7 @@
 ;;;; debuggable macros anyway). In that environment, a stub no-op version of
 ;;;; this function is used.
 (defun try-to-rename-interpreted-function-as-macro (f name lambda-list)
-  (assert (sb!eval:interpreted-function-p f))
+  (aver (sb!eval:interpreted-function-p f))
   (setf (sb!eval:interpreted-function-name f)
        (format nil "DEFMACRO ~S" name)
        (sb!eval:interpreted-function-arglist f)
@@ -103,7 +103,7 @@
 ;;; EVAL-WHEN.
 (defun eval (original-exp)
   #!+sb-doc
-  "Evaluates its single arg in a null lexical environment, returns the
+  "Evaluates its single argument in a null lexical environment, returns the
   result or results."
   (declare (optimize (safety 1)))
   (let ((exp (macroexpand original-exp)))