projects
/
kmrcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ba354a4
)
r4982: Auto commit for Debian build
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Fri, 16 May 2003 13:05:28 +0000
(13:05 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Fri, 16 May 2003 13:05:28 +0000
(13:05 +0000)
functions.lisp
patch
|
blob
|
history
diff --git
a/functions.lisp
b/functions.lisp
index 3bc09bcd8fe6d2bddb3356ab7ba73fca6bd995af..d470866e22406eeb84f75a09bf3d36eb7f4efc87 100644
(file)
--- a/
functions.lisp
+++ b/
functions.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: functions.lisp,v 1.
2 2003/05/16 12:55:15
kevin Exp $
+;;;; $Id: functions.lisp,v 1.
3 2003/05/16 13:05:28
kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-18,7
+18,7
@@
(in-package :kmrcl)
(in-package :kmrcl)
-(defun memo-proc (fn &optional (test 'equal))
+(defun memo-proc (fn &optional (test
#
'equal))
"Memoize results of call to fn, returns a closure with hash-table"
(let ((cache (make-hash-table :test test)))
#'(lambda (&rest args)
"Memoize results of call to fn, returns a closure with hash-table"
(let ((cache (make-hash-table :test test)))
#'(lambda (&rest args)
@@
-27,7
+27,7
@@
val
(setf (gethash args cache) (apply fn args)))))))
val
(setf (gethash args cache) (apply fn args)))))))
-(defun memoize (fn-name &optional (test 'equal))
+(defun memoize (fn-name &optional (test
#
'equal))
(setf (fdefinition fn-name) (memo-proc (fdefinition fn-name) test)))
(defmacro defun-memo (fn args &body body)
(setf (fdefinition fn-name) (memo-proc (fdefinition fn-name) test)))
(defmacro defun-memo (fn args &body body)