Changeset 11419


Ignore:
Timestamp:
Nov 20, 2008, 4:47:34 PM (11 years ago)
Author:
gz
Message:

r11418 from trunk

File:
1 edited

Legend:

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

    r11267 r11419  
    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.