X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/874125c4ed0e20db258c57732c396060075d5557..fe0f07ea19b36ce1abc1ec305d0203323cbf2316:/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))