Changeset 5145

Timestamp:

Sep 6, 2006, 3:39:01 PM (18 years ago)

Author:

Gary Byers

Message:

kids: bourbon and editing COPY-READTABLE don't mix!

File:

• trunk/ccl/level-1/l1-reader.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-reader.lisp

@@ -214 +214 @@
   (let* ((fttab (rdtab.ttab from))
          (tttab (rdtab.ttab to)))
-    (%copy-ivector-to-ivector fttab 0 tttab 0 257)))
+    (%copy-ivector-to-ivector fttab 0 tttab 0 256))
+  to)
 
 (declaim (inline %character-attribute))