X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=functions.lisp;h=80f22211aa19474edc12e43f0530fce76b854dd6;hp=ffc8ac6cddbce58debbbc092dfac3c93dff06d4a;hb=c42a864dc07721a3e9504094b5b8095cb5f3d03f;hpb=4de7f25a69c218303f170314ac26217770a531ed

diff --git a/functions.lisp b/functions.lisp
index ffc8ac6..80f2221 100644
--- a/functions.lisp
+++ b/functions.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: functions.lisp,v 1.1 2003/04/28 23:51:59 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -25,8 +25,7 @@
         (multiple-value-bind (val foundp) (gethash args cache)
           (if foundp
               val
-              (setf (gethash args cache) 
-                    (apply fn args)))))))
+	    (setf (gethash args cache) (apply fn args)))))))
 
 (defun memoize (fn-name)
   (setf (fdefinition fn-name) (memo-proc (fdefinition fn-name))))