diff --git a/code/load.lisp b/code/load.lisp index dbb3002969bca13966aa59aa8c8cd94f8ccaa470..f5f19b1c5f15a67bbe8a52dd9640056119e5ee7b 100644 --- a/code/load.lisp +++ b/code/load.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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. ;;; Written by Skef Wholey and Rob MacLachlan. @@ -243,6 +243,8 @@ ;;; Fasload: (defun fasload (stream) + (unless (listen stream) + (error "Attempt to load an empty FASL FILE:~% ~S" stream)) (when *load-verbose* (format t "~&; Loading stuff from ~S.~%" stream)) (let* ((*fasl-file* stream)