(defun fib (n)(if(< n 2)
n
(+(fib (- n 1))(fib (- n 2)))))(formatt"Fibonacci of 10 is: ~a~%"(fib 10))
(loop for x from 1 to 5
do(formatt"Square of ~d is ~d~%" x (* x x)))
(defclass person ()((name :accessor person-name :initarg:name)(age :accessor person-age :initarg:age)))(defmethod introduce ((p person))(formatt"Hi, I am ~a and I am ~a years old.~%"(person-name p)(person-age p)))(let((p (make-instance 'person :name"Alice":age 30)))(introduce p))