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

Diff of /src/hemlock/scribe.lisp

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

revision 1.4 by ram, Mon Oct 31 04:50:12 1994 UTC revision 1.5 by rtoy, Fri Jun 19 13:27:30 2009 UTC
# Line 40  Line 40 
40  (defhvar "Scribe Bracket Table"  (defhvar "Scribe Bracket Table"
41    "This table maps a Scribe brackets, open and close, to their opposing    "This table maps a Scribe brackets, open and close, to their opposing
42     brackets."     brackets."
43    :value (make-array char-code-limit))    :value (make-array #-unicode char-code-limit #+unicode 256))
44  ;;;  ;;;
45  (mapc #'(lambda (x y)  (mapc #'(lambda (x y)
46            (setf (svref (value scribe-bracket-table) (char-code x)) y)            (setf (svref (value scribe-bracket-table) (char-code x)) y)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5