X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/874125c4ed0e20db258c57732c396060075d5557..1a50efd8a9e976bf16a29ce381ea38c6b9a39ea1:/factorial.lisp diff --git a/factorial.lisp b/factorial.lisp index 0155e07..3a76843 100644 --- a/factorial.lisp +++ b/factorial.lisp @@ -11,12 +11,12 @@ ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. -;;; +;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. -;;; +;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software Foundation, ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. @@ -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))