From 0d34bfad5b937d4289da1c92fafec7ee5195cb8e Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 25 May 1993 20:35:19 +0000 Subject: [PATCH] Added load-time-value support. --- compiler/byte-comp.lisp | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/compiler/byte-comp.lisp b/compiler/byte-comp.lisp index 7c069c91a..76aef7e69 100644 --- a/compiler/byte-comp.lisp +++ b/compiler/byte-comp.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/byte-comp.lisp,v 1.14 1993/05/20 11:26:24 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/byte-comp.lisp,v 1.15 1993/05/25 20:35:19 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1657,6 +1657,21 @@ (assert (eql num-args 0)) (output-do-xop segment 'breakup)) + +(defoptimizer (%load-time-value byte-annotate) ((handle) node) + (annotate-continuation handle 0) + (annotate-continuation (basic-combination-fun node) 0) + (setf (node-tail-p node) nil) + t) + +(defoptimizer (%load-time-value byte-compile) + ((handle) node results num-args segment) + (progn node) ; ignore + (assert (zerop num-args)) + (output-push-load-time-constant segment :load-time-value + (continuation-value handle)) + (canonicalize-values segment results 1)) + ;;; MAKE-XEP-FOR -- internal ;;; -- GitLab