Changeset 10353


Ignore:
Timestamp:
Aug 5, 2008, 11:16:29 AM (11 years ago)
Author:
gb
Message:

GET-CHARACTER-ENCODING of a constant/valid encoding name -> encoding.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/optimizers.lisp

    r10341 r10353  
    21582158      w)))
    21592159
     2160(define-compiler-macro get-character-encoding (&whole w name)
     2161  (or (if (typep name 'keyword) (lookup-character-encoding name))
     2162      w))
    21602163
    21612164(provide "OPTIMIZERS")
Note: See TracChangeset for help on using the changeset viewer.