Changeset 6874


Ignore:
Timestamp:
Jul 20, 2007, 8:35:13 PM (13 years ago)
Author:
gb
Message:

Not really sure why someone thought that the copying in #\* was
necessary, but (a) something seems to get garbled in there and (b)
there are other things that assume that *FORMAT-ARGUMENTS* shares
structure with *FORMAT-ORIGINAL-ARGUMENTS*. Need a better fix.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ide-1.0/ccl/level-1/l1-format.lisp

    r2326 r6874  
    382382         (args (nthcdr-no-overflow to orig)))
    383383    ; avoid bogus circularity indication
    384     (when (and (consp args) (<= to where) *circularity-hash-table*)
     384    (when (and nil (consp args) (<= to where) *circularity-hash-table*)
    385385      ; copy only from to thru where in case  some real shared structure
    386386      (let ((l args) new)
     
    390390          (setq l (cdr l)))
    391391        (setq args (nreconc new (nthcdr (1+ where) orig))))) ;(copy-list args)))
    392     ;(when (eq args :error) (format-error "Can't go to non-existent argument"))
    393392    (setq *format-arguments* args)))
    394393
Note: See TracChangeset for help on using the changeset viewer.