لغة البرمجة الديناميكية

يتم تخزين الكود المصدري كبيانات في متغير CL-USER > ( defparameter *best-guess-formula* ' ( lambda ( x ) ( * x x 2.5 ))) *BEST-GUESS-FORMULA*يتم إنشاء دالة من الكود وتجميعها أثناء التشغيل، وتكون الدالة متاحة تحت اسم best-guess CL-USER > ( compile 'best-guess *best-guess-formula* ) # <Function 15 40600152F4>يمكن استدعاء الدالة CL-USER > ( أفضل تخمين 10.3 ) 265.225قد يتم تحسين الكود المصدري أثناء التشغيل CL-USER > ( setf *best-guess-formula* ` ( lambda ( x ) , ( list 'sqrt ( third *best-guess-formula* )))) ( LAMBDA ( X ) ( SQRT ( * X X 2.5 )))يتم الآن تجميع نسخة جديدة من الدالة CL-USER > ( compile 'best-guess *best-guess-formula* ) # <Function 16 406000085C>سيستدعي الاستدعاء التالي الدالة الجديدة، وهي ميزة من ميزات الربط المتأخر CL-USER > ( أفضل تخمين 10.3 ) 16.28573

; فئة شخص. للشخص اسم. CL-USER > ( defclass person () (( name :initarg :name ))) # <STANDARD-CLASS PERSON 4020081FB3>; طريقة طباعة مخصصة لكائنات فئة person CL-USER > ( defmethod print-object (( p person ) stream ) ( print-unreadable-object ( p stream :type t ) ( format stream "~a" ( slot-value p 'name )))) # <STANDARD-METHOD PRINT-OBJECT NIL ( PERSON T ) 4020066E5B>مثال واحد: CL-USER > ( setf *person-1* ( make-instance 'person :name "Eva Luator" )) # <PERSON Eva Luator>يحصل الشخص من الفئة على خانة ثانية. ثم يحتوي على اسم الخانة وعمرها. CL-USER > ( defclass person () (( name :initarg :name ) ( age :initarg :age :initform :unknown ))) # <STANDARD-CLASS PERSON 4220333E23>تحديث طريقة طباعة الكائن CL-USER > ( defmethod print-object (( p person ) stream ) ( print-unreadable-object ( p stream :type t ) ( format stream "~a age: ~" ( slot-value p 'name ) ( slot-value p 'age )))) # <STANDARD-METHOD PRINT-OBJECT NIL ( PERSON T ) 402022ADE3>لقد تغير الكائن الحالي الآن، حيث أصبح لديه خانة إضافية وطريقة طباعة جديدة. CL-USER > *person-1* # <PERSON Eva Luator age: UNKNOWN>يمكننا تعيين خانة العمر الجديدة للمثيل CL-USER > ( setf ( slot-value *person-1* 'age ) 25 ) 25تم تحديث الكائن CL-USER > *person-1* # <PERSON Eva Luator age: 25>

; فئة الشخص CL-USER > ( defclass person () (( name :initarg :name ))) # <STANDARD-CLASS PERSON 4220333E23>; يقوم شخص ما بطباعة اسمه فقط CL-USER > ( defmethod print-object (( p person ) stream ) ( print-unreadable-object ( p stream :type t ) ( format stream "~a" ( slot-value p 'name )))) # <STANDARD-METHOD PRINT-OBJECT NIL ( PERSON T ) 40200605AB>; نسخة شخصية CL-USER > ( defparameter *person-1* ( make-instance 'person :name "Eva Luator" )) *PERSON-1*عرض بيانات شخص CL-USER > *person-1* # <PERSON Eva Luator>; الآن نعيد تعريف دالة الطباعة لتكون قابلة للتوسيع ؛ تقوم دالة around بإنشاء سياق لدالة الطباعة وتستدعي الدالة التالية CL-USER > ( defmethod print-object :around (( p person ) stream ) ( print-unreadable-object ( p stream :type t ) ( call-next-method ))) # <STANDARD-METHOD PRINT -OBJECT ( :AROUND ) ( PERSON T ) 4020263743>; تقوم الطريقة الأساسية بطباعة الاسم CL-USER > ( defmethod print-object (( p person ) stream ) ( format stream "~a" ( slot-value p 'name ))) # <STANDARD-METHOD PRINT-OBJECT NIL ( PERSON T ) 40202646BB>; فئة جديدة باسم id-mixin توفر معرف CL-USER > ( defclass id-mixin () (( id :initarg :id ))) # <STANDARD-CLASS ID-MIXIN 422034A7AB>تقوم دالة الطباعة بطباعة قيمة خانة المعرّف CL-USER > ( defmethod print-object :after (( object id-mixin ) stream ) ( format stream " ID: ~a" ( slot-value object 'id ))) # <STANDARD-METHOD PRINT-OBJECT ( :AFTER ) ( ID-MIXIN T ) 4020278E33>الآن نعيد تعريف فئة الشخص لتشمل المزيج id-mixin CL-USER > ( defclass person ( id-mixin ) (( name :initarg :name ))) # <STANDARD-CLASS PERSON 4220333E23>; يحتوي الكائن الحالي *person-1* الآن على خانة جديدة، وقد قمنا بتعيينها إلى 42 CL-USER > ( setf ( slot-value *person-1* 'id ) 42 ) 42; لعرض الكائن مرة أخرى. تحتوي دالة طباعة الكائن الآن على طريقة فعّالة، تستدعي ثلاث طرق: طريقة حول، والطريقة الأساسية، وطريقة ما بعد. CL-USER > *person-1* # <PERSON Eva Luator ID: 42>