-----------------
(defun Y (r) (funcall #'(lambda (f) (funcall f f)) #'(lambda (f) (funcall r #'(lambda (x) (funcall (funcall f f) x))))))
(defun fact-gen (fact-in) #'(lambda (n) (if (eq n 0) 1 (* n (funcall fact-in (- n 1))))))
(funcall (Y #'fact-gen) 1)
----------------- Any suggestions? Thanks!
And yeah... Lisp-2 is a stupid idea.
As to Lisp-2, dude that's a debate that I don't want to get into. :) I'm just happy I can use any kind of Lisp -- the rest is just details.
Yarek
• there are disadvantages as well as advantages to lisp-1; and
• there is nothing about lisp-2-ness itself that requires the verbosity of (funcall #'…)-ing in Common Lisp:
Firstly, even in Common Lisp, (funcall (lambda …) …) and (funcall 'car list) are valid. (And many implementations allow ((lambda …) …) — though I can't remember whether the standard defines this.)
Secondly, funcall can be renamed something shorter (e.g. fun).
And finally, for those lispers not against a little syntax, a lisp-2 could define some syntax so that one could write, e.g. (#f …) for (funcall f …) and (##f …) for (funcall 'f …).
Then the above code would be:
(defun Y (r)
((lambda (f) (#f f))
(lambda (f)
(#r (lambda (x)
(fun (#f f) x))))))