You habe heard of right aligned code, get ready for center aligned code!

[text] qlquickload croatoan inpackage croatoan i Example from Land of Lisp Copyright by Conrad Barski. i Source httplandoflisp.comevolution.lisp i Unknown licence. defparameter width 100 defparameter height 30 defparameter junglex 45 10 10 10 defparameter plantenergy 80 defparameter plants makehashtable test equal defparameter reproductionenergyx 200 R R T AR defun randomplant left top width height let pos cons left random width top random height setf gethash pos plantsx t defun addplants R SRR apply randomplant junglex i Then one in the rest of the world randomplant widthx heightx R T LN defparameter animals list makeanimal x ash swidthx 1 1y ash xheightx 1 FEL L genes loop repeat 8 collect 1 random 16 defun move animal let dir animaldir animal x animalx animal y animaly animal i If xwidth wrap around the world border with the mod function setf animalx animal mod x cond and dir 2 dir 5 1 or dir 1 dir 5 G35 00 Fwidthx LGTILEDD 4lispzzz