b6793d42d5
This change introduces a 2.5kb program that's comes pretty close so far to bootstrapping John McCarthy's metacircular evaluator on bare metal.
13 lines
209 B
Common Lisp
13 lines
209 B
Common Lisp
(DEFUN FF (X)
|
|
(COND ((ATOM X) X)
|
|
((QUOTE T) (FF (CAR X)))))
|
|
(FF '(A B C))
|
|
|
|
((LABEL FF
|
|
(LAMBDA (X)
|
|
(COND ((ATOM X)
|
|
X)
|
|
((QUOTE T)
|
|
(FF (CAR X))))))
|
|
(QUOTE ((A B) C)))
|