Ticket #328: ccl.ticket328.diff

File ccl.ticket328.diff, 0.5 KB (added by S11001001, 4 years ago)

a small patch for this issue

  • lib/sequences.lisp

     
    469469        (cond ((null (setq seq (%car p))) (return)) 
    470470              ((consp seq) 
    471471               (%rplaca p (%cdr seq)) 
     472               (unless (listp (%car p)) 
     473                 (report-bad-arg (%car p) 'list)) 
    472474               (%rplaca args (%car seq))) 
    473475              ((eq index (length seq)) (return)) 
    474476              (t (%rplaca args (elt seq index))))