From 421805429bba8be868e19c5daca8724415920792 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 20 Aug 1993 17:46:33 +0000 Subject: [PATCH] Moved various run-time functions it ir1until. --- compiler/macros.lisp | 63 +------------------------------------------- 1 file changed, 1 insertion(+), 62 deletions(-) diff --git a/compiler/macros.lisp b/compiler/macros.lisp index ce9b2a745..a8a6d803b 100644 --- a/compiler/macros.lisp +++ b/compiler/macros.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/macros.lisp,v 1.37 1993/08/06 13:12:39 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/macros.lisp,v 1.38 1993/08/20 17:46:33 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -338,54 +338,6 @@ ); Eval-When (Compile Load Eval) - -;;;; Utilities used at run-time for parsing keyword args in IR1: - -;;; Find-Keyword-Continuation -- Internal -;;; -;;; This function is used by the result of Parse-Deftransform to find the -;;; continuation for the value of the keyword argument Key in the list of -;;; continuations Args. It returns the continuation if the keyword is present, -;;; or NIL otherwise. The legality and constantness of the keywords should -;;; already have been checked. -;;; -(proclaim '(function find-keyword-continuation (list keyword) (or continuation null))) -(defun find-keyword-continuation (args key) - (do ((arg args (cddr arg))) - ((null arg) nil) - (when (eq (continuation-value (first arg)) key) - (return (second arg))))) - - -;;; Check-Keywords-Constant -- Internal -;;; -;;; This function is used by the result of Parse-Deftransform to verify that -;;; alternating continuations in Args are constant and that there is an even -;;; number of args. -;;; -(proclaim '(function check-keywords-constant (list) boolean)) -(defun check-keywords-constant (args) - (do ((arg args (cddr arg))) - ((null arg) t) - (unless (and (rest arg) - (constant-continuation-p (first arg))) - (return nil)))) - - -;;; Check-Transform-Keys -- Internal -;;; -;;; This function is used by the result of Parse-Deftransform to verify that -;;; the list of continuations Args is a well-formed keyword arglist and that -;;; only keywords present in the list Keys are supplied. -;;; -(proclaim '(function check-transform-keys (list list) boolean)) -(defun check-transform-keys (args keys) - (and (check-keywords-constant args) - (do ((arg args (cddr arg))) - ((null arg) t) - (unless (member (continuation-value (first arg)) keys) - (return nil))))) - ;;;; Deftransform: @@ -1126,19 +1078,6 @@ Note that the event with the specified Name has happened. Node is evaluated to determine the node to which the event happened." `(%event ,(event-info-var (event-info-or-lose name)) ,node)) -;;; -(proclaim '(function %event (event-info (or node null)))) -(defun %event (info node) - (incf (event-info-count info)) - (when (and (>= (event-info-level info) *event-note-threshold*) - (if node - (policy node (= brevity 0)) - (policy nil (= brevity 0)))) - (let ((*compiler-error-context* node)) - (compiler-note (event-info-description info)))) - - (let ((action (event-info-action info))) - (when action (funcall action node)))) ;;; Event-Statistics, Clear-Statistics -- Interface -- GitLab