;;; Return an expression read from the file named PATHNAME-DESIGNATOR.
(export 'read-from-file)
(defun read-from-file (pathname-designator)
(with-open-file (s pathname-designator)
(let* ((result (read s))
;;; Return an expression read from the file named PATHNAME-DESIGNATOR.
(export 'read-from-file)
(defun read-from-file (pathname-designator)
(with-open-file (s pathname-designator)
(let* ((result (read s))