[1]> ( load 'genetic-route.l )
;; Loading file genetic-route.l ...
;;  Loading file route.l ...
;;  Loaded file route.l
;; Loaded file genetic-route.l
T
[2]> ( setf r ( make-route ) )
#<ROUTE #x00033462B7F0>
[3]> ( display-route r )
Style: JUG Orientation: RIGHT Position: (2 9)
Style: CRIMP Orientation: UP Position: (0 10)
Style: CRIMP Orientation: LEFT Position: (0 10)
Style: CRIMP Orientation: LEFT Position: (8 10)
NIL
[4]> ( setf r ( mutation r ) )
#<ROUTE #x0003345E1CE0>
[5]> ( display-route r )
Style: JUG Orientation: RIGHT Position: (2 9)
Style: SLOPER Orientation: UP Position: (8 4)
Style: CRIMP Orientation: LEFT Position: (0 10)
Style: CRIMP Orientation: LEFT Position: (8 10)
NIL
[6]> ( display-route ( mutation r ) )
Style: JUG Orientation: LEFT Position: (8 10)
Style: SLOPER Orientation: UP Position: (8 4)
Style: CRIMP Orientation: LEFT Position: (0 10)
Style: CRIMP Orientation: LEFT Position: (8 10)
NIL
[7]> ( display-route ( mutation r ) )
Style: JUG Orientation: LEFT Position: (8 10)
Style: SLOPER Orientation: UP Position: (8 4)
Style: SLOPER Orientation: UP Position: (7 6)
Style: CRIMP Orientation: LEFT Position: (8 10)
NIL
[8]> ( display-route ( mutation r) )
Style: JUG Orientation: RIGHT Position: (2 8)
Style: SLOPER Orientation: UP Position: (8 4)
Style: SLOPER Orientation: UP Position: (7 6)
Style: CRIMP Orientation: LEFT Position: (8 10)
NIL
[11]>