X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/512c44e0714c4f1375e8c585b67951644fcf5268..0ff9df03bb54ba792cefa551face51748ae34259:/factorial.lisp diff --git a/factorial.lisp b/factorial.lisp index 0155e07..59892fe 100644 --- a/factorial.lisp +++ b/factorial.lisp @@ -28,7 +28,7 @@ (defun factorial (n) "Compute a factorial. This is a little bit optimized: we try to multiply -values which are similar in size." + values which are similar in size." (when (minusp n) (error "negative factorial argument ~A" n)) (let ((stack nil))