/[cmucl]/src/hemlock/debug.lisp
ViewVC logotype

Diff of /src/hemlock/debug.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by pw, Mon Oct 30 15:45:04 2000 UTC revision 1.9 by pw, Wed Nov 15 11:59:23 2000 UTC
# Line 227  Line 227 
227          (let* ((vector (di:form-number-translations          (let* ((vector (di:form-number-translations
228                          (with-input-from-region                          (with-input-from-region
229                              (s (region point (buffer-end-mark buffer)))                              (s (region point (buffer-end-mark buffer)))
230                            (let ((*readtable* (copy-readtable)))                            (let ((*read-suppress* t))
                             (set-dispatch-macro-character  
                              #\# #\. (lambda(stream char arg)  
                                        (declare (ignore char arg))  
                                        (read stream)))  
231                              (read s)))                              (read s)))
232                          tlf-offset))                          tlf-offset))
233                 ;; Don't signal error on index overrun.It may be due                 ;; Don't signal error on index overrun.It may be due

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5