Changeset 5075

Timestamp:

Sep 2, 2006, 10:24:57 AM (18 years ago)

Author:

Gary Byers

Message:

Fix typo.

Location:

trunk/ccl

Files:

• level-1/x86-error-signal.lisp (modified) (1 diff)
• lib/db-io.lisp (modified) (1 diff)

trunk/ccl/level-1/x86-error-signal.lisp

@@ -173 +173 @@
                          (cond ((= op2 x8664::tag-fixnum) 'fixnum)
                                ((= op2 x8664::tag-single-float) 'single-float)
-                               ((= op2 x8664::subtag-character 'character))
+                               ((= op2 x8664::subtag-character) 'character)
                                ((= op2 x8664::fulltag-cons) 'cons)
                                ((= op2 x8664::tag-misc) 'uvector)

trunk/ccl/lib/db-io.lisp

@@ -394 +394 @@
         (let* ((string (make-string 512)))
           (dotimes (i 512)
-            (setf (schar string i) (%get-unsigned-byte buf i)))
+            (setf (%scharcode string i) (%get-unsigned-byte buf i)))
           (with-input-from-string (s string)
             (let* ((sig (ignore-errors (read s)))