Changeset 14228


Ignore:
Timestamp:
Aug 30, 2010, 8:16:05 PM (9 years ago)
Author:
gb
Message:

Revert r14227 and add a comment.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r14227 r14228  
    13281328
    13291329(defmacro %char-code (c) `(char-code (the character ,c)))
    1330 (defmacro %code-char (i) `(code-char (the (mod #.char-code-limit) ,i)))
     1330;;; %CODE-CHAR is used internally.  It can sometimes exploit the
     1331;;; assertion that the character code is an (UNSIGNED-BYTE 8) to
     1332;;; generate better compiled code (partly because all such character
     1333;;; codes denote characters.)
     1334;;; Confusingly, it's not just the inverse of %CHAR-CODE.  It's
     1335;;; almost always going to be open-coded, so this macro definition
     1336;;; is mostly just a kind of documentation.
     1337(defmacro %code-char (i) `(code-char (the (mod 256) ,i)))
    13311338
    13321339(defmacro %izerop (x) `(eq ,x 0))
Note: See TracChangeset for help on using the changeset viewer.