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