Ignore:
Timestamp:
Aug 1, 2009, 3:36:45 AM (10 years ago)
Author:
gz
Message:

Be aware of FTYPE declarations in more places

File:
1 edited

Legend:

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

    r12371 r12500  
    571571  ;; Do not signal anything about unknown types though -- it should be ok to have forward
    572572  ;; references here, before anybody needs the info.
    573   (specifier-type ftype)
     573  (let* ((ctype (specifier-type ftype)))
     574    ;; If know enough to complain now, do so.
     575    (when (types-disjoint-p ctype (specifier-type 'function))
     576      (bad-proclaim-spec `(ftype ,ftype ,@names))))
    574577  (dolist (name names)
    575578    (setf (gethash (maybe-setf-function-name name) *nx-proclaimed-ftypes*) ftype)))
Note: See TracChangeset for help on using the changeset viewer.