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

diff --git a/functions.lisp b/functions.lisp
index ffc8ac6..ad262a4 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: functions.lisp,v 1.4 2003/05/17 07:38:54 kevin Exp $
 ;;;;
 ;;;; 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))))