einblicker

(require :cl-lex)
(require :yacc)
(require :arnesi)
(use-package :cl-lex)
(use-package :yacc)
(arnesi:enable-sharp-l)

(defun str->sym (str) 
  (values (intern (string-upcase str))))

einblicker

(require :arnesi)
(require :cl-match)
(require :split-sequence)
(import '(arnesi:queue arnesi:enqueue arnesi:dequeue split-sequence:split-sequence))
(use-package :cl-match)
(arnesi:enable-sharp-l)

(defvar *maze-str*
"**************************
*S* *                    *