From fcc6e09483f872d9bee0673249b1bbdbd1b6d135 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 28 Feb 1991 03:16:49 +0000 Subject: [PATCH] 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). --- code/load.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/code/load.lisp b/code/load.lisp index dbb300296..f5f19b1c5 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) -- GitLab