Lisp Fib and Hanoi fun for Structure and Interpretation of computer languages course

LispFibAndHanoiFun.lisp

(defun fib (n)
    (loop repeat n
        with p = 0 with q = 1
        do(psetq p q
            q (+ p q))
        collect q
    )
)
    
(print (last (fib 1000)))

(defun printMove (from to)
    (print (concatenate `string "Move from: " (write-to-string from) " To: " (write-to-string to)  ))
)

(defun move (amount from to spare)
    (cond 
        ((= 1 amount)
            (printMove from to)
        )
        (T 
            (move (1- amount) from spare to)
            (move 1 from to spare)
            (move (1- amount) spare to from)
        )
    )
)

(move 3 1 2 3)