prasad83 · December 1, 2023 08:44
diff --git a/flet-star-macro.lisp b/flet-star-macro.lisp
 ; clisp provides (let and let*) combos however has only (flet).
 ; Using macro we can define flet* as below

 (defmacro flet* (&rest body)
  `(labels ,@body))

 ; example
 ; (print (flet* ((five-times (n) (* n 5)) 
 ;                (ten-times (n) (* (five-times n) 2)))
 ;               (ten-times (b 10)))
	; clisp provides (let and let*) combos however has only (flet).
	; Using macro we can define flet* as below

	(defmacro flet* (&rest body)
	`(labels ,@body))

	; example
	; (print (flet* ((five-times (n) (* n 5))
	; (ten-times (n) (* (five-times n) 2)))
	; (ten-times (b 10)))