Self-Modifying Common Lisp

Introduction

Self-modifying Common Lisp - Dialect Design & Implementation

Installation

Install roswell first. Then

ros install libgirlenterprise/smcl

Usage

Quickload it in the project file.

CL-USER> (ql:quickload "smcl")
To load "smcl":
  Load 1 ASDF system:
    smcl
; Loading "smcl"

("smcl")
CL-USER>

Put the source code to run it. (You can change the source code too.)

CL-USER> (com.libgirl.smcl:smcl-thread-run '((:x nil
              (:0
               :0)
              (:list-quote
               (:car (:y :a :b)
                 :y)
               :c))
             (:y (:p1 :p2)
              (:yp
               :yp)
              (:when :p1 :p2))
             (:a (:p1 :p2)
              (:a1
               :0)
              (:list-quote :true (:y :d)))
             (:c nil
              (:0
               :0)
              :e)
             (:e (:p1)
              (:0
               :e2)
              (:p1 (:list-quote :p1 :none)))
             (:f (:x)
              (:f1
               (:list-quote (:defun :f :g)))
              (:e (:y :x)))
             (:8 (:p1)
              (:3
               :9)
              (:when (:when :w) (:cdr :p1)))
             (:z (:p1 :p2)
              ((:list-quote :defun :8)
               (:defun :f (:list-quote (:list-quote :3 (:list-quote :car :cdr)))))
              (:eq :p1 (:p2 (:e :p1) :1)))))
0
CL-USER>

Get the character now.

CL-USER> (com.libgirl.smcl:smcl-get-char)
#\0
CL-USER>

Run steps. (Default step count is 1)

CL-USER> (com.libgirl.smcl:smcl-run-steps)
T
CL-USER>

Repeat 3. and 4. to check the value after self-modifying.

Copyright

License

Licensed under the LLGPL License.