Dear Prof. Fateman,
On Tue, 26 Nov 2002, Richard Fateman wrote:
> Can you explain why there is a conditionalization
> for #+cl there? I don't see any reason for this
> code to depend on common lisp or not. My thought
> on fixing the code previously displayed was to
> just remove #-cl
> RJF
Yes, I can explain it. It's there because I was very stupid. Here is the
right fix:
(and THANK YOU, I feel a little ashamed...)
diff combin.lisp combin.lisp.~1.2.~
915,920d914
< ; Kratt5, 26.11.2002
< ; adsum's and adusum's the sum of e.
<
< ; It's result is discarded. (at least I think that this function is
< ; only called by sumsum, but there are lots of places where a variable
< ; is called "sum"...)
933,935c927,929
< ;; nil ;; Kratt5 26.11.2002
< ; #-cl
< (let (*a *n) (var *var*)) ; freevar expects "var", not "*var*"
---
> nil
> #-cl
> (let (*a *n)