anchor.diff:  ; Using a hash-table so we can have names for each rod/peg.
   (defvar stacks)
   (setf stacks (make-hash-table))
  -(setf (gethash :A stacks) '())
  -(setf (gethash :B stacks) '())
  -(setf (gethash :C stacks) '())
   
   ; self-explanatory explanation message
   (defun print-hello-msg ()
  
positive.code: ; our abort function in case of wrong game configuration
  (defun die ()
    (format t "The game configuration format is wrong.~%")
    (format t "Smaller discs go on top of the bigger ones. Aborting.~%")
    (abort))
  
  ; ask the user for a filename
  (defun get-filename ()
  
negative.code: 
  ; function to init them all. main?
  (defun init ()
    (setf (gethash :A stacks) '())
    (setf (gethash :B stacks) '())
    (setf (gethash :C stacks) '())
    (let ((x))
      (print-hello-msg)
      (setf x (read-line))
      (cond
        ((= x 1) (get-conf-keyboard))
        ((= x 2) (read-from-file))
        (t (do
             (format t "Please enter only 1 or 2.~%")
             (init))))))
  