From ae11e9116d420ef4cf0aa941a3275d677ff8e2b4 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 9 Jun 2015 14:26:53 -0700 Subject: Spelling error. --- tail-recursion.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tail-recursion.lisp') diff --git a/tail-recursion.lisp b/tail-recursion.lisp index 40e94c9..de3a6d2 100644 --- a/tail-recursion.lisp +++ b/tail-recursion.lisp @@ -125,7 +125,7 @@ matching-label (declare (ignore name)) (when (/= (length args) (length vars)) - (error "ARGTAGS: label ~a caled with wrong argument count in block ~a" + (error "ARGTAGS: label ~a called with wrong argument count in block ~a" label ',block-name)) `(progn ,@(if args `((psetf ,@(mapcan (lambda (gensym arg) -- cgit v1.2.3