diff --git a/code/load.lisp b/code/load.lisp index 6c747d95487400fdc6e9b1f9a0dc1961a32d37be..0b8b27a921d318d1979e9c2fcc74d4779d4f0a77 100644 --- a/code/load.lisp +++ b/code/load.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.40 1992/03/08 18:31:30 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.41 1992/04/19 13:11:05 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1028,6 +1028,10 @@ (format t "~S defined~%" fun)) fun))) +(define-fop (fop-make-byte-compiled-function 143) + (c::make-byte-compiled-function (pop-stack))) + + ;;;; Linkage fixups.