Changeset 9243


Ignore:
Timestamp:
Apr 23, 2008, 7:36:03 PM (11 years ago)
Author:
gz
Message:

Fix some more structure type decls, now that we check

Location:
trunk/source
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/db-io.lisp

    r8741 r9243  
    15621562       
    15631563 
    1564 ;; Should return a FOREIGN-TYPE structure.
     1564;; Should return a FOREIGN-TYPE structure (except if suppress-typedef-expansion is true, may
     1565;; return a symbol for encoded-type-named-type-ref)
    15651566(defun %decode-type (buf p ftd &optional suppress-typedef-expansion)
    15661567  (declare (type macptr buf) (fixnum p))
  • trunk/source/lib/foreign-types.lisp

    r9240 r9243  
    898898
    899899(def-foreign-type-class (pointer :include (foreign-value))
    900   (to *void-foreign-type* :type foreign-type))
     900  (to *void-foreign-type* :type (or symbol foreign-type)))
    901901
    902902
  • trunk/source/library/splay-tree.lisp

    r1171 r9243  
    6767
    6868(defstruct (splay-tree (:constructor %make-splay-tree))
    69   (root nil :type (or null splay-tree-node))
     69  (root nil #|:type (or null splay-tree-node)|#)
    7070  equal                                 ; true if x = y
    7171  less                                  ; true if x < y
Note: See TracChangeset for help on using the changeset viewer.