i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Welcome to GNU CLISP 2.49 (2010-07-07) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2010

Type :h and hit Enter for context help.

[1]> (load "tsp.lsp")
;; Loading file tsp.lsp ...
;;  Loading file lp.lsp ...
;;  Loaded file lp.lsp
;; Loaded file tsp.lsp
T
[2]> (symbol-plist 'a)
(B 92 C 55 D 100 E 111 F 50 G 23 H 150 I 300 J 450 K 15 L 53 M 53 N 65 O 329 P 222 Q 312 R 123 S 19)
[3]> (symbol-plist 'k)
(A 15 B 274 C 210 D 19 E 78 F 156 G 158 H 23 I 167 J 25 L 53 M 53 N 65 O 329 P 222 Q 312 R 53 S 53)
[4]> (symbol-plist 's)
(A 19 B 19 C 19 D 19 E 19 F 19 G 19 H 19 I 19 J 19 K 19 L 19 M 19 N 19 O 19 P 19 Q 19 R 19)
[5]> (setf tour1 (tsp-string))
(R D H B K N M F G O L E S P I C Q J A)
[6]> (fitness-distance tour1)
3658
[7]> (fitness-demo)
x = (A B S R I G F N D P O H C E Q J K M L)
Directly applying the fitness metrics ...
fitness-distance = 2863
NIL
[8]> (bye)
Bye.