diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-06-09 14:26:53 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-06-09 14:26:53 -0700 |
| commit | ae11e9116d420ef4cf0aa941a3275d677ff8e2b4 (patch) | |
| tree | fcf42124932add0b7bdf81677add68c018362d9f /tail-recursion.lisp | |
| parent | ef35b98a4906f26f1f97c601012d24d3ba771152 (diff) | |
| download | lisp-snippets-ae11e9116d420ef4cf0aa941a3275d677ff8e2b4.tar.gz lisp-snippets-ae11e9116d420ef4cf0aa941a3275d677ff8e2b4.tar.bz2 lisp-snippets-ae11e9116d420ef4cf0aa941a3275d677ff8e2b4.zip | |
Spelling error.
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) |