Ignore:
Timestamp:
06/09/10 11:17:17 (11 years ago)
Author:
Mark Evenson
Message:

Include 'examples' in release source distribution.

Reported by Mario Lang.

File:
1 edited

Legend:

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

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