Ignore:
Timestamp:
06/07/10 18:30:36 (11 years ago)
Author:
astalla
Message:

less-reflection branch merged with trunk. verify-load temporarily disabled.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/proclaim.lisp

    r11391 r12742  
    3232(in-package #:system)
    3333
    34 (export '(check-declaration-type proclaimed-type proclaimed-ftype ftype-result-type))
     34(export '(check-declaration-type proclaimed-type proclaimed-ftype ftype-result-type *inline-declarations*))
    3535
    3636(defmacro declaim (&rest decls)
     
    4444         :format-arguments (list name)))
    4545
     46(defvar *inline-declarations* nil)
    4647(defvar *declaration-types* (make-hash-table :test 'eq))
    4748
     
    9293    ((INLINE NOTINLINE)
    9394     (dolist (name (cdr declaration-specifier))
    94        (when (symbolp name) ; FIXME Need to support non-symbol function names.
    95          (setf (get name '%inline) (car declaration-specifier)))))
     95       (if (symbolp name)
     96         (setf (get name '%inline) (car declaration-specifier))
     97   (push (cons name (car declaration-specifier)) *inline-declarations*))))
    9698    (DECLARATION
    9799     (dolist (name (cdr declaration-specifier))
Note: See TracChangeset for help on using the changeset viewer.