Changeset 16501


Ignore:
Timestamp:
Aug 9, 2015, 3:46:08 PM (4 years ago)
Author:
gb
Message:

fewer typos

Location:
branches/lscan/source/compiler
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/lscan/source/compiler/X86/x862.lisp

    r16497 r16501  
    1 o;;;-*-Mode: LISP; Package: CCL -*-
     1;;;-*-Mode: LISP; Package: CCL -*-
    22;;;
    33;;;   Copyright (C) 2005-2009 Clozure Associates
  • branches/lscan/source/compiler/optimizers.lisp

    r16448 r16501  
    506506
    507507
    508 #+no-more
    509 (define-compiler-macro cons (&whole call &environment env x y &aux dcall ddcall)
    510   (if (nx-open-code-in-line env)
    511     call
    512    (if (consp (setq dcall y))
    513      (cond
    514       ((or (eq (%car dcall) 'list) (eq (%car dcall) 'list*))
    515        ;(CONS A (LIST[*] . args)) -> (LIST[*] A . args)
    516        (list* (%car dcall) x (%cdr dcall)))
    517       ((or (neq (%car dcall) 'cons) (null (cddr dcall)) (cdddr dcall))
    518        call)
    519       ((null (setq ddcall (%caddr dcall)))
    520        ;(CONS A (CONS B NIL)) -> (LIST A B)
    521        `(list ,x ,(%cadr dcall)))
    522       ((and (consp ddcall)
    523             (eq (%car ddcall) 'cons)
    524             (eq (list-length ddcall) 3))
    525        ;(CONS A (CONS B (CONS C D))) -> (LIST* A B C D)
    526        (list* 'list* x (%cadr dcall) (%cdr ddcall)))
    527       (t call))
    528      call)))
     508
    529509
    530510(define-compiler-macro dotimes (&whole call (i n &optional result)
     
    660640                                     &rest more
    661641                                     &environment env)
    662   (let* ((inline (nx-open-code-in-line env)))
     642  (let* ((inline (or (nx-open-code-in-line env) *backend-use-linear-scan*)))
    663643    (if (or more (and (not inline) second-p))
    664644      call
Note: See TracChangeset for help on using the changeset viewer.