From d0b8f43caa4f10b605c560a4eb9fcbde68641305 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 19 Apr 1992 13:11:05 +0000 Subject: [PATCH] Added fop-make-byte-compiled-function. --- code/load.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/code/load.lisp b/code/load.lisp index 6c747d954..0b8b27a92 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. -- GitLab