Changeset 9915


Ignore:
Timestamp:
Jul 7, 2008, 5:15:13 PM (11 years ago)
Author:
gz
Message:

Propagate r9243 from trunk

Location:
branches/working-0711/ccl
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/db-io.lisp

    r8554 r9915  
    15651565       
    15661566 
    1567 ;; Should return a FOREIGN-TYPE structure.
     1567;; Should return a FOREIGN-TYPE structure (except if suppress-typedef-expansion is true, may
     1568;; return a symbol for encoded-type-named-type-ref)
    15681569(defun %decode-type (buf p ftd &optional suppress-typedef-expansion)
    15691570  (declare (type macptr buf) (fixnum p))
  • branches/working-0711/ccl/lib/foreign-types.lisp

    r9578 r9915  
    886886
    887887(def-foreign-type-class (pointer :include (foreign-value))
    888   (to *void-foreign-type* :type foreign-type))
     888  (to *void-foreign-type* :type (or symbol foreign-type)))
    889889
    890890
  • branches/working-0711/ccl/library/splay-tree.lisp

    r1171 r9915  
    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.