Ticket #10766: ecls-11.1.1-cmploc.lisp.patch

File ecls-11.1.1-cmploc.lisp.patch, 1.1 KB (added by fbissey, 9 years ago)

patch for ecl

  • src/cmp/cmploc.lsp

    diff --git a/src/cmp/cmploc.lsp b/src/cmp/cmploc.lsp
    index ca6a93d..87e6232 100644
     
    9898           (and (eq (car loc) 'C-INLINE)
    9999                (eq (sixth loc) 'VALUES)))))
    100100
    101 (defun loc-immediate-value-p (loc &aux head)
     101(defun loc-immediate-value-p (loc)
    102102  (cond ((eq loc t)
    103103         (values t t))
    104104        ((eq loc nil)
     
    112112               (values t value))))
    113113        ((atom loc)
    114114         (values nil nil))
    115 
    116         ((member head '(fixnum-value character-value long-float-value
    117                         double-float-value single-float-value))
     115        ((member (first loc)
     116                '(fixnum-value character-value long-float-value
     117                   double-float-value single-float-value))
    118118         (values t (second loc)))
    119119        (t
    120120         (values nil nil))))
     
    123123  (baboon :format-control "Unknown location found in ~A~%~S"
    124124          :format-arguments (list where loc)))
    125125
    126 (defun wt-loc (loc &aux fd)
     126(defun wt-loc (loc)
    127127  (cond ((consp loc)
    128128         (let ((fd (gethash (car loc) *wt-loc-dispatch-table*)))
    129129           (if fd