Error:
Unexpected end of file on #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/Users/sherkund/projects/common-lisp/euler/euler.l..."/6 ISO-8859-1) #x302024B0F6BD>, near position 1122
   [Condition of type END-OF-FILE]

Code:
;; 4).
(defun pal-check (num)
  (let* ((str (write-to-string num))
         (midp (/ (length str) 2))
         (lstr (subseq str 0 midp))
         (rstr (subseq str midp))
    (print lstr)
    (print rstr)))

(pal-check 33)