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
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment