Changeset 11820


Ignore:
Timestamp:
Mar 17, 2009, 6:40:02 PM (10 years ago)
Author:
gz
Message:

Fix some declarations

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/lists.lisp

    r11164 r11820  
    783783    (declare (dynamic-extent arglists args ret-list))
    784784    (let ((argstail arglists))
    785       (declare (cons argstail))
    786785      (dolist (arg original-arglists)
    787         (setf (car argstail) arg)
     786        (setf (car (the cons argstail)) arg)
    788787        (pop argstail)))
    789788    (do ((res nil)
    790789         (argstail args args))
    791         ((memq nil arglists)           
     790        ((memq nil arglists)
    792791         (if accumulate
    793792             (cdr ret-list)
    794793             (car original-arglists)))
    795       (declare (cons argstail))
    796794      (do ((l arglists (cdr l)))
    797795          ((not l))
    798         (setf (car argstail) (if take-car (car (car l)) (car l)))
     796        (setf (car (the cons argstail)) (if take-car (car (car l)) (car l)))
    799797        (rplaca l (cdr (car l)))
    800798        (pop argstail))
Note: See TracChangeset for help on using the changeset viewer.