From ce19c67a1b9f63cd232e7c0a621b6ca87aaa7214 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 21 Jan 2011 20:44:10 +0100 Subject: [PATCH] Fixed typo in LOC-IMMEDIATE-VALUE-P which prevented ECL from identifying the constant values of numeric expressions. --- src/cmp/cmploc.lsp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/cmp/cmploc.lsp b/src/cmp/cmploc.lsp index ca6a93da0..87e6232fd 100644 --- a/src/cmp/cmploc.lsp +++ b/src/cmp/cmploc.lsp @@ -98,7 +98,7 @@ (and (eq (car loc) 'C-INLINE) (eq (sixth loc) 'VALUES))))) -(defun loc-immediate-value-p (loc &aux head) +(defun loc-immediate-value-p (loc) (cond ((eq loc t) (values t t)) ((eq loc nil) @@ -112,9 +112,9 @@ (values t value)))) ((atom loc) (values nil nil)) - - ((member head '(fixnum-value character-value long-float-value - double-float-value single-float-value)) + ((member (first loc) + '(fixnum-value character-value long-float-value + double-float-value single-float-value)) (values t (second loc))) (t (values nil nil)))) @@ -123,7 +123,7 @@ (baboon :format-control "Unknown location found in ~A~%~S" :format-arguments (list where loc))) -(defun wt-loc (loc &aux fd) +(defun wt-loc (loc) (cond ((consp loc) (let ((fd (gethash (car loc) *wt-loc-dispatch-table*))) (if fd