Changeset 12262


Ignore:
Timestamp:
Jun 16, 2009, 1:23:01 PM (10 years ago)
Author:
gz
Message:

Fix type declaration

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/elf.lisp

    r11060 r12262  
    140140                (dotimes (i (length string) (progn (vector-push-extend 0 s) n))
    141141                  (let* ((code (char-code (char string i))))
    142                     (declare (type (mod #x110000 code)))
     142                    (declare (type (mod #x110000) code))
    143143                    (if (> code 255)
    144144                      (vector-push-extend (char-code #\sub) s)
Note: See TracChangeset for help on using the changeset viewer.