;;; Return an expression read from the file named PATHNAME-DESIGNATOR.
(export 'read-from-file)
(defun read-from-file (pathname-designator)
;;; Return an expression read from the file named PATHNAME-DESIGNATOR.
(export 'read-from-file)
(defun read-from-file (pathname-designator)