Changeset 11418


Ignore:
Timestamp:
Nov 20, 2008, 4:45:21 PM (12 years ago)
Author:
gz
Message:

Don't change the first two value returned %read-symbol-preserving-case, just add a third one for source note

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/source/lib/db-io.lisp

    r11196 r11418  
    888888   (declare (ignore char arg))
    889889   (let* ((package (find-package (ftd-interface-package-name *target-ftd*))))
    890      (multiple-value-bind (sym source query)
     890     (multiple-value-bind (sym query source)
    891891         (%read-symbol-preserving-case
    892892          stream
    … …  
    10481048    (when error
    10491049      (error error))
    1050     (values sym source query)))
     1050    (values sym query source)))
    10511051
    10521052(set-dispatch-macro-character
    … …  
    10551055   (declare (ignore char))
    10561056   (let* ((package (find-package (ftd-interface-package-name *target-ftd*))))
    1057      (multiple-value-bind (sym source query)
     1057     (multiple-value-bind (sym query source)
    10581058         (%read-symbol-preserving-case
    10591059            stream
    … …  
    10861086    (declare (ignore char))
    10871087    (unless arg (setq arg 0))
    1088     (multiple-value-bind (sym source query)
     1088    (multiple-value-bind (sym query source)
    10891089        (%read-symbol-preserving-case
    10901090                 stream
Note: See TracChangeset for help on using the changeset viewer.