From 819e57bfe8b7f9d140f287171071c9242c9abd2f Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Thu, 12 Feb 1998 17:12:07 +0000
Subject: [PATCH] Add a note to the static function definitions that
 two-arg-<=, two-arg->=, and two-arg-/= are probably required.

---
 compiler/alpha/parms.lisp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/compiler/alpha/parms.lisp b/compiler/alpha/parms.lisp
index c151b682a..929b29ee6 100644
--- a/compiler/alpha/parms.lisp
+++ b/compiler/alpha/parms.lisp
@@ -5,12 +5,12 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/parms.lisp,v 1.3 1997/06/07 19:04:40 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/parms.lisp,v 1.4 1998/02/12 17:12:07 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;;    This file contains some parameterizations of various VM
-;;; attributes for the Apha.  This file is separate from other stuff so 
+;;; attributes for the Alpha.  This file is separate from other stuff so 
 ;;; that it can be compiled and loaded earlier. 
 ;;;
 ;;; Written by William Lott.
@@ -215,6 +215,8 @@
 
 (defparameter static-functions
   '(length
-    two-arg-+ two-arg-- two-arg-* two-arg-/ two-arg-< two-arg-> two-arg-= eql
-    %negate two-arg-and two-arg-ior two-arg-xor two-arg-gcd two-arg-lcm
+    two-arg-+ two-arg-- two-arg-* two-arg-/ two-arg-< two-arg-> two-arg-=
+    ;; Probably need the following as they are defined in arith.lisp
+    ;; two-arg-<= two-arg->= two-arg-/= 
+    eql %negate two-arg-and two-arg-ior two-arg-xor two-arg-gcd two-arg-lcm
     ))
-- 
GitLab