Update scanner.lisp