436 |
(defun lisp-load-file (file-name) |
(defun lisp-load-file (file-name) |
437 |
"Load a Lisp file into the inferior Lisp process." |
"Load a Lisp file into the inferior Lisp process." |
438 |
(interactive (comint-get-source "Load Lisp file: " lisp-prev-l/c-dir/file |
(interactive (comint-get-source "Load Lisp file: " lisp-prev-l/c-dir/file |
439 |
lisp-source-modes nil)) ; NIL because LOAD |
lisp-source-modes nil)) ; nil because LOAD |
440 |
; doesn't need an exact name |
; doesn't need an exact name |
441 |
(comint-check-source file-name) ; Check to see if buffer needs saved. |
(comint-check-source file-name) ; Check to see if buffer needs saved. |
442 |
(setq lisp-prev-l/c-dir/file (cons (file-name-directory file-name) |
(setq lisp-prev-l/c-dir/file (cons (file-name-directory file-name) |
449 |
(defun lisp-compile-file (file-name) |
(defun lisp-compile-file (file-name) |
450 |
"Compile a Lisp file in the inferior Lisp process." |
"Compile a Lisp file in the inferior Lisp process." |
451 |
(interactive (comint-get-source "Compile Lisp file: " lisp-prev-l/c-dir/file |
(interactive (comint-get-source "Compile Lisp file: " lisp-prev-l/c-dir/file |
452 |
lisp-source-modes nil)) ; NIL = don't need |
lisp-source-modes nil)) ; nil = don't need |
453 |
; suffix .lisp |
; suffix .lisp |
454 |
(comint-check-source file-name) ; Check to see if buffer needs saved. |
(comint-check-source file-name) ; Check to see if buffer needs saved. |
455 |
(setq lisp-prev-l/c-dir/file (cons (file-name-directory file-name) |
(setq lisp-prev-l/c-dir/file (cons (file-name-directory file-name) |