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