Changeset 6433 for branches/x8664-call


Ignore:
Timestamp:
May 8, 2007, 12:44:30 AM (13 years ago)
Author:
gb
Message:

ELT/SET-ELT: fix on branch, too.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/level-1/l1-aprims.lisp

    r6185 r6433  
    788788   sequence
    789789   (let* ((cell (nthcdr idx sequence)))
    790      (if cell (car cell) (%err-disp $XACCESSNTH idx sequence)))
     790     (if (consp cell)
     791       (car (the cons cell))
     792       (if cell
     793         (report-bad-arg sequence '(satisfies proper-list-p))
     794         (%err-disp $XACCESSNTH idx sequence))))
     795       
    791796   (progn
    792797     (unless (and (typep idx 'fixnum) (>= (the fixnum idx) 0))
     
    804809   sequence
    805810   (let* ((cell (nthcdr idx sequence)))
    806      (if cell
    807        (locally
    808          (declare (cons cell))
    809          (setf (car cell) value))
    810        (%err-disp $XACCESSNTH idx sequence)))
     811     (if (consp cell)
     812       (setf (car (the cons cell)) value)
     813       (if cell
     814         (report-bad-arg sequence '(satisfies proper-list-p))
     815         (%err-disp $XACCESSNTH idx sequence))))
    811816   (progn
    812817     (unless (and (typep idx 'fixnum) (>= (the fixnum idx) 0))
Note: See TracChangeset for help on using the changeset viewer.