This is a maintenance fork
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
(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)))
|
|
|