Changeset 11451
 Timestamp:
 Dec 2, 2008, 6:14:04 AM (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/compiler/X86/x862.lisp
r11420 r11451 8635 8635 (ctype (if atype0 (specifiertype atype0))) 8636 8636 (atype (if (arrayctypep ctype) ctype)) 8637 (dims (and atype (arrayctypedimensions atype))) 8637 8638 (keyword (and atype 8638 (let* ((dims (arrayctypedimensions atype))) 8639 (or (eq dims '*) 8640 (and (typep dims 'list) 8641 (= 2 (length dims))))) 8639 (or (eq dims '*) 8640 (and (typep dims 'list) 8641 (= 2 (length dims)))) 8642 8642 (not (arrayctypecomplexp atype)) 8643 8643 (funcall … … 8646 8646 atype)))) 8647 8647 (cond (keyword 8648 (let* ((dims (arrayctypedimensions atype)) 8649 (dim0 (car dims)) 8648 (when (eq dims '*) 8649 (setq dims nil)) 8650 (let* ((dim0 (car dims)) 8650 8651 (dim1 (cadr dims))) 8651 8652 (x862aref2 seg … … 8691 8692 (ctype (if atype0 (specifiertype atype0))) 8692 8693 (atype (if (arrayctypep ctype) ctype)) 8694 (dims (and atype (arrayctypedimensions atype))) 8693 8695 (keyword (and atype 8694 (let* ((dims (arrayctypedimensions atype))) 8695 (or (eq dims '*) 8696 (and (typep dims 'list) 8697 (= 3 (length dims))))) 8696 (or (eq dims '*) 8697 (and (typep dims 'list) 8698 (= 3 (length dims)))) 8698 8699 (not (arrayctypecomplexp atype)) 8699 8700 (funcall … … 8702 8703 atype)))) 8703 8704 (cond (keyword 8704 (let* ((dims (arrayctypedimensions atype)) 8705 (dim0 (car dims)) 8705 (when (eq dims '*) 8706 (setq dims nil)) 8707 (let* ((dim0 (car dims)) 8706 8708 (dim1 (cadr dims)) 8707 8709 (dim2 (caddr dims))) … … 8734 8736 (ctype (if atype0 (specifiertype atype0))) 8735 8737 (atype (if (arrayctypep ctype) ctype)) 8738 (dims (and atype (arrayctypedimensions atype))) 8736 8739 (keyword (and atype 8737 (let* ((dims (arrayctypedimensions atype))) 8738 (or (eq dims '*) 8739 (and (typep dims 'list) 8740 (= 2 (length dims))))) 8740 (or (eq dims '*) 8741 (and (typep dims 'list) 8742 (= 2 (length dims)))) 8741 8743 (not (arrayctypecomplexp atype)) 8742 8744 (funcall … … 8745 8747 atype)))) 8746 8748 (cond (keyword 8747 (let* ((dims (arrayctypedimensions atype)) 8748 (dim0 (car dims)) 8749 (when (eq dims '*) 8750 (setq dims nil)) 8751 (let* ((dim0 (car dims)) 8749 8752 (dim1 (cadr dims))) 8750 8753 (x862aset2 seg … … 8774 8777 (ctype (if atype0 (specifiertype atype0))) 8775 8778 (atype (if (arrayctypep ctype) ctype)) 8779 (dims (and atype (arrayctypedimensions atype))) 8776 8780 (keyword (and atype 8777 (let* ((dims (arrayctypedimensions atype))) 8778 (or (eq dims '*) 8779 (unless (atom dims) 8780 (= 3 (length dims))))) 8781 (or (eq dims '*) 8782 (unless (atom dims) 8783 (= 3 (length dims)))) 8781 8784 (not (arrayctypecomplexp atype)) 8782 8785 (funcall … … 8785 8788 atype)))) 8786 8789 (cond (keyword 8787 (let* ((dims (arrayctypedimensions atype)) 8788 (dim0 (car dims)) 8790 (when (eq dims '*) 8791 (setq dims nil)) 8792 (let* ((dim0 (car dims)) 8789 8793 (dim1 (cadr dims)) 8790 8794 (dim2 (caddr dims)))
Note: See TracChangeset
for help on using the changeset viewer.