Dynamic programming language
Programming languages with runtime extensibility
- 13 min read
- 3 chapters
Related on Lably
Through Inheritance (object-oriented programming), Method (computer programming) and Polymorphism (computer science)
For instance, in a dynamic language, a variable can start as an integer. It can later be reassigned to hold a string without explicit type declarations. This feature of dynamic typing enables more fluid and less restrictive coding. Developers can focus on the logic and functionality rather than the constraints of the language.
Implementation
Eval
Some dynamic languages offer an eval function. This function takes a string or abstract syntax tree containing code in the language and executes it. If this code stands for an expression, the resulting value is returned. Erik Meijer and Peter Drayton distinguish the runtime code generation offered by eval from the dynamic loading offered by shared libraries and warn that in many cases eval is used merely to implement higher-order functions (by passing functions as strings) or deserialization.
Object runtime alteration
A type or object system can typically be modified during runtime in a dynamic language. This can mean generating new objects from a runtime definition or based on mixins of existing types or objects. This can also refer to changing the inheritance or type tree, and thus altering the way that existing types behave (especially with respect to the invocation of methods).
Type inference
As a lot of dynamic languages come with a dynamic type system, runtime inference of types based on values for internal interpretation marks a common task. As value types may change throughout interpretation, it is regularly used upon performing atomic operations.
Variable memory allocation
Static programming languages (possibly indirectly) require developers to define the size of utilized memory before compilation (unless working around with pointer logic). Consistent with object runtime alteration, dynamic languages implicitly need to (re-)allocate memory based on program individual operations.
Reflection
Reflective programming (reflection) is common in many dynamic languages, and typically involves analysis of the types and metadata of generic or polymorphic data. However, it can also include full evaluation and modification of a program's code as data, as in the features that Lisp provides in analyzing S-expressions.
Macros
A limited number of dynamic programming languages provide features which combine code introspection (the ability to examine classes, functions, and keywords to know what they are, what they do and what they know) and eval in a feature called macros. Most programmers today who are aware of the term macro have encountered them in C or C++, where they are a static feature which is built in a small subset of the language, and are capable only of string substitutions on the text of the program. In dynamic languages, however, they provide access to the inner workings of the compiler, and full access to the interpreter, virtual machine, or runtime, allowing the definition of language-like constructs which can optimize code or modify the syntax or grammar of the language.
Assembly, C, C++, early Java, and Fortran do not generally fit into this category.
The earliest dynamic programming language is considered to be Lisp (McCarthy, 1965) which continued to influence the design of programming languages to the present day.
Sign in to keep reading
2 more chapters are free with a Lably account.
Example code
The following examples show dynamic features using the language Common Lisp and its Common Lisp Object System (CLOS).
Computation of code at runtime and late binding
The example shows how a function can be modified at runtime from computed source code
<span id="mwRg"></span><span class="c1" id="mwRw">; the source code is stored as data in a variable</span> <span class="nv" id="mwSA">CL-USER</span><span class="w" id="mwSQ"> </span><span class="nb" id="mwSg">></span><span class="w" id="mwSw"> </span><span class="p" id="mwTA">(</span><span class="nb" id="mwTQ">defparameter</span><span class="w" id="mwTg"> </span><span class="vg" id="mwTw">*best-guess-formula*</span><span class="w" id="mwUA"> </span><span class="o" id="mwUQ">'</span><span class="p" id="mwUg">(</span><span class="k" id="mwUw">lambda</span><span class="w" id="mwVA"> </span><span class="p" id="mwVQ">(</span><span class="nv" id="mwVg">x</span><span class="p" id="mwVw">)</span><span class="w" id="mwWA"> </span><span class="p" id="mwWQ">(</span><span class="nb" id="mwWg">*</span><span class="w" id="mwWw"> </span><span class="nv" id="mwXA">x</span><span class="w" id="mwXQ"> </span><span class="nv" id="mwXg">x</span><span class="w" id="mwXw"> </span><span class="mf" id="mwYA">2.5</span><span class="p" id="mwYQ">)))</span> <span class="vg" id="mwYg">*BEST-GUESS-FORMULA*</span> <span class="c1" id="mwYw">; a function is created from the code and compiled at runtime, the function is available under the name best-guess</span> <span class="nv" id="mwZA">CL-USER</span><span class="w" id="mwZQ"> </span><span class="nb" id="mwZg">></span><span class="w" id="mwZw"> </span><span class="p" id="mwaA">(</span><span class="nb" id="mwaQ">compile</span><span class="w" id="mwag"> </span><span class="ss" id="mwaw">'best-guess</span><span class="w" id="mwbA"> </span><span class="vg" id="mwbQ">*best-guess-formula*</span><span class="p" id="mwbg">)</span> <span class="err" id="mwbw">#</span><span class="nv" id="mwcA"><Function</span><span class="w" id="mwcQ"> </span><span class="mi" id="mwcg">15</span><span class="w" id="mwcw"> </span><span class="nv" id="mwdA">40600152F4></span> <span class="c1" id="mwdQ">; the function can be called</span> <span class="nv" id="mwdg">CL-USER</span><span class="w" id="mwdw"> </span><span class="nb" id="mweA">></span><span class="w" id="mweQ"> </span><span class="p" id="mweg">(</span><span class="nv" id="mwew">best-guess</span><span class="w" id="mwfA"> </span><span class="mf" id="mwfQ">10.3</span><span class="p" id="mwfg">)</span> <span class="mf" id="mwfw">265.225</span> <span class="c1" id="mwgA">; the source code might be improved at runtime</span> <span class="nv" id="mwgQ">CL-USER</span><span class="w" id="mwgg"> </span><span class="nb" id="mwgw">></span><span class="w" id="mwhA"> </span><span class="p" id="mwhQ">(</span><span class="nb" id="mwhg">setf</span><span class="w" id="mwhw"> </span><span class="vg" id="mwiA">*best-guess-formula*</span><span class="w" id="mwiQ"> </span><span class="o" id="mwig">`</span><span class="p" id="mwiw">(</span><span class="k" id="mwjA">lambda</span><span class="w" id="mwjQ"> </span><span class="p" id="mwjg">(</span><span class="nv" id="mwjw">x</span><span class="p" id="mwkA">)</span><span class="w" id="mwkQ"> </span><span class="o" id="mwkg">,</span><span class="p" id="mwkw">(</span><span class="nb" id="mwlA">list</span><span class="w" id="mwlQ"> </span><span class="ss" id="mwlg">'sqrt</span><span class="w" id="mwlw"> </span><span class="p" id="mwmA">(</span><span class="nb" id="mwmQ">third</span><span class="w" id="mwmg"> </span><span class="vg" id="mwmw">*best-guess-formula*</span><span class="p" id="mwnA">))))</span> <span class="p" id="mwnQ">(</span><span class="nv" id="mwng">LAMBDA</span><span class="w" id="mwnw"> </span><span class="p" id="mwoA">(</span><span class="nv" id="mwoQ">X</span><span class="p" id="mwog">)</span><span class="w" id="mwow"> </span><span class="p" id="mwpA">(</span><span class="nv" id="mwpQ">SQRT</span><span class="w" id="mwpg"> </span><span class="p" id="mwpw">(</span><span class="nb" id="mwqA">*</span><span class="w" id="mwqQ"> </span><span class="nv" id="mwqg">X</span><span class="w" id="mwqw"> </span><span class="nv" id="mwrA">X</span><span class="w" id="mwrQ"> </span><span class="mf" id="mwrg">2.5</span><span class="p" id="mwrw">)))</span> <span class="c1" id="mwsA">; a new version of the function is being compiled</span> <span class="nv" id="mwsQ">CL-USER</span><span class="w" id="mwsg"> </span><span class="nb" id="mwsw">></span><span class="w" id="mwtA"> </span><span class="p" id="mwtQ">(</span><span class="nb" id="mwtg">compile</span><span class="w" id="mwtw"> </span><span class="ss" id="mwuA">'best-guess</span><span class="w" id="mwuQ"> </span><span class="vg" id="mwug">*best-guess-formula*</span><span class="p" id="mwuw">)</span> <span class="err" id="mwvA">#</span><span class="nv" id="mwvQ"><Function</span><span class="w" id="mwvg"> </span><span class="mi" id="mwvw">16</span><span class="w" id="mwwA"> </span><span class="nv" id="mwwQ">406000085C></span> <span class="c1" id="mwwg">; the next call will call the new function, a feature of late binding</span> <span class="nv" id="mwww">CL-USER</span><span class="w" id="mwxA"> </span><span class="nb" id="mwxQ">></span><span class="w" id="mwxg"> </span><span class="p" id="mwxw">(</span><span class="nv" id="mwyA">best-guess</span><span class="w" id="mwyQ"> </span><span class="mf" id="mwyg">10.3</span><span class="p" id="mwyw">)</span> <span class="mf" id="mwzA">16.28573</span>
Object runtime alteration
This example shows how an existing instance can be changed to include a new slot when its class changes and that an existing method can be replaced with a new version.
<span id="mw0Q"></span><span class="c1" id="mw0g">; a person class. The person has a name.</span> <span class="nv" id="mw0w">CL-USER</span><span class="w" id="mw1A"> </span><span class="nb" id="mw1Q">></span><span class="w" id="mw1g"> </span><span class="p" id="mw1w">(</span><span class="nb" id="mw2A">defclass</span><span class="w" id="mw2Q"> </span><span class="nv" id="mw2g">person</span><span class="w" id="mw2w"> </span><span class="p" id="mw3A">()</span><span class="w" id="mw3Q"> </span><span class="p" id="mw3g">((</span><span class="nv" id="mw3w">name</span><span class="w" id="mw4A"> </span><span class="ss" id="mw4Q">:initarg</span><span class="w" id="mw4g"> </span><span class="ss" id="mw4w">:name</span><span class="p" id="mw5A">)))</span> <span class="err" id="mw5Q">#</span><span class="nv" id="mw5g"><STANDARD-CLASS</span><span class="w" id="mw5w"> </span><span class="nv" id="mw6A">PERSON</span><span class="w" id="mw6Q"> </span><span class="nv" id="mw6g">4020081FB3></span> <span class="c1" id="mw6w">; a custom printing method for the objects of class person</span> <span class="nv" id="mw7A">CL-USER</span><span class="w" id="mw7Q"> </span><span class="nb" id="mw7g">></span><span class="w" id="mw7w"> </span><span class="p" id="mw8A">(</span><span class="nb" id="mw8Q">defmethod</span><span class="w" id="mw8g"> </span><span class="nb" id="mw8w">print-object</span><span class="w" id="mw9A"> </span><span class="p" id="mw9Q">((</span><span class="nv" id="mw9g">p</span><span class="w" id="mw9w"> </span><span class="nv" id="mw-A">person</span><span class="p" id="mw-Q">)</span><span class="w" id="mw-g"> </span><span class="nc" id="mw-w">stream</span><span class="p" id="mw_A">)</span> <span class="w" id="mw_Q"> </span><span class="p" id="mw_g">(</span><span class="nb" id="mw_w">print-unreadable-object</span><span class="w" id="mwAQA"> </span><span class="p" id="mwAQE">(</span><span class="nv" id="mwAQI">p</span><span class="w" id="mwAQM"> </span><span class="nc" id="mwAQQ">stream</span><span class="w" id="mwAQU"> </span><span class="ss" id="mwAQY">:type</span><span class="w" id="mwAQc"> </span><span class="no" id="mwAQg">t</span><span class="p" id="mwAQk">)</span> <span class="w" id="mwAQo"> </span><span class="p" id="mwAQs">(</span><span class="nb" id="mwAQw">format</span><span class="w" id="mwAQ0"> </span><span class="nc" id="mwAQ4">stream</span><span class="w" id="mwAQ8"> </span><span class="s" id="mwARA">"~a"</span><span class="w" id="mwARE"> </span><span class="p" id="mwARI">(</span><span class="nb" id="mwARM">slot-value</span><span class="w" id="mwARQ"> </span><span class="nv" id="mwARU">p</span><span class="w" id="mwARY"> </span><span class="ss" id="mwARc">'name</span><span class="p" id="mwARg">))))</span> <span class="err" id="mwARk">#</span><span class="nv" id="mwARo"><STANDARD-METHOD</span><span class="w" id="mwARs"> </span><span class="nv" id="mwARw">PRINT-OBJECT</span><span class="w" id="mwAR0"> </span><span class="no" id="mwAR4">NIL</span><span class="w" id="mwAR8"> </span><span class="p" id="mwASA">(</span><span class="nv" id="mwASE">PERSON</span><span class="w" id="mwASI"> </span><span class="no" id="mwASM">T</span><span class="p" id="mwASQ">)</span><span class="w" id="mwASU"> </span><span class="nv" id="mwASY">4020066E5B></span> <span class="c1" id="mwASc">; one example person instance</span> <span class="nv" id="mwASg">CL-USER</span><span class="w" id="mwASk"> </span><span class="nb" id="mwASo">></span><span class="w" id="mwASs"> </span><span class="p" id="mwASw">(</span><span class="nb" id="mwAS0">setf</span><span class="w" id="mwAS4"> </span><span class="vg" id="mwAS8">*person-1*</span><span class="w" id="mwATA"> </span><span class="p" id="mwATE">(</span><span class="nb" id="mwATI">make-instance</span><span class="w" id="mwATM"> </span><span class="ss" id="mwATQ">'person</span><span class="w" id="mwATU"> </span><span class="ss" id="mwATY">:name</span><span class="w" id="mwATc"> </span><span class="s" id="mwATg">"Eva Luator"</span><span class="p" id="mwATk">))</span> <span class="err" id="mwATo">#</span><span class="nv" id="mwATs"><PERSON</span><span class="w" id="mwATw"> </span><span class="nv" id="mwAT0">Eva</span><span class="w" id="mwAT4"> </span><span class="nv" id="mwAT8">Luator></span> <span class="c1" id="mwAUA">; the class person gets a second slot. It then has the slots name and age.</span> <span class="nv" id="mwAUE">CL-USER</span><span class="w" id="mwAUI"> </span><span class="nb" id="mwAUM">></span><span class="w" id="mwAUQ"> </span><span class="p" id="mwAUU">(</span><span class="nb" id="mwAUY">defclass</span><span class="w" id="mwAUc"> </span><span class="nv" id="mwAUg">person</span><span class="w" id="mwAUk"> </span><span class="p" id="mwAUo">()</span><span class="w" id="mwAUs"> </span><span class="p" id="mwAUw">((</span><span class="nv" id="mwAU0">name</span><span class="w" id="mwAU4"> </span><span class="ss" id="mwAU8">:initarg</span><span class="w" id="mwAVA"> </span><span class="ss" id="mwAVE">:name</span><span class="p" id="mwAVI">)</span><span class="w" id="mwAVM"> </span><span class="p" id="mwAVQ">(</span><span class="nv" id="mwAVU">age</span><span class="w" id="mwAVY"> </span><span class="ss" id="mwAVc">:initarg</span><span class="w" id="mwAVg"> </span><span class="ss" id="mwAVk">:age</span><span class="w" id="mwAVo"> </span><span class="ss" id="mwAVs">:initform</span><span class="w" id="mwAVw"> </span><span class="ss" id="mwAV0">:unknown</span><span class="p" id="mwAV4">)))</span> <span class="err" id="mwAV8">#</span><span class="nv" id="mwAWA"><STANDARD-CLASS</span><span class="w" id="mwAWE"> </span><span class="nv" id="mwAWI">PERSON</span><span class="w" id="mwAWM"> </span><span class="nv" id="mwAWQ">4220333E23></span> <span class="c1" id="mwAWU">; updating the method to print the object</span> <span class="nv" id="mwAWY">CL-USER</span><span class="w" id="mwAWc"> </span><span class="nb" id="mwAWg">></span><span class="w" id="mwAWk"> </span><span class="p" id="mwAWo">(</span><span class="nb" id="mwAWs">defmethod</span><span class="w" id="mwAWw"> </span><span class="nb" id="mwAW0">print-object</span><span class="w" id="mwAW4"> </span><span class="p" id="mwAW8">((</span><span class="nv" id="mwAXA">p</span><span class="w" id="mwAXE"> </span><span class="nv" id="mwAXI">person</span><span class="p" id="mwAXM">)</span><span class="w" id="mwAXQ"> </span><span class="nc" id="mwAXU">stream</span><span class="p" id="mwAXY">)</span> <span class="w" id="mwAXc"> </span><span class="p" id="mwAXg">(</span><span class="nb" id="mwAXk">print-unreadable-object</span><span class="w" id="mwAXo"> </span><span class="p" id="mwAXs">(</span><span class="nv" id="mwAXw">p</span><span class="w" id="mwAX0"> </span><span class="nc" id="mwAX4">stream</span><span class="w" id="mwAX8"> </span><span class="ss" id="mwAYA">:type</span><span class="w" id="mwAYE"> </span><span class="no" id="mwAYI">t</span><span class="p" id="mwAYM">)</span> <span class="w" id="mwAYQ"> </span><span class="p" id="mwAYU">(</span><span class="nb" id="mwAYY">format</span><span class="w" id="mwAYc"> </span><span class="nc" id="mwAYg">stream</span><span class="w" id="mwAYk"> </span><span class="s" id="mwAYo">"~a age: ~"</span><span class="w" id="mwAYs"> </span><span class="p" id="mwAYw">(</span><span class="nb" id="mwAY0">slot-value</span><span class="w" id="mwAY4"> </span><span class="nv" id="mwAY8">p</span><span class="w" id="mwAZA"> </span><span class="ss" id="mwAZE">'name</span><span class="p" id="mwAZI">)</span><span class="w" id="mwAZM"> </span><span class="p" id="mwAZQ">(</span><span class="nb" id="mwAZU">slot-value</span><span class="w" id="mwAZY"> </span><span class="nv" id="mwAZc">p</span><span class="w" id="mwAZg"> </span><span class="ss" id="mwAZk">'age</span><span class="p" id="mwAZo">))))</span> <span class="err" id="mwAZs">#</span><span class="nv" id="mwAZw"><STANDARD-METHOD</span><span class="w" id="mwAZ0"> </span><span class="nv" id="mwAZ4">PRINT-OBJECT</span><span class="w" id="mwAZ8"> </span><span class="no" id="mwAaA">NIL</span><span class="w" id="mwAaE"> </span><span class="p" id="mwAaI">(</span><span class="nv" id="mwAaM">PERSON</span><span class="w" id="mwAaQ"> </span><span class="no" id="mwAaU">T</span><span class="p" id="mwAaY">)</span><span class="w" id="mwAac"> </span><span class="nv" id="mwAag">402022ADE3></span> <span class="c1" id="mwAak">; the existing object has now changed, it has an additional slot and a new print method</span> <span class="nv" id="mwAao">CL-USER</span><span class="w" id="mwAas"> </span><span class="nb" id="mwAaw">></span><span class="w" id="mwAa0"> </span><span class="vg" id="mwAa4">*person-1*</span> <span class="err" id="mwAa8">#</span><span class="nv" id="mwAbA"><PERSON</span><span class="w" id="mwAbE"> </span><span class="nv" id="mwAbI">Eva</span><span class="w" id="mwAbM"> </span><span class="nv" id="mwAbQ">Luator</span><span class="w" id="mwAbU"> </span><span class="nv" id="mwAbY">age:</span><span class="w" id="mwAbc"> </span><span class="nv" id="mwAbg">UNKNOWN></span> <span class="c1" id="mwAbk">; we can set the new age slot of instance</span> <span class="nv" id="mwAbo">CL-USER</span><span class="w" id="mwAbs"> </span><span class="nb" id="mwAbw">></span><span class="w" id="mwAb0"> </span><span class="p" id="mwAb4">(</span><span class="nb" id="mwAb8">setf</span><span class="w" id="mwAcA"> </span><span class="p" id="mwAcE">(</span><span class="nb" id="mwAcI">slot-value</span><span class="w" id="mwAcM"> </span><span class="vg" id="mwAcQ">*person-1*</span><span class="w" id="mwAcU"> </span><span class="ss" id="mwAcY">'age</span><span class="p" id="mwAcc">)</span><span class="w" id="mwAcg"> </span><span class="mi" id="mwAck">25</span><span class="p" id="mwAco">)</span> <span class="mi" id="mwAcs">25</span> <span class="c1" id="mwAcw">; the object has been updated</span> <span class="nv" id="mwAc0">CL-USER</span><span class="w" id="mwAc4"> </span><span class="nb" id="mwAc8">></span><span class="w" id="mwAdA"> </span><span class="vg" id="mwAdE">*person-1*</span> <span class="err" id="mwAdI">#</span><span class="nv" id="mwAdM"><PERSON</span><span class="w" id="mwAdQ"> </span><span class="nv" id="mwAdU">Eva</span><span class="w" id="mwAdY"> </span><span class="nv" id="mwAdc">Luator</span><span class="w" id="mwAdg"> </span><span class="nv" id="mwAdk">age:</span><span class="w" id="mwAdo"> </span><span class="nv" id="mwAds">25></span>
Assembling of code at runtime based on the class of instances
In the next example, the class person gets a new superclass. The print method gets redefined such that it assembles several methods into the effective method. The effective method gets assembled based on the class of the argument and the at runtime available and applicable methods.
<span id="mwAeI"></span><span class="c1" id="mwAeM">; the class person</span> <span class="nv" id="mwAeQ">CL-USER</span><span class="w" id="mwAeU"> </span><span class="nb" id="mwAeY">></span><span class="w" id="mwAec"> </span><span class="p" id="mwAeg">(</span><span class="nb" id="mwAek">defclass</span><span class="w" id="mwAeo"> </span><span class="nv" id="mwAes">person</span><span class="w" id="mwAew"> </span><span class="p" id="mwAe0">()</span><span class="w" id="mwAe4"> </span><span class="p" id="mwAe8">((</span><span class="nv" id="mwAfA">name</span><span class="w" id="mwAfE"> </span><span class="ss" id="mwAfI">:initarg</span><span class="w" id="mwAfM"> </span><span class="ss" id="mwAfQ">:name</span><span class="p" id="mwAfU">)))</span> <span class="err" id="mwAfY">#</span><span class="nv" id="mwAfc"><STANDARD-CLASS</span><span class="w" id="mwAfg"> </span><span class="nv" id="mwAfk">PERSON</span><span class="w" id="mwAfo"> </span><span class="nv" id="mwAfs">4220333E23></span> <span class="c1" id="mwAfw">; a person just prints its name</span> <span class="nv" id="mwAf0">CL-USER</span><span class="w" id="mwAf4"> </span><span class="nb" id="mwAf8">></span><span class="w" id="mwAgA"> </span><span class="p" id="mwAgE">(</span><span class="nb" id="mwAgI">defmethod</span><span class="w" id="mwAgM"> </span><span class="nb" id="mwAgQ">print-object</span><span class="w" id="mwAgU"> </span><span class="p" id="mwAgY">((</span><span class="nv" id="mwAgc">p</span><span class="w" id="mwAgg"> </span><span class="nv" id="mwAgk">person</span><span class="p" id="mwAgo">)</span><span class="w" id="mwAgs"> </span><span class="nc" id="mwAgw">stream</span><span class="p" id="mwAg0">)</span> <span class="w" id="mwAg4"> </span><span class="p" id="mwAg8">(</span><span class="nb" id="mwAhA">print-unreadable-object</span><span class="w" id="mwAhE"> </span><span class="p" id="mwAhI">(</span><span class="nv" id="mwAhM">p</span><span class="w" id="mwAhQ"> </span><span class="nc" id="mwAhU">stream</span><span class="w" id="mwAhY"> </span><span class="ss" id="mwAhc">:type</span><span class="w" id="mwAhg"> </span><span class="no" id="mwAhk">t</span><span class="p" id="mwAho">)</span> <span class="w" id="mwAhs"> </span><span class="p" id="mwAhw">(</span><span class="nb" id="mwAh0">format</span><span class="w" id="mwAh4"> </span><span class="nc" id="mwAh8">stream</span><span class="w" id="mwAiA"> </span><span class="s" id="mwAiE">"~a"</span><span class="w" id="mwAiI"> </span><span class="p" id="mwAiM">(</span><span class="nb" id="mwAiQ">slot-value</span><span class="w" id="mwAiU"> </span><span class="nv" id="mwAiY">p</span><span class="w" id="mwAic"> </span><span class="ss" id="mwAig">'name</span><span class="p" id="mwAik">))))</span> <span class="err" id="mwAio">#</span><span class="nv" id="mwAis"><STANDARD-METHOD</span><span class="w" id="mwAiw"> </span><span class="nv" id="mwAi0">PRINT-OBJECT</span><span class="w" id="mwAi4"> </span><span class="no" id="mwAi8">NIL</span><span class="w" id="mwAjA"> </span><span class="p" id="mwAjE">(</span><span class="nv" id="mwAjI">PERSON</span><span class="w" id="mwAjM"> </span><span class="no" id="mwAjQ">T</span><span class="p" id="mwAjU">)</span><span class="w" id="mwAjY"> </span><span class="nv" id="mwAjc">40200605AB></span> <span class="c1" id="mwAjg">; a person instance</span> <span class="nv" id="mwAjk">CL-USER</span><span class="w" id="mwAjo"> </span><span class="nb" id="mwAjs">></span><span class="w" id="mwAjw"> </span><span class="p" id="mwAj0">(</span><span class="nb" id="mwAj4">defparameter</span><span class="w" id="mwAj8"> </span><span class="vg" id="mwAkA">*person-1*</span><span class="w" id="mwAkE"> </span><span class="p" id="mwAkI">(</span><span class="nb" id="mwAkM">make-instance</span><span class="w" id="mwAkQ"> </span><span class="ss" id="mwAkU">'person</span><span class="w" id="mwAkY"> </span><span class="ss" id="mwAkc">:name</span><span class="w" id="mwAkg"> </span><span class="s" id="mwAkk">"Eva Luator"</span><span class="p" id="mwAko">))</span> <span class="vg" id="mwAks">*PERSON-1*</span> <span class="c1" id="mwAkw">; displaying a person instance</span> <span class="nv" id="mwAk0">CL-USER</span><span class="w" id="mwAk4"> </span><span class="nb" id="mwAk8">></span><span class="w" id="mwAlA"> </span><span class="vg" id="mwAlE">*person-1*</span> <span class="err" id="mwAlI">#</span><span class="nv" id="mwAlM"><PERSON</span><span class="w" id="mwAlQ"> </span><span class="nv" id="mwAlU">Eva</span><span class="w" id="mwAlY"> </span><span class="nv" id="mwAlc">Luator></span> <span class="c1" id="mwAlg">; now redefining the print method to be extensible</span> <span class="c1" id="mwAlk">; the around method creates the context for the print method and it calls the next method</span> <span class="nv" id="mwAlo">CL-USER</span><span class="w" id="mwAls"> </span><span class="nb" id="mwAlw">></span><span class="w" id="mwAl0"> </span><span class="p" id="mwAl4">(</span><span class="nb" id="mwAl8">defmethod</span><span class="w" id="mwAmA"> </span><span class="nb" id="mwAmE">print-object</span><span class="w" id="mwAmI"> </span><span class="ss" id="mwAmM">:around</span><span class="w" id="mwAmQ"> </span><span class="p" id="mwAmU">((</span><span class="nv" id="mwAmY">p</span><span class="w" id="mwAmc"> </span><span class="nv" id="mwAmg">person</span><span class="p" id="mwAmk">)</span><span class="w" id="mwAmo"> </span><span class="nc" id="mwAms">stream</span><span class="p" id="mwAmw">)</span> <span class="w" id="mwAm0"> </span><span class="p" id="mwAm4">(</span><span class="nb" id="mwAm8">print-unreadable-object</span><span class="w" id="mwAnA"> </span><span class="p" id="mwAnE">(</span><span class="nv" id="mwAnI">p</span><span class="w" id="mwAnM"> </span><span class="nc" id="mwAnQ">stream</span><span class="w" id="mwAnU"> </span><span class="ss" id="mwAnY">:type</span><span class="w" id="mwAnc"> </span><span class="no" id="mwAng">t</span><span class="p" id="mwAnk">)</span> <span class="w" id="mwAno"> </span><span class="p" id="mwAns">(</span><span class="nb" id="mwAnw">call-next-method</span><span class="p" id="mwAn0">)))</span> <span class="err" id="mwAn4">#</span><span class="nv" id="mwAn8"><STANDARD-METHOD</span><span class="w" id="mwAoA"> </span><span class="nv" id="mwAoE">PRINT-OBJECT</span><span class="w" id="mwAoI"> </span><span class="p" id="mwAoM">(</span><span class="ss" id="mwAoQ">:AROUND</span><span class="p" id="mwAoU">)</span><span class="w" id="mwAoY"> </span><span class="p" id="mwAoc">(</span><span class="nv" id="mwAog">PERSON</span><span class="w" id="mwAok"> </span><span class="no" id="mwAoo">T</span><span class="p" id="mwAos">)</span><span class="w" id="mwAow"> </span><span class="nv" id="mwAo0">4020263743></span> <span class="c1" id="mwAo4">; the primary method prints the name</span> <span class="nv" id="mwAo8">CL-USER</span><span class="w" id="mwApA"> </span><span class="nb" id="mwApE">></span><span class="w" id="mwApI"> </span><span class="p" id="mwApM">(</span><span class="nb" id="mwApQ">defmethod</span><span class="w" id="mwApU"> </span><span class="nb" id="mwApY">print-object</span><span class="w" id="mwApc"> </span><span class="p" id="mwApg">((</span><span class="nv" id="mwApk">p</span><span class="w" id="mwApo"> </span><span class="nv" id="mwAps">person</span><span class="p" id="mwApw">)</span><span class="w" id="mwAp0"> </span><span class="nc" id="mwAp4">stream</span><span class="p" id="mwAp8">)</span> <span class="w" id="mwAqA"> </span><span class="p" id="mwAqE">(</span><span class="nb" id="mwAqI">format</span><span class="w" id="mwAqM"> </span><span class="nc" id="mwAqQ">stream</span><span class="w" id="mwAqU"> </span><span class="s" id="mwAqY">"~a"</span><span class="w" id="mwAqc"> </span><span class="p" id="mwAqg">(</span><span class="nb" id="mwAqk">slot-value</span><span class="w" id="mwAqo"> </span><span class="nv" id="mwAqs">p</span><span class="w" id="mwAqw"> </span><span class="ss" id="mwAq0">'name</span><span class="p" id="mwAq4">)))</span> <span class="err" id="mwAq8">#</span><span class="nv" id="mwArA"><STANDARD-METHOD</span><span class="w" id="mwArE"> </span><span class="nv" id="mwArI">PRINT-OBJECT</span><span class="w" id="mwArM"> </span><span class="no" id="mwArQ">NIL</span><span class="w" id="mwArU"> </span><span class="p" id="mwArY">(</span><span class="nv" id="mwArc">PERSON</span><span class="w" id="mwArg"> </span><span class="no" id="mwArk">T</span><span class="p" id="mwAro">)</span><span class="w" id="mwArs"> </span><span class="nv" id="mwArw">40202646BB></span> <span class="c1" id="mwAr0">; a new class id-mixin provides an id</span> <span class="nv" id="mwAr4">CL-USER</span><span class="w" id="mwAr8"> </span><span class="nb" id="mwAsA">></span><span class="w" id="mwAsE"> </span><span class="p" id="mwAsI">(</span><span class="nb" id="mwAsM">defclass</span><span class="w" id="mwAsQ"> </span><span class="nv" id="mwAsU">id-mixin</span><span class="w" id="mwAsY"> </span><span class="p" id="mwAsc">()</span><span class="w" id="mwAsg"> </span><span class="p" id="mwAsk">((</span><span class="nv" id="mwAso">id</span><span class="w" id="mwAss"> </span><span class="ss" id="mwAsw">:initarg</span><span class="w" id="mwAs0"> </span><span class="ss" id="mwAs4">:id</span><span class="p" id="mwAs8">)))</span> <span class="err" id="mwAtA">#</span><span class="nv" id="mwAtE"><STANDARD-CLASS</span><span class="w" id="mwAtI"> </span><span class="nv" id="mwAtM">ID-MIXIN</span><span class="w" id="mwAtQ"> </span><span class="nv" id="mwAtU">422034A7AB></span> <span class="c1" id="mwAtY">; the print method just prints the value of the id slot</span> <span class="nv" id="mwAtc">CL-USER</span><span class="w" id="mwAtg"> </span><span class="nb" id="mwAtk">></span><span class="w" id="mwAto"> </span><span class="p" id="mwAts">(</span><span class="nb" id="mwAtw">defmethod</span><span class="w" id="mwAt0"> </span><span class="nb" id="mwAt4">print-object</span><span class="w" id="mwAt8"> </span><span class="ss" id="mwAuA">:after</span><span class="w" id="mwAuE"> </span><span class="p" id="mwAuI">((</span><span class="nv" id="mwAuM">object</span><span class="w" id="mwAuQ"> </span><span class="nv" id="mwAuU">id-mixin</span><span class="p" id="mwAuY">)</span><span class="w" id="mwAuc"> </span><span class="nc" id="mwAug">stream</span><span class="p" id="mwAuk">)</span> <span class="w" id="mwAuo"> </span><span class="p" id="mwAus">(</span><span class="nb" id="mwAuw">format</span><span class="w" id="mwAu0"> </span><span class="nc" id="mwAu4">stream</span><span class="w" id="mwAu8"> </span><span class="s" id="mwAvA">" ID: ~a"</span><span class="w" id="mwAvE"> </span><span class="p" id="mwAvI">(</span><span class="nb" id="mwAvM">slot-value</span><span class="w" id="mwAvQ"> </span><span class="nv" id="mwAvU">object</span><span class="w" id="mwAvY"> </span><span class="ss" id="mwAvc">'id</span><span class="p" id="mwAvg">)))</span> <span class="err" id="mwAvk">#</span><span class="nv" id="mwAvo"><STANDARD-METHOD</span><span class="w" id="mwAvs"> </span><span class="nv" id="mwAvw">PRINT-OBJECT</span><span class="w" id="mwAv0"> </span><span class="p" id="mwAv4">(</span><span class="ss" id="mwAv8">:AFTER</span><span class="p" id="mwAwA">)</span><span class="w" id="mwAwE"> </span><span class="p" id="mwAwI">(</span><span class="nv" id="mwAwM">ID-MIXIN</span><span class="w" id="mwAwQ"> </span><span class="no" id="mwAwU">T</span><span class="p" id="mwAwY">)</span><span class="w" id="mwAwc"> </span><span class="nv" id="mwAwg">4020278E33></span> <span class="c1" id="mwAwk">; now we redefine the class person to include the mixin id-mixin</span> <span class="nv" id="mwAwo">CL-USER</span><span class="w" id="mwAws"> </span><span class="nb" id="mwAww">></span><span class="w" id="mwAw0"> </span><span class="p" id="mwAw4">(</span><span class="nb" id="mwAw8">defclass</span><span class="w" id="mwAxA"> </span><span class="nv" id="mwAxE">person</span><span class="w" id="mwAxI"> </span><span class="p" id="mwAxM">(</span><span class="nv" id="mwAxQ">id-mixin</span><span class="p" id="mwAxU">)</span><span class="w" id="mwAxY"> </span><span class="p" id="mwAxc">((</span><span class="nv" id="mwAxg">name</span><span class="w" id="mwAxk"> </span><span class="ss" id="mwAxo">:initarg</span><span class="w" id="mwAxs"> </span><span class="ss" id="mwAxw">:name</span><span class="p" id="mwAx0">)))</span> <span class="err" id="mwAx4">#</span><span class="nv" id="mwAx8"><STANDARD-CLASS</span><span class="w" id="mwAyA"> </span><span class="nv" id="mwAyE">PERSON</span><span class="w" id="mwAyI"> </span><span class="nv" id="mwAyM">4220333E23></span> <span class="c1" id="mwAyQ">; the existing instance *person-1* now has a new slot and we set it to 42</span> <span class="nv" id="mwAyU">CL-USER</span><span class="w" id="mwAyY"> </span><span class="nb" id="mwAyc">></span><span class="w" id="mwAyg"> </span><span class="p" id="mwAyk">(</span><span class="nb" id="mwAyo">setf</span><span class="w" id="mwAys"> </span><span class="p" id="mwAyw">(</span><span class="nb" id="mwAy0">slot-value</span><span class="w" id="mwAy4"> </span><span class="vg" id="mwAy8">*person-1*</span><span class="w" id="mwAzA"> </span><span class="ss" id="mwAzE">'id</span><span class="p" id="mwAzI">)</span><span class="w" id="mwAzM"> </span><span class="mi" id="mwAzQ">42</span><span class="p" id="mwAzU">)</span> <span class="mi" id="mwAzY">42</span> <span class="c1" id="mwAzc">; displaying the object again. The print-object function now has an effective method, which calls three methods: an around method, the primary method and the after method.</span> <span class="nv" id="mwAzg">CL-USER</span><span class="w" id="mwAzk"> </span><span class="nb" id="mwAzo">></span><span class="w" id="mwAzs"> </span><span class="vg" id="mwAzw">*person-1*</span> <span class="err" id="mwAz0">#</span><span class="nv" id="mwAz4"><PERSON</span><span class="w" id="mwAz8"> </span><span class="nv" id="mwA0A">Eva</span><span class="w" id="mwA0E"> </span><span class="nv" id="mwA0I">Luator</span><span class="w" id="mwA0M"> </span><span class="nv" id="mwA0Q">ID:</span><span class="w" id="mwA0U"> </span><span class="nv" id="mwA0Y">42></span>
Examples
Popular dynamic programming languages include JavaScript, Python, Ruby, PHP, Lua, and Perl. The following are generally considered dynamic languages:
- ActionScript
- BeanShell
- C# (using reflection)
- Clojure
- CobolScript
- ColdFusion Markup Language
- Common Lisp and most other Lisps
- Dylan
- E
- Elixir
- Erlang
- Forth
- Gambas
- GDScript
- Groovy
- Java (using Reflection)
- JavaScript
- Julia
- Lua
- MATLAB – Octave
- Objective-C
- Object REXX (ooRexx)
- Perl
- PHP
- PowerShell
- Prolog
- Python
- R
- Raku
- Rebol
- Ruby
- Smalltalk
- SuperCollider
- Tcl
- VBScript
- Wolfram Language

