(defun bubble () (format t "Enter the limit of no's :") (setf n (read)) (setf a (make-array n)) (setf len n) (setf i 1) (format t "Enter the no's") (dotimes (i n) (setf (aref a i) (read))) (format t " Entered Array is") (format t "~s" a) (…