Changeset 16493


Ignore:
Timestamp:
Aug 5, 2015, 8:57:59 PM (4 years ago)
Author:
wws
Message:

Hemlock no longer calls CCL::%GET-READTABLE-CHAR to
initialize its :LISP-SYNTAX character attributes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/defsyn.lisp

    r13186 r16493  
    124124  'symbol nil)
    125125
    126 ;; Default from lisp readtable.
    127126(dotimes (i 256)
    128  (let ((c (code-char i)))
    129   (setf (character-attribute :lisp-syntax c)
    130    (case (ccl::%get-readtable-char c ccl::%standard-readtable%)
    131     (#.ccl::$cht_wsp :space)
    132     (#.ccl::$cht_sesc :char-quote)
    133     (#.ccl::$cht_mesc :symbol-quote)
    134     (#.ccl::$cht_cnst :constituent)))))
    135 
    136 (setf (character-attribute :lisp-syntax #\() :open-paren)
    137 (setf (character-attribute :lisp-syntax #\)) :close-paren)
    138 (setf (character-attribute :lisp-syntax #\') :prefix)
    139 (setf (character-attribute :lisp-syntax #\`) :prefix)
    140 (setf (character-attribute :lisp-syntax #\,) :prefix)
    141 (setf (character-attribute :lisp-syntax #\#) :prefix-dispatch)
    142 (setf (character-attribute :lisp-syntax #\") :string-quote)
    143 (setf (character-attribute :lisp-syntax #\;) :comment)
    144 
    145 (setf (character-attribute :lisp-syntax #\newline) :newline)
    146 (setf (character-attribute :lisp-syntax nil) :newline)
    147 
     127  (setf (character-attribute :lisp-syntax (code-char i))
     128                (if (<= i 32) :space :constituent)))
     129(dolist (pair
     130          '((#\backspace nil)
     131            (#\rubout nil)
     132            (#\\ :char-quote)
     133            (#\| :symbol-quote)
     134            (#\no-break_space :space)
     135            (#\( :open-paren)
     136            (#\) :close-paren)
     137            (#\' :prefix)
     138            (#\` :prefix)
     139            (#\, :prefix)
     140            (#\# :prefix-dispatch)
     141            (#\" :string-quote)
     142            (#\; :comment)
     143            (#\newline :newline)
     144            (nil :newline)))
     145  (setf (character-attribute :lisp-syntax (first pair)) (second pair)))
    148146#|
    149147(do-alpha-chars (ch :both)
Note: See TracChangeset for help on using the changeset viewer.