X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/874125c4ed0e20db258c57732c396060075d5557..a035dd4a8175317f19a35cd04568d1655fb8d417:/factorial.lisp diff --git a/factorial.lisp b/factorial.lisp index 0155e07..59892fe 100644 --- a/factorial.lisp +++ b/factorial.lisp @@ -28,7 +28,7 @@ (in-package #:mdw.factorial) (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))