Skip to content
Snippets Groups Projects
Commit fcc6e094 authored by ram's avatar ram
Browse files

Changed FASLOAD to check that there is something in the stream before it drops

into the load-group loop.  This eliminates the "feature" whereby zero-length
fasl files where considered to be valid (doing nothing).
parent 659cfdb7
Branches
Tags
No related merge requests found
...@@ -7,11 +7,11 @@ ...@@ -7,11 +7,11 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.25 1991/02/08 13:33:54 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.26 1991/02/28 03:16:49 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.25 1991/02/08 13:33:54 ram Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.26 1991/02/28 03:16:49 ram Exp $
;;; ;;;
;;; Loader for Spice Lisp. ;;; Loader for Spice Lisp.
;;; Written by Skef Wholey and Rob MacLachlan. ;;; Written by Skef Wholey and Rob MacLachlan.
...@@ -243,6 +243,8 @@ ...@@ -243,6 +243,8 @@
;;; Fasload: ;;; Fasload:
(defun fasload (stream) (defun fasload (stream)
(unless (listen stream)
(error "Attempt to load an empty FASL FILE:~% ~S" stream))
(when *load-verbose* (when *load-verbose*
(format t "~&; Loading stuff from ~S.~%" stream)) (format t "~&; Loading stuff from ~S.~%" stream))
(let* ((*fasl-file* stream) (let* ((*fasl-file* stream)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment