Changeset 11958 for trunk/source/level-1


Ignore:
Timestamp:
Apr 19, 2009, 4:09:28 PM (10 years ago)
Author:
gz
Message:

Fix a bunch of malformed/mistyped declarations

Location:
trunk/source/level-1
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-aprims.lisp

    r11676 r11958  
    34973497  (let* ((code (char-code c))
    34983498         (bits *alpha-char-bits*))
    3499     (declare (type (mod #x110000 code))
     3499    (declare (type (mod #x110000) code)
    35003500             (simple-bit-vector bits))
    35013501    (and (< code (length bits))
  • trunk/source/level-1/l1-lisp-threads.lisp

    r11744 r11958  
    300300                #+32-bit-target :unsigned-fullword ts-size
    301301                :address))))
    302     (declare (fixum tcr))
     302    (declare (fixnum tcr))
    303303    (if (zerop tcr)
    304304      (error "Can't create thread")
  • trunk/source/level-1/l1-streams.lisp

    r11827 r11958  
    19241924(defun %ioblock-write-u8-encoded-simple-string (ioblock string start-char num-chars)
    19251925  (declare (fixnum start-char num-chars)
    1926            (simple-base-strng string)
     1926           (simple-base-string string)
    19271927           (optimize (speed 3) (safety 0)))
    19281928  (do* ((i 0 (1+ i))
     
    19751975(defun %ioblock-write-u16-encoded-simple-string (ioblock string start-char num-chars)
    19761976  (declare (fixnum start-char num-chars)
    1977            (simple-base-strng string)
     1977           (simple-base-string string)
    19781978           (optimize (speed 3) (safety 0)))
    19791979  (when (ioblock-pending-byte-order-mark ioblock)
     
    20242024(defun %ioblock-write-swapped-u16-encoded-simple-string (ioblock string start-char num-chars)
    20252025  (declare (fixnum start-char num-chars)
    2026            (simple-base-strng string)
     2026           (simple-base-string string)
    20272027           (optimize (speed 3) (safety 0)))
    20282028  (do* ((i 0 (1+ i))
     
    20572057    (incf (ioblock-charpos ioblock)))
    20582058  (let* ((code (char-code char)))
    2059     (declare (type (mod #x110000 code)))
     2059    (declare (type (mod #x110000) code))
    20602060    (if (< code (the fixnum (ioblock-encode-literal-char-code-limit ioblock)))
    20612061      (%ioblock-write-u32-code-unit ioblock code)
     
    20772077(defun %ioblock-write-u32-encoded-simple-string (ioblock string start-char num-chars)
    20782078  (declare (fixnum start-char num-chars)
    2079            (simple-base-strng string)
     2079           (simple-base-string string)
    20802080           (optimize (speed 3) (safety 0)))
    20812081  (when (ioblock-pending-byte-order-mark ioblock)
     
    21072107    (incf (ioblock-charpos ioblock)))
    21082108  (let* ((code (char-code char)))
    2109     (declare (type (mod #x110000 code)))
     2109    (declare (type (mod #x110000) code))
    21102110    (if (< code (the fixnum (ioblock-encode-literal-char-code-limit ioblock)))
    21112111      (%ioblock-write-swapped-u32-code-unit ioblock code)
     
    21272127(defun %ioblock-write-swapped-u32-encoded-simple-string (ioblock string start-char num-chars)
    21282128  (declare (fixnum start-char num-chars)
    2129            (simple-base-strng string)
     2129           (simple-base-string string)
    21302130           (optimize (speed 3) (safety 0)))
    21312131  (do* ((i 0 (1+ i))
  • trunk/source/level-1/l1-unicode.lisp

    r11625 r11958  
    38293829             (nchars 0 (1+ nchars)))
    38303830            ((> j end) (values nchars (- i origin)))
    3831          (declare (fixnum (i j end nchars)))
     3831         (declare (fixnum i j end nchars))
    38323832         (let* ((code (%get-unsigned-word pointer i)))
    38333833           (declare (type (unsigned-byte 16) code))
Note: See TracChangeset for help on using the changeset viewer.