From e37ad821cbadb84112e083618bbfa4c75c34357f Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 18 Nov 1990 09:26:14 +0000 Subject: [PATCH] Moved &whole vars to the front of the lambda list. --- compiler/aliencomp.lisp | 13 ++++++------- compiler/ir1tran.lisp | 4 ++-- 2 files changed, 8 insertions(+), 9 deletions(-) diff --git a/compiler/aliencomp.lisp b/compiler/aliencomp.lisp index 10ff67a7f..14b957a4e 100644 --- a/compiler/aliencomp.lisp +++ b/compiler/aliencomp.lisp @@ -382,7 +382,7 @@ ;;; Alien-Bind IR1 convert -- Internal ;;; -(def-ir1-translator alien-bind ((binds &body body &whole source) start cont) +(def-ir1-translator alien-bind ((&whole source binds &body body) start cont) (if binds (let ((bind (first binds))) (unless (<= 2 (length bind) 4) @@ -563,7 +563,7 @@ ;;; Alien-SAP soruce transform -- Internal ;;; ;;; -(def-source-transform alien-sap (alien &whole source) +(def-source-transform alien-sap (&whole source alien) (multiple-value-bind (binds stuff res) (analyze-alien-expression nil alien) `(let* ,(reverse binds) @@ -586,7 +586,7 @@ ;;; form, since the transformation must be done even when functions wouldn't be ;;; transformed. ;;; -(def-ir1-translator alien-value ((x &whole form) start cont) +(def-ir1-translator alien-value ((&whole form x) start cont) x ; Ignore (ir1-convert start cont (alien=>lisp-transform form))) @@ -598,7 +598,7 @@ ;;; We analyze the alien expression, converting to a call to %Alien-Access ;;; with the alien parts as separate arguments. ;;; -(def-source-transform alien-access (alien &optional lisp-type &whole form) +(def-source-transform alien-access (&whole form alien &optional lisp-type) (multiple-value-bind (binds stuff res) (analyze-alien-expression nil alien) `(let* ,(reverse binds) @@ -635,9 +635,8 @@ ;;; ;;; Like the source transform for Alien-Access, only different. ;;; -(def-source-transform %set-alien-access (alien lisp-type - &optional (new-value nil nv-p) - &whole form) +(def-source-transform %set-alien-access (&whole form alien lisp-type + &optional (new-value nil nv-p)) (multiple-value-bind (binds stuff res) (analyze-alien-expression nil alien) `(let* ,(reverse binds) diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index b01aff4cb..703acc654 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.lisp @@ -2237,7 +2237,7 @@ ;;; We do a bunch of error checking now so that we don't bomb out with a ;;; fatal error during IR2 conversion. ;;; -(def-ir1-translator system:%primitive ((name &rest args &whole form) +(def-ir1-translator system:%primitive ((&whole form name &rest args) start cont) (unless (symbolp name) @@ -2740,7 +2740,7 @@ ;;; look at the global information. If the name is for a constant, then error ;;; out. -(def-ir1-translator setq ((&rest things &whole source) start cont) +(def-ir1-translator setq ((&whole source &rest things) start cont) "SETQ {Var Value}* Set the variables to the values. If more than one pair is supplied, the assignments are done sequentially. If Var names a symbol macro, SETF the -- GitLab