Plaster
New
List
Login
common-lisp
default
phoe
2020.05.06 14:52:41
TEST> (defclass foo () ((bar :accessor bar :initarg :bar :initform 42) (baz :accessor baz :initarg :baz :initform :forty-two))) #<STANDARD-CLASS FOO> TEST> (defvar *my-foo* (make-instance 'foo :bar 24)) *MY-FOO* TEST> (reinitialize-instance *my-foo*) #<FOO {100DAC53C3}> TEST> (bar *my-foo*) 24 TEST> (baz *my-foo*) :FORTY-TWO
Raw
Annotate
Repaste
Annotations
common-lisp
default
phoe
2020.05.06 15:20:11
TEST> (defclass foo () ((bar :accessor bar :initarg :bar :initform 42) (baz :accessor baz :initarg :baz :initform :forty-two))) #<STANDARD-CLASS FOO> TEST> (defparameter *my-foo* (make-instance 'foo)) *MY-FOO* TEST> (reinitialize-instance *my-foo* :baz #(when i was a young boy)) #<FOO {100F055A73}> TEST> (bar *my-foo*) 42 TEST> (baz *my-foo*) #(WHEN I WAS A YOUNG BOY)
Raw
Repaste