diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp index 36f14806f69ea0eda905150a18780a78c17cc52d..9ccb3b575c37ae351e67779c91eeb58d21fc5079 100644 --- a/compiler/srctran.lisp +++ b/compiler/srctran.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.15 1990/09/27 18:27:50 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.16 1990/10/03 17:34:40 ram Exp $ ;;; ;;; This file contains macro-like source transformations which convert ;;; uses of certain functions into the canonical form desired within the @@ -1456,7 +1456,7 @@ ((nil) '(length array)) (* - (give-up "Can't tell if ~S is simple" array)))) + (give-up "Can't tell if array is simple.")))) (t '(%array-dimension array axis)))))))