Изменение кода программы во время ее выполнения на примере Common Lisp

proc program {args} {
  ## save current :
  set self [info body program]
  ## create each new code, evaluate it :
  foreach code $args {
    proc program {args} $code
    program {*}$args
  }
  ## restore self (if needed):
  ## proc program {args} $self
  ##TO_UNCOMMENT puts " !!!! it was a comment ..."
}

# draw code of program:
puts start------code-----[info body program]-----------\n
program {
  #1st program: i=1, print somthing with i
  set i 1
  puts "Program No. $i\n"
} {
  #2nd program: i=2, print somthing with i, modify self again - print current body, execute and modify again :
  set i 2
  puts "Now No. $i"
  # expand previous self :
  set code [string map {{##TO_UNCOMMENT } {}} [uplevel set self]]
  append code {
  puts " !!!! added code ..."
  }
  proc program {args} $code
  puts ...------code-----[info body program]-----------\n
  program {
    #third program: i=3, print somthing with i
    set i 3
    puts "No. equal $i\n"
  }
}
# draw last code of program:
puts \nend------code-----[info body program]-----------\n

start------code-----
  ## save current :
  set self [info body program]
  ## create each new code, evaluate it :
  foreach code $args {
    proc program {args} $code
    program {*}$args
  }
  ## restore self (if needed):
  ## proc program {args} $self
  ##TO_UNCOMMENT puts " !!!! it was a comment ..."
-----------

Program No. 1

Now No. 2
...------code-----
  ## save current :
  set self [info body program]
  ## create each new code, evaluate it :
  foreach code $args {
    proc program {args} $code
    program {*}$args
  }
  ## restore self (if needed):
  ## proc program {args} $self
  puts " !!!! it was a comment ..."

  puts " !!!! added code ..."
  -----------

No. equal 3

 !!!! it was a comment ...
 !!!! added code ...

end------code-----
    #third program: i=3, print somthing with i
    set i 3
    puts "No. equal $i\n"
  -----------