[Openmcl-cvs-notifications] r11418 - /trunk/source/lib/db-io.lisp

[gz at clozure.com]

Author: gz
Date: Thu Nov 20 11:45:21 2008
New Revision: 11418

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

Modified:
    trunk/source/lib/db-io.lisp

Modified: trunk/source/lib/db-io.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/db-io.lisp (original)
+++ trunk/source/lib/db-io.lisp Thu Nov 20 11:45:21 2008
@@ -887,7 +887,7 @@
  (qlfun |#&-reader| (stream char arg)
    (declare (ignore char arg))
    (let* ((package (find-package (ftd-interface-package-name *target-ftd*)=
)))
-     (multiple-value-bind (sym source query)
+     (multiple-value-bind (sym query source)
          (%read-symbol-preserving-case
           stream
           package)
@@ -1047,14 +1047,14 @@
 	(setf (readtable-case *readtable*) case)))
     (when error
       (error error))
-    (values sym source query)))
+    (values sym query source)))
 =

 (set-dispatch-macro-character =

  #\# #\$
  (qlfun |#$-reader| (stream char arg)
    (declare (ignore char))
    (let* ((package (find-package (ftd-interface-package-name *target-ftd*)=
)))
-     (multiple-value-bind (sym source query)
+     (multiple-value-bind (sym query source)
          (%read-symbol-preserving-case
 	    stream
             package)
@@ -1085,7 +1085,7 @@
   (qlfun |#_-reader| (stream char arg)
     (declare (ignore char))
     (unless arg (setq arg 0))
-    (multiple-value-bind (sym source query)
+    (multiple-value-bind (sym query source)
         (%read-symbol-preserving-case
 		 stream
 		 (find-package (ftd-interface-package-name *target-ftd*)))