/[cmucl]/src/code/save.lisp
ViewVC logotype

Diff of /src/code/save.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by wlott, Fri Jan 28 17:22:59 1994 UTC revision 1.20 by ram, Fri Feb 11 13:36:59 1994 UTC
# Line 255  Line 255 
255  (defun assert-user-package ()  (defun assert-user-package ()
256    (unless (eq *package* (find-package "USER"))    (unless (eq *package* (find-package "USER"))
257      (error "Change *PACKAGE* to the USER package and try again.")))      (error "Change *PACKAGE* to the USER package and try again.")))
258    
259    ;;; MAYBE-BYTE-LOAD  --  Interface
260    ;;;
261    ;;;    If Name has been byte-compiled, and :runtime is a feature, then load the
262    ;;; byte-compiled version, otherwise just do normal load.
263    ;;;
264    (defun maybe-byte-load (name &optional (load-native t))
265      (let ((bname (make-pathname
266                    :defaults name
267                    :type #.(c:backend-byte-fasl-file-type c:*target-backend*))))
268        (cond ((and (featurep :runtime)
269                    (probe-file bname))
270               (load bname))
271              (load-native
272               (load name)))))
273    
274    
275    ;;; BYTE-LOAD-OVER  --  Interface
276    ;;;
277    ;;;    Replace a cold-loaded native object file with a byte-compiled one, if it
278    ;;; exists.
279    ;;;
280    (defun byte-load-over (name)
281      (load (make-pathname
282             :defaults name
283             :type #.(c:backend-byte-fasl-file-type c:*target-backend*))
284            :if-does-not-exist nil))

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

  ViewVC Help
Powered by ViewVC 1.1.5