Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
1 665c255d 2023-08-04 jrmu (defun let*->nested-lets (exp)

2 665c255d 2023-08-04 jrmu   (labels (

3 665c255d 2023-08-04 jrmu 	   (make-rec-let (initforms body)

4 665c255d 2023-08-04 jrmu 	     (if (null initforms)

5 665c255d 2023-08-04 jrmu 		 body

6 665c255d 2023-08-04 jrmu 		 (make-let

7 665c255d 2023-08-04 jrmu 		  (list (car initforms))

8 665c255d 2023-08-04 jrmu 		  (make-rec-let (cdr initforms) body)))))

9 665c255d 2023-08-04 jrmu     (make-rec-let (cadr exp) (caddr exp))))