diff options
Diffstat (limited to 'tail-recursion.lisp')
| -rw-r--r-- | tail-recursion.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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) |