You might want to look at something like:
https://github.com/gwkkwg/cl-graph/blob/master/dev/graph-alg...
or perhaps: https://planet.racket-lang.org/package-source/jaymccarthy/di...
I was a little surprised to not find any direct graph algorithms at rosetta code[1], but for showing off somewhat similar code, this might be of interest:
http://rosettacode.org/wiki/Longest_common_subsequence#Commo...
I don't really think common lisp is a great beginning language, compared to, say, python or ruby - although Racket Scheme is pretty nice. I did for example come across this introduction to A * that uses Python for the code examples:
http://www.redblobgames.com/pathfinding/a-star/introduction....
As for introduction to new programmers, Racket's tutorial is kind of nice, jumping right in to do some simple graphics with an embedded DSL:
https://docs.racket-lang.org/quick/
[1] WillPostForFood obviously out-searched me here, finding: http://rosettacode.org/wiki/Dijkstra%27s_algorithm Not sure how I managed to not find it - perhaps trusting search rather than trying to use the site-index would've helped...