Changeset 12263


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

Fix type declaration

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/library/elf.lisp

    r11101 r12263  
    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.