Fixed typo in error message from LOCAL-FUNCION-REF (J. James).

This commit is contained in:
Juan Jose Garcia Ripoll 2011-01-24 22:23:23 +01:00
parent 87d159a45d
commit d9a7ebb50c

View file

@ -238,7 +238,7 @@
(when (functionp fun)
(when build-object
;; Macro definition appears in #'.... This should not happen.
(cmperr "The name of a macro ~A was found in special form FUNCTION." name))
(cmperr "The name of a macro ~A was found in special form FUNCTION." fname))
(return-from local-function-ref nil))
(incf (fun-ref fun))
(cond (build-object